[编程申请]：有线段长度求和的统计吗

tq888

我不知道这个问题有没人问过，谢谢

1。选择几个线段求其长度的和
2。当前层所有线段的长度和

这些问题在安装工程设计的时候非常有用，因为有很多的管、线长度要统计，在工具箱里有图块数量的统计，可否加上线段长度的统计。
再次感谢

msdg

用AD.LSP标出各线段的长度,然后用"文字修改大师"统计总长并标在图上.
为何FLASH传不上?

snsj

最初由 tq888 发布
[B]我不知道这个问题有没人问过，谢谢

1。选择几个线段求其长度的和
2。当前层所有线段的长度和

这些问题在安装工程设计的时候非常有用，因为有很多的管、线长度要统计，在工具箱里有图块数量的统计，可否加上线... [/B]

1.
[php]
(defun c:ln (/ b)
(vl-load-com)(setq b 0)(ssget '((0 . "line")))
(vlax-map-collection (vla-get-activeselectionset
                       (vla-get-activedocument(vlax-get-acad-object)))
  '(lambda (x)(setq b(+(vla-get-length x)b))))
(princ b)(princ)
  )
[/php]
2.
[php]
(defun c:lth (/ b)
(vl-load-com)(setq b 0)
(ssget "x" (list'(0 . "LINE")(cons 8(getvar "clayer"))))
(vlax-map-collection (vla-get-activeselectionset
                       (vla-get-activedocument(vlax-get-acad-object)))
  '(lambda (x)(setq b(+(vla-get-length x)b))))
(princ b)(princ)
  )
[/php]

tq888

谢谢snsj 啊，这么快就写好了呀，真是钦佩
可是我不会用啊，可以给我个启蒙的链接吗
再次麻烦了呀

XDSoft

最初由 tq888 发布
[B]我不知道这个问题有没人问过，谢谢

1。选择几个线段求其长度的和
2。当前层所有线段的长度和

这些问题在安装工程设计的时候非常有用，因为有很多的管、线长度要统计，在工具箱里有图块数量的统计，可否加上线... [/B]

晓东工具箱下曲线工具里面提供了“曲线长度”工具，你看看下面的教学中心的两个教学：

http://www.xdcad.net/techcenter/ ... =&articleid=146

http://www.xdcad.net/techcenter/ ... &articleid=1703

XDSoft

最初由 msdg 发布
[B]用AD.LSP标出各线段的长度,然后用"文字修改大师"统计总长并标在图上.
为何FLASH传不上? [/B]

是不是FLASH文件长度超过500K了？

你用下“斑竹论坛”里面提供给斑竹的方法，传上去后，引用到论坛来显示，这样方便以后整理。

或者做成教学，发到“教学中心”吧。

tq888

谢谢XDSoft了，都这么晚了
我看拉那两个演示，谢谢，没有注意到，嘻嘻
那在工具箱里有统计所选层的所有线段长度的工具吗




呵呵，今天终于搞清楚怎么用了，
太谢谢了，真的好用，就是我太笨了，到现在才明白