홈/ 질문/Q 107542
다음
진행 중
꼬부기결혼하자
Lv.0
등록일: 2016-11-17T09:17:42+09:00 카테고리:

전체 폰트 바꾸기 리습 뭐가잘못됬나요… 적용이안되는거같아여..

(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” “isocp3.shx”)
; (SETVAR “FONTALT” “ghs.shx”)
)
       (if (= “TEXT” s)
         (command “-style” (cdr (assoc 7 (entget e))) “isocp3.shx , ghs.shx” “” “” “” “N” “N” “N”)
 (setq d (1+ d))
      )
       ;(terpri)
       (setq e (entnext e))
   )
   (command “regen”)
  )
;(command “-style” “HSW”   “isocp3.shx,ghs.shx” “”
; “” “” “”  “n” “n” “n” “”)
먼저 폰트리습은  txt.shx whgtxt.shx 쓰고있었고  적용이잘되었는데..
음… 폰트만 수정하고 리습해봤는데 안되네여….ㅠㅠ 뭐가문제일까여
공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.0

       (command “-style” (cdr (assoc 7 (entget e))) “isocp3.shx , ghs.shx” “” “” “” “N” “N” )
      이렇게 바꾸시면 될겁니다~
      autocad2010 에서 확인했습니다.

      • 0

    3. 도면 객체 전체를 검색하셨는데..
      저라면..
      (tblsearch “style” 로..  스타일만 찾아서.. 스타일만 바꾸겠습니다…

      • 0