;;;FehlerSUB						
(defun myerr (s)
  (setq *error* alterr
	alterr nil)
  (princ (strcat "\nTXTCOPY abgebrochen! - " s ))
);defun


;;;Hauptroutine						
(defun c:TXTCOPY ( / aw targetli fromtxt)
  (command "_.undo" "_G")
  
  ;(while (= fromtext nil)
    
    (setq fromtxt (entget(car(nentsel))))
    (setq fromtxt (assoc 1 fromtxt))
    
  		 
	(setq aw (car(nentsel)))
  	(while (/= aw nil)
	  	(redraw aw 3)
    		(setq targetli (append (list aw) targetli))
    		(setq aw (car(nentsel)))
	  	
  	);while
	

    		(mapcar '(lambda (X)
			(redraw x 4)   
			(setq	obj (entget X)
				obj (subst fromtxt (assoc 1 Obj) obj));setq
			(entmod obj)
				(if (= (cdr(assoc 0 obj)) "ATTRIB" )
				(entupd (cdr(assoc -1 (entget(cdr(assoc 330 obj))))))
				);if
	  	 );lambda
    		targetli
  		);mapcar

  
 (setq *error* alterr)
 (command "_.undo" "_E")
);defun
(prompt"\ntxtcopy zum Starten.")(princ)