[日积月累]：大家帮个忙！怎么在图形中统计管线的长度呀？

cclqj

现在我要在图形中统计各种管线的长度，手工统计很麻烦，能不能有什么工具或者好的办法？拜托大家了。

冰城血

这些管线是单独的一个图层吗？

笑傲糨糊

如果管线含有曲线、圆弧、PLINE线、SPLINE线的话，你可以搜索一下，本论坛有这么一个程序，好像还有一个不用程序的方法。如果只是LINE直线的话，我这个临时编的程序能够派派用处。
  (defun c:ss (/ sset pt1 pt2 dis diss)
     (setq diss 0.0)
     (setq sset (ssget))
     (setq sslen (sslength sset))
     (while (> sslen 0)
       (setq elist (entget (ssname sset (setq sslen (1- sslen)))))
       (if (= (cdr (assoc 0 elist)) "LINE")
          (progn
             (setq pt1 (cdr (assoc 10 elist)))
             (setq pt2 (cdr (assoc 11 elist)))
             (setq dis (distance pt1 pt2))
             (setq diss (+ diss dis))
          )
       )
     )
    (princ "\n总长：")
   diss
)

lsjjm

REFER TO:
(defun c:test ()
  (vl-load-com)
  (setq ss (ssget '((0 . "ARC,CIRCLE,ELLIPSE,*LINE"))))
  (setq n 0 sum 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (setq sum (+ sum (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))))
    (setq n (1+ n))
  )
  sum
)