;; Style Change —————> st
(DEFUN C:stg()
;(defun stylech ()
(setvar “cmdecho” 0)
(command “style” “standard” “굴림” “” “” “” “” “”)
(prompt “n This Program is change STYLE –> 굴림으로 전환 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))
)
)
===> 위 사항으로 stg 명령후 굴림으로 자동 변경되는 리습을 사용중입니다.
문의사항은 굴림이 아닌 다른 글자체로 변경하고 싶은데(휴면태고딕) 어떻게 수정하면
사용가능하지 알려주시면 감사하겠습니다.