(defun c:tc (/ ss n k en tx)
(prompt “nCommand: Text Change…”)
(prompt “nSelect text to edit ->”)
(setq ss (ssget)) (terpri)
(setq n (sslength ss))
(setq k 0)
(while (<= 1 n)
(setq en (ssname ss k))
(if (eq (cdr (assoc 0 (entget en))) "TEXT")(progn
(redraw en 3)
(command "ddedit" en "")
(redraw en 4)
) )
(setq n (- n 1))
(setq k (+ k 1))
)
(princ)
)
다음 같은 멀티 텍스트 수정시 다음 그림과 같이 옵션을 선택하여
순차적으로 변경시킬 수 있을지요...
부탁들립니다.