다른분들이 알고 계신지 모르겠으니
예를 들어 신흥이나 파인디엔씨
프레스 셋트 도면 받아서 열어 볼 경우
깨진경우가 있는데 일일이 바꾸기 너무 번거롭자나요
단축키 한번만 클릭하면 깨진 글 복구 되니
리습 올릴태니 관리자님이 패치 시켜주세요
전 오토캐드에 리습  올려서 쓰거든요




(defun c:TT ()
  (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" "")