;글자 폰트 바꿈
;; Style Change —————> st

(DEFUN C:FC()
;(defun stylech ()

(setvar “cmdecho” 0)
(command “style” “standard” “asg,shbw” “” “” “” “” “”)
(prompt “n This Program is change STYLE –> asg,shbw로 전환 n “)
(setq sss(ssget “X” ‘((0 . “TEXT”))))
(setq num (sslength sss))
(setq i 0)
(repeat num
(setq ent (entget (ssname sss i)))
(setq i (1+ i))
(setq ass (assoc 0 ent))
(if
(= “TEXT” (cdr ass))
(progn
(setq ass1 (assoc 7 ent))
(setq co (cons 7 “standard”))
(setq entl (subst co ass1 ent))
(entmod entl)
)
)
)
(prompt “n”)
(princ num) (prompt ” TEXT changed “)
(setvar “cmdecho” 0) (princ)
)

(defun c:aa()
(setq n 0)
(setq ss (ssget))
(setq id (load_dialog “aaa.dcl”))
(new_dialog “aaa” id)
(mode_tile “edit” 2)
(action_tile “edit” “(setq ed $value)”)
(setq ok (start_dialog))
(if (= ok 1)
(draw)
)
(unload_dialog id)
)
(defun draw()
(setq sl (sslength ss))
(repeat sl
(setq sn (ssname ss n))
(setq get (entget sn))
(setq as (assoc 1 get))
(setq con (cons 1 ed))
(setq sub (subst con as get))
(entmod sub)
(setq n (1+ n))
)
)

상단의 글자 폰트를 쓰고싶은 폰트로 바꾸어주시면 도면의 모든 폰트가 변경하신 폰트로 변경되요.
맘에 드시는거 쓰시고 수고하셔요