(command “-purge” “st” “” “n”)
(setq sel (tblnext “STYLE” T))
(setq style_count 0)
(while (/= sel nil)
(setq list1 (assoc 2 sel))
(setq list2 (assoc 3 sel))
(setq style_name (cdr list1))
(setq font_name (cdr list2))
(princ “n”)
(setq log (strcat “style_name :” style_name ” font_name : ” font_name “n”))
(princ log)
(setq sel (tblnext “STYLE” ))
(setq style_count (1+ style_count))
)
(setq log (strcat “총 사용 STYLE : ” (itoa style_count) “개”))
(princ log)(princ)
===>>
나오는 결과값이
style_name : 스타일명 font_name : 돋움.ttc
이렇게 나와야하는데요…
style_name : 스타일명 font_name : 공백
이렇게 나와요..
폰트명의 확장자가 ttc이면 안나오는건가요??
나오는 방법은 없나요?
이건 단순히 퍼지해서 안쓰는 것 삭제한 후에
남은 스타일명과 폰트를 보여주는 코드일 뿐입니다.
확장자가 달라서 안나오는 것이 아니라
공백이면 글자스타일테이블에 폰트가 기록되지 않거나 에러가 난것 같은데
dwg파일을 의심해 보세요.
답변 고맙습니다.^^
저도 파일을 의심하여 폰트를 재설정 해줬었는데요…
맑은고딕 로 설정을 했을때는 나왔었는데 ‘돋움’으로 설정하면 공백으로 나와요…ㅜㅜ
windows/fonts 폴더에 돋움의 속성은 gulim.ttc 이거든요…
머든 나오면 어떻게든 해보겠는데 공백으로 나오니..원…
문제가 해결되지 않네요.ㅜㅠ
해결이 됐습니다..