캐드리습 글자크기 문의드립니다
컨텐츠 정보
- 271 조회
- 1 댓글
- 0 추천
- 0 비추천
-
목록
본문
캐드리습 길이 표시 쓰고있는데 혹시 글자크기 조정어떻게하나요?
(defun c:az(/ ss en n n1 k tot dis dis1)
(setvar "cmdecho" 0)
(setvar "dimzin" 0)
(prompt "nSelect object:")
(setq ss (ssget))
(setq n1 (sslength ss))
(setq n n1 k 0)
(setq tot 0 dis 0 dis1 0)
(while (<= 1 n)
(setq en (ssname ss k))
(setq stype (cdr (assoc 0 (entget en))))
(if (= stype "LINE")(progn
(setq spt (cdr (assoc 10 (entget en))))
(setq ept (cdr (assoc 11 (entget en))))
(setq dis1 (distance spt ept))
(setq dis (/ dis1 1000.0))(prin1 dis)
))(terpri)
(if (= stype "LWPOLYLINE")(progn
(command "area" "e" en)
(setq dis1 (getvar "perimeter"))
(setq dis (/ dis1 1000.0))
))
(setq tot (+ tot dis))
(setq n (- n 1))
(setq k (+ k 1))
)
(SETQ to2 (RTOS tot 2 2));;소수점 정리
(terpri)
(prompt "총")(prin1 n1)(prompt "개의 라인…")
(prompt "전체길이 : ")(prin1 to2)(prompt "m")
(SETQ PO (GETPOINT))
(COMMAND "STYLE" "nt" "romans.shx,ghs.shx" "" "" "" "" "")(PRIN1)
(SETQ TESI (* 3.0 (GETVAR "LTSCALE")))
(COMMAND "TEXT" "Mr" PO tesi "" to2)(PRIN1)
(princ)
(prin1)
)