님이 말씀하신대로 찾았는데
님이 올리신 리습은 로드하니
Loading D:LSP연장합.lsp …
Error: misplaced dot*Cancel*
이런 메세지가 떠서 그 밑의 자료를 받앗는데
이 리습은 오브젝트를 찍으면 색이 변하지안아 찍었는지 안찍엇는지
잘 확인이 안됩니다. 찍은것은 색이 변하도록
수정 좀 부탁드립니다.
민폐를 끼쳐 죄송합니다.
(defun c:getlength ( / 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
)