有没有办法我点击一根多段线，就能够把这根线段的长度记录下来

sxz4494

有没有办法我点击一根多段线，就能够把这根线段的长度记录下来，只要能够记录下来可以复制 就可以了，因为我需要量很多线段的长度 总要去看属性 然后记录下来，如果能够实现 我就可以按照我想象的线段顺序依次点击，这些线段的长度可以复制下来 就好了

Joseflin

指令LIST or LENGTHEN

ljpnb

可以编程实现啊

sxz4494

可是 我编程不知道从哪儿开始啊

 

xyp1964

2. (load "xyp_lib.vlx") ;版本 V.20060210
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
12. |;
13. ;;;线长统计
14. (defun c:test001 ()
15.   (CMDLA0)
16.   (setq ss  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
17. sum 0
18. i   -1
19.   )
20.   (while (setq s1 (ssname ss (setq i (1+ i))))
21.     (setq l   (xyp-get-CurveLength s1)
22.    sum (+ sum l)
23.     )
24.     (princ"\n")
25.     (princ l)
26.   )
27.   (princ "\n总线数 = ")
28.   (princ i)
29.   (princ "\n总线长 = ")
30.   (princ (rtos sum 2 3))
31.   (CMDLA1)
32. )

(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屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] |; ;;;线长统计 (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) )