이 리습에 추가적으로 길이를 화면이 아닌 텍스트로 찍어내려 합니다.
흔히 보던 리습이 아니라서..
변수를 찍으라는 명령을 어떻게 내려야 하는걸까요…
(defun c:gl ( / ep d n ss)
(vl-load-com)
(setq ss (ssget ‘((0 . “lwpolyline,polyline,line,arc,ellipse,spline,circle”))))
(setq n -1 d 0)
(repeat (sslength ss)
(setq n (1+ n)
e (vlax-ename->vla-object (ssname ss n))
ep (vlax-curve-getEndParam e)
d (+ d (vlax-curve-getDistAtParam e ep))
)
)
d
)