선 길이 합산 리습
1.로드방법:1)명령어 appload 2)다운받은파일 로드 2.사용방법: 1)명령어:leto 2)선,원,호,스플라인,폴리라인 등등...클릭 or 드래그 3)prompt창에 길이합계= ??? 출력...끝 3.리습편집:붉은색 leto 를 원하는 명령어로 수정 (defun c:leto () (vl-load-com) (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 (+ di..