글씨를 한번에 바꾸는 리습을 사용한고 있었는데..언제 부턴가 안되요..한번 봐주세요.
(vmon)
(defun C:GHS (/ EN1 NUM FON INDEX ENTG index AS1 AS2 CON SUB)
(graphscr)
(setq m:err *error* *error* *merrmsg*)
(command “redraw”)
(prompt “n>> CHANGE FONT PROGRAM. **”)
(setq en1 (ssget))
(setq num (sslength en1))
(setq FON “GHS”)
(prompt “n>> WAIT PLEASE… “)
(setq index 0)
(repeat num
(setq entg (entget (ssname en1 index)))
(setq index (1+ index))
(setq as1 (assoc 0 entg))
(if (= “TEXT” (cdr as1))
(progn
(setq as2 (assoc 7 entg))
(setq con (cons 7 fon))
(setq sub (subst con as2 entg))
(entmod sub)
);;;PROGN
);;;IF
(prin1)
);;;REPEAT
(prompt “n>> ——^^————“) (princ)
(setq *error* m:err m:err nil)
(princ)
);;;;the end
;;