17.10.2014 13:46    

(defun c:ydeg ()
(setq reft (entget (car (entsel "\nReferans Text'i seciniz..."))))
(if reft (setq yazi (assoc 1 reft)) (exit))
(while (setq tart (car (entsel "\nDegistirilecek Text'i seciniz...")))
(setq tart (entget tart) tart (subst yazi (assoc 1 tart) tart))
(entmod tart) (entupd (cdr (assoc -1 tart)))
)
(prin1)
)


bu lisp tam aradığım lisp fakat çoklu seçim yapmıyor yani referans objeyi seçiyorum sonra sadece bir tane text seçmeme izin veriyor yani birden fazla text seçmek için düzeltebilirmisiniz lispi