(DEFUN C:BJ-VERSCHMELZUNG (/ BJ:XY BJ:ASATZ BJ:REGION)
  (BJ-LAYER_NEU "Verschmelzung_TEMP" "2" "CONTINUOUS" ".5" "PLOT")
  (SETQ BJ:ASATZ (SSGET))
  (command "_copy" BJ:Asatz "" "0,0" "0,0")
;(BJ-LAYER_CHANGE BJ:Asatz "Verschmelzung_TEMP")   
  (command "REGION" BJ:Asatz "")
  (setQ BJ:REGION (SSGET "X" '((0 . "REGION"))))    
  (command "_UNION" BJ:REGION "")
  (BJ-LAYER_CHANGE BJ:REGION "Verschmelzung_TEMP")
  (command "_LAYISO" BJ:REGION "")
  (setq BJ:XY (getpoint "\nGeb einen Punkt im Grundstück an:"))
  (command "_BOUNDARY" BJ:XY "")
  (BJ-LAYER_NEU "Verschmelzung" "1" "CONTINUOUS" ".5" "PLOT")    
  (BJ-LAYER_CHANGE (entlast) "Verschmelzung")
  (command "_ERASE" BJ:REGION "")
  (command "_LAYUNISO" "")
);END OF defun
  
;;-------------------------------------------------------------------------------------------------;
;;Wechselt den Layer von Objekten
;;-------------------------------------------------------------------------------------------------;
(defun BJ-LAYER_CHANGE (BJ:LIST LAY_NEU /) 
  (command "_change" BJ:LIST "" "EI" "LA" LAY_NEU "")
);END OF defun


;-------------------------------------------------------------------------------------------------;
;;Erzeugt einen neuen Layer mit Farbe,Linientyp,Linienstärke und Plotmodus und (Setz ihn nicht)
;;-------------------------------------------------------------------------------------------------;
;;Z.B. (BJ-LAYER_NEU "Verschmelzung" "1" "CONTINUOUS" ".5" "PLOT")
(defun BJ-LAYER_NEU (BJ:LAY_NAME BJ:LAY_FA BJ:LAY_LT BJ:LAY_LS BJ:LAY_PLT / BJ:AKT_LAY)
  (if (= nil (tblsearch "LAYER" BJ:LAY_NAME))
    (progn
      (setq BJ:AKT_LAY (getvar "clayer"))
      (if (= nil (tblsearch "LTYPE" BJ:LAY_LT))
        (setq BJ:LAY_LT (BJ-NEUER_LTYP BJ:LAY_LT nil))
      );End of if
      (command "layer" "M" BJ:LAY_NAME "FA" BJ:LAY_FA "" "LT" BJ:LAY_LT "" "LS" BJ:LAY_LS "" "PLOT" BJ:LAY_PLT "" "")
      (setvar "clayer" BJ:AKT_LAY)    
    );End of progn
  );End of if
);End of defun