윈10, x64, cad2016, 애드온 프로그램은 없습니다.
다른데서 받은 파일인데, 글자가 ???로 깨져서,
style에가서 보면 아래 캡쳐처럼 나옵니다.
하나씩 바꿔주면 제대로 표현됩니다만,,
도면당 정의된 스타일이 수십개에 파일도 수백개인데,,
뾰족한 방법이 생각이 안나서, 여쭤봅니다.
oooohahaLv.0
윈도우 폰트 에러 문의드립니다.
공유
비밀번호를 잊으셨나요? 비밀번호를 재설정하려면 이메일 주소를 입력해주세요.
해당 질문을 신고하는 이유를 간단히 입력해주세요.
해당 답변을 신고하는 이유를 간단히 입력해주세요.
해당 유저를 신고하는 이유를 간단히 입력해주세요.
ArchiOffice 설치하시고 XFONTS로 글꼴교체해보세요!
파일이나 폴더 선택하여 수백장 한번에 변환할 수 있습니다.
정식등록하지않더라도 사용가능하니…당면한 문제는 해결할 수 있을겁니다.
저도 어디서 다운받은 건데, 글자가 깨지는 경우에 99.9프로의 확률로
글자를 보이게 해줍니다. 좋아여…..
(defun c:tst ( / s tt d e )
(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”)
);defun end
;(command “-style” “HSW” “txt.shx,whgtxt.shx” “”
; “” “” “” “n” “n” “n” “”)
(defun c:CV2 ( / s tt d e )
(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”)
);defun end
감사합니다!!
한번 해보겠습니다, 고맙습니다!!