请教各位高手：做电气预算，很多时候需要计算图面管线长度。能否开发一个工具，能够读出选定的线条长度，并进行简单的计算。我知道通过“特性”能够读取单一线条长度，能否将所有的“特性”中长度读出来。
请教各位高手：
做电气预算，很多时候需要计算图面管线长度。能否开发一个工具，能够读出选定的线条长度，并进行简单的计算。
我知道通过“特性”能够读取单一线条长度，能否将所有的“特性”中长度读出来。
2楼
都是用pl，然后li读出，不过我用过鲁班都可以
回复
3楼
用PL感觉还是不够智能，要是能够选到图层，直接读取就好了。
回复
4楼
花钱请人写，我经常这么干，几百就够了，可以输出到EXCEL
回复
5楼
回复
6楼
几百就够了？？？
有兴趣可以联系我，一百就够了。哈哈
回复
7楼
这个程序网上有啊 我一直在用蛮好用的
回复
8楼
[code];;;=================================================================*
;;;功能：测量线的长度 *
;;;日期：zml84 于 2009-05-21 17:45 *
(defun C:cd ()
(princ "统计线段长度")
(if (setq SS (ssget '((0 . "LINE,ARC,CIRCLE,ELLIPSE,*POLYLINE,SPLINE"))
)
)
(progn
;;
(setq LST_LEN '()
I 0
)
;;逐个统计
(repeat (sslength SS)
(setq EN (ssname SS I)
LEN (vlax-curve-getdistatparam
EN
(vlax-curve-getendparam EN)
)
LST_LEN (cons LEN LST_LEN)
I (1+ I)
)
)
(setq LST_LEN (reverse LST_LEN))
;;显示输出
(princ "\n找到个数：")
(princ (sslength SS))
(princ "\n单个长度：")
(princ LST_LEN)
(princ "\n总计长度：")
(princ (apply '+ LST_LEN))
)
)
(princ)
)
;;;=================================================================*
;;;(alert
;;; "功能：统计线段长度\n命令：\"CD\"\n日期：zml84 于 2009-05-21 17:45"
;;;)
(princ)[/code]
回复
9楼
下来看看，多谢楼主的资料。学习中！非常感谢:victory:
回复
