텍스트 수정

텍스트 검색

리습으로 있습니다.
aaa라는 텍스트와 bbb라는 텍스트를 모두 ccc로 바꿀 때 사용하면 됩니다.
aaa , bbb 선택하고 ccc를 선택하면 aaa , bbb가 ccc , ccc로 바뀝니다.
match propertise와는 객체선택 순서가 다릅니다.
객체선택 순서를 바꾸고 싶은데 리습엔 영꽝이라 그냥 받아다 쓰고만 있습니다.

(defun c:txtmatch (/ ent a a1 a2 txt txt1 ntxt ntxt1 ntxt2 sty sty1 sty2)
(graphscr)
(setvar “cmdecho” 0)
(setq ent (ssget))
(setq ntxt (nentsel “n Select new text : “))

(while (or (= nil ntxt) (/= “TEXT” (cdr (assoc 0 (entget (car ntxt))))))
(setq ntxt (nentsel “n Select new text : “))
)

(setq txtct 0)
(setq ttx (ssname ent txtct))
(while ttx
(setq a (entget ttx))
(setq a1 (cdr (assoc 0 a)))
(if (= “TEXT” a1)
(progn
(setq txt (assoc 1 a))
(setq ntxt1 (entget (car ntxt)))
(setq ntxt2 (cdr (assoc 1 ntxt1)))
(setq txt1 (cons (car txt) ntxt2))
(setq a1 (subst txt1 txt a))
(entmod a1)
;(setq sty (assoc 7 a))
;(setq sty2 (cdr (assoc 7 ntxt1)))
;(setq sty1 (cons (car sty) sty2))
;(setq a2 (subst sty1 sty a1))
;(entmod a2)
(setq txtct (1+ txtct))
(setq ttx (ssname ent txtct))
(princ (strcat (cdr txt) ” —–>>> ” ntxt2))(terpri)
)
(progn
(setq txtct (1+ txtct))
(setq ttx (ssname ent txtct))
)
)
)
(princ)
)

http://www.acadvba.com에
Dream을 까시면 그기능외 유용한 기능들이 많습니다.