[求助]如何统计线的长度之和？
 

[求助]如何统计线的长度之和？
www.dimcax.com
[求助]如何统计线的长度之和？
选中若干直线和多义线，自动计算出所有线的长度之和，并给出结果
不知道有没有这样的程序？
以前我自己统计直线的长度和的时候，就用了很笨的方法，就是每根线用两点坐标之差的平方和来计算出长度
也不知道有没有别的方法
而且我对多义线的长度就完全不知道怎么求
所以想请高手做个这样的程序，同时可以对直线和多义线的长度统计求和？
谢谢大家先
预祝圣诞快乐！
d
( c:tt ( ss loop num len)
( "cmdecho" 0)
( "\n选择需要计算长度的直线或多段线：")
( ss ( '((0 . "*line,arc,circle,ellipse")))
loop ( ( ss)
0
( ss)
)
num -1
len 0
)
( loop
( "._lengthen" ( ss ( num ( num))) "")
( len ( len ( "perimeter")))
)
( ( "\n" ( loop) "个对象总长 = " ( len 2 5)))
()
)
就简单点写个吧
oοо○oοо○oοо oοо○oοо○oοо o oοо○oοо○oοоoοо○oοо○oοо oοо○oοо○oοо oοо○oοо○oοо o
d
(defun c:len( / i len n ss)
(setq ss (ssget) i -1 len 0)
(repeat (sslength ss)
(setq n (vlax-ename->vla-object (ssname ss (setq i (1+ i)))))
(setq len (+ len (vlax-curve-getdistatparam n (vlax-curve-getendparam n))))
)
len
)
任意线的
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
太谢谢两位大侠了!
非常有用的程序啊
d
很早以前写了一个这方面的程序，看看能用不：）
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
( 1.37 kb，已被下载 6 次 )
对话框文件必须配合 lookat.lsp 文件才能显示相应对话框。
文件预览:
d
再次谢谢各位了!
我想再提一个请求!希望各位把程序深化一下
就是当线和线有重叠的时候,重叠部分的长度不重复计算,只算一次长度
不知道是否可以做到这个功能?
谢谢大家!