면적리습으로 한건데요.
명령: AS
객체 선택: 1개를 찾음
객체 선택: 832602.0
Adding 1
Texts:
The Result is: 0.83
Do You Want Write it into the DWG? <y>
Text Point:
Text Height: 2.5 : 300
text
이렇게 원하는 객체를 선택해서 면적이 글씨로 나오게 하고 싶어서 그런데요.
길이합을 선택하면 전에는 사용했는데 갑자기 안되어서요..
길이 합 리습
(vl-load-com)
(defun c:lle ()
(setq ent (ssget ‘((0 . “LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE”))))
(setq n 0 dis 0)
(repeat (sslength ent)
(setq en (vlax-ename->vla-object (ssname ent n)))
(setq ep (vlax-curve-getEndParam en))
(setq dis (+ dis (vlax-curve-getDistAtParam en ep)))
(setq n (1+ n))
)
(prompt (strcat ” 길이합계 = ” (rtos dis)))(princ)
)
LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE 이외의것은 선택이 안됩니다.
수정하고 싶습니다.
오토캐드 클래식에서 사용 하고 싶은데 오토캐드 클래식에선 메모창에 길이합이 안보이고,
제도 및 주석에서는 메모창에만 보여서 체크한 것을 바로 숫자로 적혀지게 해서 하고 싶습니다.