(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” “”)
회사에서 기존분이 만들어놓으신게잇는데 이걸로도 변환이 안되는
폰트가 잇어서여 도와주세요 한번출력하면 100장단위인지라
폰트바꾸는거 여간일이 아닐수없어여 ㅠㅠ