캐드 분류
길이합리습 소숫점 수정 질문
컨텐츠 정보
- 126 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
길이합리습 소숫점 예시 14.1111 이렇게나오는데 14.11 소수두자리로 고치고싶은데 어느부분을고쳐야될까요??
선배님들부탁드립니다
(defun c:lle (/ ent n dis ent_l #a #ad #as )
(setvar "cmdecho" 0)
(setq ent (ssget '((0 . "LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE"))))
(setq n 0 dis 0)
(repeat (sslength ent)
(setq ent_l (ssname ent n))
(command-s "lengthen" ent_l "" "" "")
(setq dis (+ dis (GETVAR "PERIMETER")))
(setq n (1+ n))
)
(setq #a(strcat "" (rtos dis)))
(prompt (strcat "n" #a))
(vl-load-com)
(setq #ad(vla-get-activedocument (vlax-get-acad-object)))
(setq #as
(if (> (vla-get-activespace #ad) 0)
(vla-get-modelspace #ad)
(vla-get-paperspace #ad)
);;if
);;setq
(vla-addtext #as #a (vlax-3d-point (getpoint "n≫≫≫Pick text point:"))(* (getvar "textsize")1.0))
(mapcar 'vlax-release-object (list #as #ad))
(princ)
(setvar "cmdecho" 1)
)
관련자료
댓글 2
/ 1 페이지
