캐드 분류
길이추출 리습 TEXT가 너무 작게 나옵니다…
컨텐츠 정보
- 189 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
검색해서 찾다가 얻은 길이산출 리습입니다.
객체들 선택후에 엔터 치면 마우스로 찍는곳에 TEXT로 길이가 나오는데요..
TEXT 높이가 0.2로 나옵니다… 너무 작아서….. 잘 안보입니다….
혹시 어느부분을 수정해야 텍스트 크기를 300정도로 바꿀 수 있을까요,,,ㅠㅜ
고수님들의 소중한 답변 기다리겠습니다 감사합니다 ㅠ
(defun tlines ()
(setq lbeg (cdr (assoc '10 ent)))
(setq lend (cdr (assoc '11 ent)))
(setq llen (distance lbeg lend))
(setq tlen (+ tlen llen))
(ssdel sn ss1)
)
(defun tarcs ()
(setq cen (cdr (assoc '10 ent)))
(setq rad (cdr (assoc '40 ent)))
(setq dia (* rad 2.0))
(setq circ (* (* rad pi) 2.0))
(setq sang (cdr (assoc '50 ent)))
(setq eang (cdr (assoc '51 ent)))
(if (< eang sang)
(setq eang (+ eang (* pi 2.0)))
)
(setq tang (- eang sang))
(setq tang2 (* (/ tang pi) 180.0))
(setq circ2 (/ tang2 360.0))
(setq alen (* circ2 circ))
(setq tlen (+ tlen alen))
(princ)
(ssdel sn ss1)
)
(defun tplines ()
(command "area" "e" sn)
(setq tlen (+ tlen (getvar "perimeter")))
(ssdel sn ss1)
)
(defun tsplines ()
(command "area" "e" sn)
(setq tlen (+ tlen (getvar "perimeter")))
(ssdel sn ss1)
)
(DEFUN C:AD (/ tlen ss1 sn sn2 et)
(setq cmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq txt_sz (getvar "textsize")) ; 추가 – 글쓰기 위한 TEXT SIZE 추출 (<-이근처인거같은데ㅠㅠ)
(setq tlen 0)
(prompt "nSelect only those entities you want for total length: ")
(setq ss1 (ssget))
(while (> (sslength ss1) 0)
(setq sn (ssname ss1 0))
(setq ent (entget sn))
(setq et (cdr (assoc '0 ent)))
(cond
((= et "LINE") (tlines))
((= et "ARC") (tarcs))
((= et "LWPOLYLINE") (tplines))
((= et "POLYLINE") (tplines))
((= et "SPLINE") (tsplines))
((or
(/= et "LINE")
(/= et "ARC")
(/= et "LWPOLYLINE")
(/= et "POLYLINE")
(/= et "SPLINE")
)
(ssdel sn ss1)
)
)
)
(setq pnt1 (getpoint "n>> Pick text point : "))
관련자료
댓글 2