有没有办法我点击一根多段线，就能够把这根线段的长度记录下来
有没有办法我点击一根多段线，就能够把这根线段的长度记录下来，只要能够记录下来可以复制 就可以了，因为我需要量很多线段的长度 总要去看属性 然后记录下来，如果能够实现 我就可以按照我想象的线段顺序依次点击，这些线段的长度可以复制下来 就好了 指令LIST or LENGTHEN 可以编程实现啊 <P>可是 我编程不知道从哪儿开始啊</P><P> </P> (load "xyp_lib.vlx") ;版本 V.20060210
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554
|;
;;;线长统计
(defun c:test001 ()
(CMDLA0)
(setq ss(ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
sum 0
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq l (xyp-get-CurveLength s1)
sum (+ sum l)
)
(princ"\n")
(princ l)
)
(princ "\n总线数 = ")
(princ i)
(princ "\n总线长 = ")
(princ (rtos sum 2 3))
(CMDLA1)
)
页:
[1]