;Eigenschaften einer Tür auf eine andere übertragen
;Zum Testen ! Anschließend evtl. Befehl 'prüfung'
; 
;Beide Objekte müssen einen Eigenschaftssatz haben 
;oder beide Objekte ohne Eigenschaftssatz
;
;(Eigenschaften aus dem Eigenschaftssatz werden nicht
;übertragen)
;
;


(defun c:tuet (/ obj1 obj2 obj1gc obj2gc objn objn_r)
(prompt "\nTür wählen, die überschrieben werden soll")
(setq obj1  (car (entsel)))
(prompt "\nTür wählen, deren Eigenschaften übertragen werden sollen")
(setq obj2 (car (entsel)))
(setq obj1gc (entget obj1))
(setq obj2gc (entget obj2)) 
(setq objn (subst (assoc 10 obj1gc)(assoc 10 obj2gc) obj2gc))
(setq objn (subst (assoc -1 obj1gc)(assoc -1 obj2gc) objn))
(setq objn (subst (assoc 5 obj1gc)(assoc 5 obj2gc) objn))
(setq objn (subst (assoc 15 obj1gc)(assoc 15 obj2gc) objn))
(setq objn (subst (assoc 16 obj1gc)(assoc 16 obj2gc) objn))
(setq objn (subst (assoc 40 obj1gc)(assoc 40 obj2gc) objn))
(setq objn (subst (assoc 41 obj1gc)(assoc 41 obj2gc) objn))
(setq objn (subst (assoc 360 obj1gc)(assoc 360 obj2gc) objn))
(setq objn_r (reverse objn))
(setq objn_r (subst (assoc 360 (reverse obj1gc))(assoc 360 (reverse obj2gc)) objn_r))
(setq objn (reverse objn_r))
(entmod objn)
)