(defun c:DD (/ ss en sum txs a1 a42 pt n)
(princ “nt 전장체크명령 : DD”)
(princ)
(setq sum 0)
(setq txs (getvar ‘textsize))
(setq ss (ssget (list (cons 0 “DIMENSION”))) n 0)
(setq zzz (sslength ss))
(repeat (sslength ss)
(setq en (entget (ssname ss n)))
(setq a1 (cdr(assoc 1 en)) a42 (cdr (assoc 42 en)))
(if (eq a1 “”)(setq sum (+ a42 sum))(setq sum (+ (atof a1) sum)))
(setq n (1+ n))
)
(princ “선택 갯수 : “)(princ zzz) (princ “개 입니다.”)
(setq xx (getreal “n연신율 입력 :”))
(setq xxx (rtos xx 2 2))
(setq pt (getpoint “n문자를 표시할 위치 :”))
(setq bb (- zzz 1.0))
(setq go (* xx bb))
(setq sum1 (- sum go))
(command “_text” pt txs “0” (strcat “연신율 = “(rtos xx 2 2)))
(command “_text” “” (strcat “전장 = “(rtos sum1 2 2)” mm”))
(princ)
)
(princ “nt 전장체크명령 : DD”)
(princ)
여기서 폰트크기 조절할려면 어떤부분을 수정해야 할까요?
txs 가 문자 크기입니다 현재는 (setq txs(getvar ‘textsize))로 현재 캐드의 문자 크기를 따라가네요