폰트변환 리습 관련 문의입니다.

사무실에서 가끔 폰트가 안맞거나 버전이 낮아서 문제가 생기는 경우,

 제가쓰는 2019 버전으로 폰트를 조율하거나 버전을 낮추거나 합니다.

그런데 이번에 이사 후부터 사용하던 글꼴변경 리습이 먹히질 않습니다.

(덕분에 낮은 버전에 클꼴 문제로 고생하시는 분은 지금 일일이 글꼴을 변경하고 계십니다.)

일단 대용으로 넷상에 올라와있는 ext 명령어의 리습으로 적용해보긴 했는데,

이건 글꼴이 캐드전용 쉐이프 글꼴이라 바꿔야 하는데 어디를 손봐야 하는지 잘모르겠습니다.

일단 여기서 퍼가서 사용하던  리습은 이렇습니다.

(defun C:FC()
  (setq !Style (tblnext “STYLE” T))
  (while !Style
    (setq !Style (strcase (cdr (assoc 2 !Style))))
    (command “style” !Style “gulim.ttf” “0” “1” “0” “N” “N”)
    (setq !Style (tblnext “STYLE”))
  )
)

밑줄 부분을 윈도우즈에 등록된 다른 글꼴 이름으로 바꾸면 된다고 하였는데,
글꼴파일이 존재하지 않는다고 뜹니다.

분명 글꼴은 존재하는데말이죠.

그리고 현재 사용해서 적용되던 리습은 이렇습니다.

(defun c:ext ()

  (setvar “CMDECHO” 0)
   (setq d 0)
   (setq e (entnext))
   (while e
       ;(print (entget e))
       (setq s  (cdr (assoc 0 (entget e))))
       (setq tt (cdr (assoc 7 (entget e))))
    
       (IF (/= NIL tt)
         (SETVAR “TEXTSTYLE” (cdr (assoc 7 (entget e))))
  (SETVAR “FONTALT” “txt.shx”)
  ;  (SETVAR “FONTALT” “whgtxt.shx”)
 )
    
          
       (if (= “TEXT” s)
        
         (command “-style” (cdr (assoc 7 (entget e))) “txt.shx , whgtxt.shx” “” “” “” “N” “N” “N”)
 

   (setq d (1+ d))
      
      )
 
       ;(terpri)
       (setq e (entnext e))

    
   )
   (command “regen”)
  )

;(command “-style” “HSW”   “txt.shx,whgtxt.shx” “”

    ; “” “” “”  “n” “n” “n” “”)

이건 제가 리습을 공부한게 아니라 어디를 손봐야 할지 모르겠습니다.

제가 알고싶은 것은,

1. 기존 리습이 왜 작동 안되는지.

2. 2번 리습은 폰트를 바꾸려면 어디를 수정해야 하는지입니다.

리습 첨부합니다.