本人新手。。。还望指点怎么用。。。比较急，在线等。。。多谢各位高手：）:hug:
本人新手。。。还望指点怎么用。。。比较急，在线等。。。多谢各位高手：）:hug:
2楼
本论坛有个常青藤软件，安装后挂在CAD上，有这个功能，你可以搜索一下
回复
3楼
;;;-----------------------------------------------------
;;;计算线加总长度
;;;-----------------------------------------------------
(defun C:LF (/ CURVE TLEN SS N SUMLEN)
(vl-load-com)
(setq SUMLEN 0)
(setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
(setq N 0)
(repeat (sslength SS)
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
(setq TLEN (vlax-curve-getdistatparam
CURVE
(vlax-curve-getendparam CURVE)
)
)
(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
)
(print (strcat "总长度: " (rtos SUMLEN 2 5)))
(princ)
)
回复
4楼
;;;-----------------------------------------------------
;;;计算线加总长度
;;;-----------------------------------------------------
(defun C:LF (/ CURVE TLEN SS N SUMLEN)
(vl-load-com)
(setq SUMLEN 0)
(setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
(setq N 0)
(repeat (sslength SS)
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
(setq TLEN (vlax-curve-getdistatparam
CURVE
(vlax-curve-getendparam CURVE)
)
)
(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
)
(print (strcat "总长度: " (rtos SUMLEN 2 5)))
(princ)
)
回复
5楼
加载程序，输入命令AM，根据提示在图纸中插入文字，他可以标注出你所要求取的对象的长度和面积之和。
回复
6楼
高人啊
回复
7楼
谢谢5楼:victory:
回复
8楼
张天师果然是高人，请收我为徒吧
回复
9楼
谢谢了，很好的工具
回复
10楼
以前有个高手做的，我觉得很好用的，我经常用的。
回复
11楼
输入的列表有缺陷
不能用啊，我用的是CAD2008
回复
