[求助]：SOS！！！请问各位专家，如何对多条线段的长度自动求和？

cqfyy

SOS！！！请问各位专家，如何对多条线段的长度自动求和？比如在计算水管的长度时不同管径的管道分布在不同的位置，能否用一个命令把同一口径的管道一次计算出总长？

ctqs

先用pe命令將其連成一個多段線 再選定此多段線 命令li 就會顯示總長度

suses

最初由 cqfyy 发布
[B]SOS！！！请问各位专家，如何对多条线段的长度自动求和？比如在计算水管的长度时不同管径的管道分布在不同的位置，能否用一个命令把同一口径的管道一次计算出总长？ [/B]

如果你这样要求的话，恐怕只有专业的管道软件了

zp001

恩，，用一些专业软件比较好

我就是天狼

不同位置的线段长度自动求和,恐怕不行吧,还是用专业软件试试!

oygn

一般情况下就用2楼的方法，当然pe命令不一定能把所有的直线和弧合并成一条多段线，不过比一条条的累加还是方便多了。要是功能还要强大，只能用别的程序了。

highflybird

(defun c:dx (/ ss n sum ent verr msg)
  (setq verr (atoi (getvar "acadver")))
  (if (and (or (member "vlide.arx" (arx))
               (member "vl.arx" (arx))
           )
           (> verr 13)
     )
     (progn
        (if (>= verr 16)(vl-load-com))
        (setq ss (ssget '((0 . "ARC,CIRCLE,ELLIPSE,LINE,SPLINE,POLYLINE,LWPOLYLINE"))))
        (if ss
           (progn
              (setq n 0 sum 0)
              (while (< n (sslength ss))
                 (setq ent (vlax-ename->vla-object (ssname ss n)))
                 (setq sum (+ sum (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent))))
                 (setq n (1+ n))
              )
              (princ "\nTotal.Length: ")(princ sum)
           )
        )
     )
     (progn
        (setq msg (strcat "\nThis program NOT support:\nAutoCAD(R)-13/earlier.\n\n"
                          "\nsupport:\nVisualLISP(R)-14\nAutoCAD(R)-2000/later."))
        (if (<= verr 13)
           (progn (textpage)(princ (strcat "\n********" msg "\n********")))
           (alert msg)
        )
     )
  )
  (princ)
)

nange

我是用外挂的 用常青藤外挂 http://www.xdcad.net/forum/showthread.php?s=&threadid=322975
个人感觉比较好用
另外强调一点
楼上可是位顶尖高手!!

胖娃娃

这个程序用不了啊！！！！！！！！！！！！

gao51788

我怎么不能下载附件呢？

gdp_1983

加载后lens命令运行即可，应该可以解决楼上的问题

ljttjl

明经CAD社区 → 工程篇 → 机械工程 → 分类统计线长程序
http://www.mjtd.com/BBS/dispbbs. ... ID=72982&page=1

protossking

你在绘图时可以将管线采用固定的图层或线宽，绘完后采用cad的快速选择系统选择需要统计的管线，然后利用常青藤或贱人工具箱或专门的lisp文件进行统计，晓东里面有很多