[寻找]：请问谁有统计多义线长度的程序？

szroadman

请问谁有统计多义线长度的程序，现在我只有LIST之后，记下长度，最后求和，太麻烦了，求救各位是否有类似程序。谢谢。

zlj

我有你要的程序。
一次可以统计量为海量，只要框住所在的多义线，几分种全部搞定。
用于规划的中，简直太爽了。
qq
54101230

szroadman

经过努力终于在http://www.mjtd.com/a2/list.asp?id=319
找到了，谢谢作者龙龙仔的好作品。
转载如下，大家共享！

;;;-----------------------------------------------------
;;;计算线加总长度
;;;-----------------------------------------------------
(defun C:LENOF (/ CURVE TLEN SS N SUMLEN)
  (vl-load-com)
  (setq SUMLEN 0)
  (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
  (setq N 0)
  (repeat (sslength SS)
    (setq CURVE (vlax-ename->vla-object (ssname SS N)))
    (setq TLEN (vlax-curve-getdistatparam
CURVE
(vlax-curve-getendparam CURVE)
       )
    )
    (setq SUMLEN (+ SUMLEN TLEN))
    (setq N (1+ N))
  )
  (print (strcat "总长度: " (rtos SUMLEN 2 5)))
  (princ)
)