홈/ 질문/Q 111790
다음
진행 중
oooohaha
Lv.0
등록일: 2019-10-01T18:02:30+09:00 카테고리:

윈도우 폰트 에러 문의드립니다.

윈10, x64, cad2016, 애드온 프로그램은 없습니다.

다른데서 받은 파일인데, 글자가 ???로 깨져서,
style에가서 보면 아래 캡쳐처럼 나옵니다.

하나씩 바꿔주면 제대로 표현됩니다만,,
도면당 정의된 스타일이 수십개에 파일도 수백개인데,,
뾰족한 방법이 생각이 안나서, 여쭤봅니다.

캡처1.JPG

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.0

      한번 해보겠습니다, 고맙습니다!!

      • 0
    3. Lv.0

      감사합니다!!

      • 0
    4. Lv.0

      저도 어디서 다운받은 건데, 글자가 깨지는 경우에 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

      • 0
    5. Lv.10

      ArchiOffice 설치하시고 XFONTS로 글꼴교체해보세요!
      파일이나 폴더 선택하여 수백장 한번에 변환할 수 있습니다.
      정식등록하지않더라도 사용가능하니…당면한 문제는 해결할 수 있을겁니다.
      XFONTS191001.jpg

      • 0