(defun c:tts(/ ts l sz i l1 t1 t2 t0 h)
(setq ts(ssget))
(SETQ L(SSLENGTH ts))
(setq sz (getstring”n Text Style : “))
(setq i 0)
(setq l1(- l 1))
(while (<= i l1)
(setq t1(ssname ts i))
(setq t2(entget t1))
(setq t0(cdr (assoc 0 t2)))
(cond ((= “TEXT” t0)
(PROGN (setq h sz)
(setq t2(subst (cons 7 h)(assoc 7 t2) t2))
(entmod t2)
)
)
(t nill)
)
(setq i(+ i 1))
)
)
한번 드레그해서 바뀌게 했으면 좋겠습니다 ..
제가 리습을 기초밖에 몰라서
고수분들에게 여쭈어 봅니다..