Change Fonts of All Styles to "simplex.shx,whgtxt.shx"

모든 스타일의 글꼴을 심플렉스와 윈도한글로 바꾸기 (trusted_dwg 님께 감사)
단순 참고용 도면을 열었을 때 폰트가 없어서 안보여~~ 그럼 CF 실행!!

모든 문자 스타일의 글꼴을 바꿔주는 리습

(defun c:CF() ;Change Fonts
  (setq !Style (tblnext "STYLE" T))
  (while !Style
    (setq !Style (strcase (cdr (assoc 2 !Style))))
    (command "-style" !Style "simplex.shx,whgtxt.shx" "0" "1" "0" "n" "n" "n")
    (setq !Style (tblnext "STYLE"))
  )
)