문자 일률 바꾸기 리습좀요

(defun stylech ()
   (setvar “cmdecho” 0)
   (command “style” “ghs” “romans,ghs” “” “” “” “” “”)
   (prompt “n This Program is change STYLE  –>  ghs  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 “ghs”))
   (setq entl (subst co ass1 ent))
   (entmod entl)
)
)
)
  (prompt “n”)
  (princ num) (prompt ” TEXT changed “)
  (setvar “cmdecho” 0) (princ)
)

사무실에서 쓰는 리습중 일부분인데요 저 ghs 스타일을 맑은고딕이나
돋움체로 바꾸고 싶은데 ghs 를 맑은고딕 이나 돋움체로 바꾸면
지원하지 않는 스타일이라고 나오네요.
바꾸는 방법이 있을까요?