전체글씨체변경 리습 오류수정

글씨 전체 스타일변경 리습을 검색해서 찾았습니다.

(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 “굴림체”))
   (setq entl (subst co ass1 ent))
   (entmod entl)
)
)
)
  (prompt “n”)
  (princ num) (prompt ” TEXT changed “)
  (setvar “cmdecho” 0) (princ)
)

그런데 제가 사용할줄 모르는건지 테스트를 해보려고 여러 글씨체를 두고 리습을 사용하였더니
제가 원하던 굴림체가 아닌 깨진 글씨체가 나오는데요 그뒤로도 글씨를 쓰려고 하면 깨진 글씨체로만 쓸수 있습니다….. 무엇때문인지 답변 부탁드립니다..ㅠㅠ