通信人家园

标题: CAD线段求和 [查看完整版帖子] [打印本页]

时间: 2012-12-26 17:00

作者: gz9955 标题: CAD线段求和

用法：将下面的代码复制在记事本内，将txt文件另存为zz.lsp文件，在CAD的命令行中输入Appload或点击工具--加载应用程序，打开加载/卸载对话框，把zz.lsp文件复制到已打开的文件夹中，选择下载的附件文件，然后点击内容--加载--选中文件--点击关闭即可，文件名是ZZ，点击加载/关闭即可。在CAD命令行中输入ZZ，选择要统计线段长度的所有线段,结果马上出来。

代码如下：
;;;-----------------------------------------------------
;;;计算线加总长度
;;;-----------------------------------------------------
(defun C:zz (/ 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)
)

[attach]198746[/attach]

时间: 2013-1-2 16:49

作者: wuwuwu111

谢谢分享

时间: 2013-1-8 11:32

作者: wangchao757

good

时间: 2013-5-10 09:15

作者: xlzy414

很好，试试管用不

时间: 2013-7-19 12:03

作者: shaoyon12345678

急需需要这信息

时间: 2013-12-16 15:36

作者: 若无边

顶~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

时间: 2013-12-24 13:44

作者: qangw

学习学习

时间: 2014-3-10 20:50

作者: mzg12212

试试吧，应该不错吧，谢谢

时间: 2014-4-6 16:08

作者: 启航航行

不知道管用吗

时间: 2014-5-13 13:58

作者: WUHAIBING

好用，方便

时间: 2014-5-15 10:07

作者: w_tower

这个东西太有用了

时间: 2014-6-11 17:54

作者: 小躲d

谢谢

时间: 2014-8-3 20:39

作者: zhuce11

非常有用，太感谢啦

时间: 2014-8-24 10:07

作者: shadazui

感谢楼主分享

时间: 2014-9-3 20:15

作者: lcz314702

能根据用户需求的网站就是好网站，这里找到我要的东东了

时间: 2014-10-2 23:16

作者: ytt77

谢谢楼主分享》。。。

时间: 2014-10-12 11:05

作者: xiao198924

非常感谢。很棒

时间: 2014-10-15 10:59

作者: ffantasymao

好东西找了很久

时间: 2014-12-20 15:49

作者: xiao198924

非常好用。感谢感谢

时间: 2015-3-29 09:15

作者: xibusajia

急需啊，急需

时间: 2015-4-6 10:40

作者: hao158233607

好贴，找你好久了

时间: 2015-5-22 12:50

作者: 597804306

jsdkfhashfjksdhakfhk

时间: 2015-6-11 10:23

作者: baobaoai

haoyong

时间: 2015-6-11 10:25

作者: baobaoai

都不知道你们怎么回帖的根本就是假的下载的根本没有用

时间: 2015-7-8 08:49

作者: bhr@19911016

时间: 2015-7-20 16:29

作者: jxph099635

谢谢分享~~~~~

时间: 2015-8-10 17:21

作者: 论坛图书馆群组

不错

时间: 2015-8-18 14:15

作者: tomastefraul123

download right

时间: 2015-8-26 14:43

作者: caiyj31

谢谢分项

时间: 2015-9-9 21:17

作者: zzh7895

试试吧，应该不错吧

时间: 2015-9-14 22:52

作者: 夏d

谢谢分享

时间: 2015-9-18 12:28

作者: xtjjyga

一直在想应该是有这个功能的，现在才找到。

时间: 2015-10-19 21:36

作者: chenyuanlichen

求能下载

时间: 2015-11-4 15:39

作者: 123buyaosh

急需啊，急需

时间: 2015-11-5 16:15

作者: ll222

谢谢

时间: 2016-5-14 21:31

作者: yjmciq

学习一下

时间: 2016-5-26 19:12

作者: daej

非常感谢楼主~！真的很好用

时间: 2016-6-15 20:50

作者: QGC1987

大家好，我是新用户，用CAD好长时间了，一直找不到累计线的长度命令。今日看到，非常想要。谢谢

时间: 2016-6-15 20:53

作者: QGC1987

我试了下，用不了啊。
显示是：; 错误: no function definition: VLAX-ENAME->VLA-OBJECT
麻烦高手指点下哦。我的QQ463240225

时间: 2016-6-15 20:54

作者: QGC1987

高手指点下哦。谢谢了

错误: no function definition: VLAX-ENAME->VLA-OBJECT

时间: 2017-6-21 23:31

作者: King110908

谢谢！

时间: 2017-6-27 15:37

作者: 小笨蛋的儿子

一直在学习CAD，想学到更多的关于CAD的东西来提升自己

时间: 2017-6-29 08:46

作者: super__m

好东西！虽然简单，但是实用！谢谢分享

时间: 2017-6-29 11:32

作者: xbt102010

撒大声地多发发生

时间: 2017-10-3 19:06

作者: 耶耶耶切克闹

很好用

时间: 2017-10-13 10:20

作者: 来易来，去难去

时间: 2017-10-13 16:02

作者: 半条毛毛虫

很好用谢谢分享

时间: 2019-12-26 20:43

作者: 13998408812

找了好久，希望能用

通信人家园 (https://www.txrjy.com/)