能否开发一个计算线段长度的工具?
hitee_lg
hitee_lg Lv.7
2010年10月28日 16:05:48
只看楼主

请教各位高手:做电气预算,很多时候需要计算图面管线长度。能否开发一个工具,能够读出选定的线条长度,并进行简单的计算。我知道通过“特性”能够读取单一线条长度,能否将所有的“特性”中长度读出来。

请教各位高手:
做电气预算,很多时候需要计算图面管线长度。能否开发一个工具,能够读出选定的线条长度,并进行简单的计算。
我知道通过“特性”能够读取单一线条长度,能否将所有的“特性”中长度读出来。
免费打赏
xu236303045
2010年10月30日 00:13:25
2楼
都是用pl,然后li读出,不过我用过鲁班都可以
回复
hitee_lg
2010年10月30日 10:17:12
3楼
用PL感觉还是不够智能,要是能够选到图层,直接读取就好了。
回复
mhqychen
2010年11月01日 15:28:39
4楼
花钱请人写,我经常这么干,几百就够了,可以输出到EXCEL
回复
小萝卜的头
2010年11月03日 16:56:28
5楼
回复
小萝卜的头
2010年11月03日 16:56:55
6楼

几百就够了???

有兴趣可以联系我,一百就够了。哈哈
回复
pibenben
2010年11月04日 09:19:45
7楼
这个程序网上有啊 我一直在用蛮好用的
回复
zml84
2010年11月05日 10:02:41
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]
回复
liyp7608826
2010年11月29日 21:16:37
9楼
下来看看,多谢楼主的资料。学习中!非常感谢:victory:
回复

相关推荐

APP内打开