캐드 분류
exp.lsp 글꼴 변경 질문입니다
컨텐츠 정보
- 143 조회
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요 반갑습니다
캐드리습를 사용중인데 현재 사용하는 폰트에서 돋음체로 변경하고 싶은데
변경하는 방법을 알고싶습니다
(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" "")
관련자료
댓글 0
/ 1 페이지
등록된 댓글이 없습니다.