[编程申请]：如何将多条线段的长度自动计算求和？

xyp1964

不用太复杂，列出线长并求累计总长。
[php]
(defun c:test ()
  (setq cmdech (getvar"CMDECHO") os (getvar"osmode") sum 0 i 0 ss (ssget))
  (setvar"CMDECHO"0)
  (setvar"osmode"0)
  (repeat (sslength ss)
    (setq en (ssname ss i))
    (command"lengthen"en"")
    (setq l (getvar"perimeter"))
    (setq sum (+ sum l) i (+ i 1) ) )
  (setvar"osmode"os)
  (setvar"CMDECHO"cmdech)
  (princ"\n选线总长 = ")
  (princ sum)
  (princ)
)

[/php]

nuomandi

这里真是个好地方！！

wpm8631

怎么才能下载附件啊，我看到里面有好多好多好东东，可是没资格下载啊，真急人！能不能。。。。。。

82406515

16楼楼主啊
你那个程序怎么加载 啊

xyp1964

最初由 82406515 发布
[B]16楼楼主啊
你那个程序怎么加载 啊 [/B]

(load"test041.lsp")

82406515

最初由 xyp1964 发布
[B]

(load"test041.lsp") [/B]

不知道大哥可部可以在软件最后总长的后面加一个单位，毫米啊

xyp1964

没有必要吧，自己画图应该知道单位是什么，不一定是毫米单位。
如果是总图，单位应该是米才合适。

82406515

有道理

whjwywty

非常感谢楼主

rjljh

xyp1964  的程序很实用，但能不能做点改进，就是每条线旁标上线长，因为如果线条多的话不容易找到对应线的长度。

xyp1964

最初由 rjljh 发布
[B]xyp1964  的程序很实用，但能不能做点改进，就是每条线旁标上线长，因为如果线条多的话不容易找到对应线的长度。 [/B]

需求没有普遍意义。

f5612140

最初由 xyp1964 发布
[B]
需求没有普遍意义。 [/B]

哈哈,原來我做了好幾年沒有意義的事

xyp1964

最初由 f5612140 发布
[B]

哈哈,原來我做了好幾年沒有意義的事 [/B]

仅指其普遍性。
如果确实要标注，可以试试签名栏下的“坡度坡长”程序。

rjljh

toxyp1964
我们使用本程序的目的是制作工程清单，先列出分项再汇总是清单制作的普遍样式，而这个程序无法准确知道每条线对应的长度，即使可以通过选择的先后大致定值，但本着对工作负责的态度，当我们需要对线长进行复核的时候，将仍然复杂。如果只要一个总长，那程序还可简化，不必在任务栏列出每段长。
而坡度坡长你更清楚它无法标注整根多段线长，它实现的不是这方面的功能。
一家之言，仅供参考！

xyp1964

标注线长并输出到文件：

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. ;;;标注线长并输出到文件
    
14. (defun c:test178 ()
    
15.   (CMDLASC0)
    
16.   (setvar "osmode" 0)
    
17.   (princ "\n选择曲线 : ")
    
18.   (mkla "线长" 4)
    
19.   (setq        ss  (ssget '((0 . "*LINE,CIRCLE,ELLIPSE,ARC")))
    
20.         tx2 (UKWORD 7 "Y N" "\n是否输出线长数据：Y-是/N-否" tx2)
    
21.         sum 0
    
22.         i   -1
    
23.   )
    
24.   (if (= tx2 "Y")
    
25.     (progn
    
26.       (setq ffn        (getfiled "\n保存的线长数据文件" "线长" "txt" 1)
    
27.             ff        (open ffn "w")
    
28.       )
    
29.     )
    
30.   )
    
31.   (while (setq en (ssname ss (setq i (1+ i))))
    
32.     (setq PT        (vlax-curve-getstartPoint en)
    
33.           etype        (dxf 0 (entget en))
    
34.           pt-tx        (polar pt (* pi 0.75) (* sc 200))
    
35.           l        (vlax-curve-getDistAtParam en (vlax-curve-getEndParam en))
    
36.           tx        (strcat        (rtos l 2 3)
    
37.                         " ("
    
38.                         etype
    
39.                         " L"
    
40.                         (rtos (+ i 1) 2 0)
    
41.                         ") "
    
42.                 )
    
43.           sum        (+ sum l)
    
44.     )
    
45.     (if        (= tx2 "Y")
    
46.       (write-line tx ff)
    
47.     )
    
48.     (XIEZI pt-tx tx)
    
49.   )
    
50.   (if (= tx2 "Y")
    
51.     (progn
    
52.       (setq tx (strcat "选线总长 = " (rtos sum 2 3)))
    
53.       (write-line tx ff)
    
54.       (close ff)
    
55.       (princ (strcat "\n线长数据写至文件=>" ffn))
    
56.     )
    
57.   )
    
58.   (princ "\n选线总长 = ")
    
59.   (princ sum)
    
60.   (CMDLA1)
    
61. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;<br /> <br /> ;;;标注线长并输出到文件<br /> (defun c:test178 ()<br />   (CMDLASC0)<br />   (setvar "osmode" 0)<br />   (princ "\n选择曲线 : ")<br />   (mkla "线长" 4)<br />   (setq        ss  (ssget '((0 . "*LINE,CIRCLE,ELLIPSE,ARC")))<br />         tx2 (UKWORD 7 "Y N" "\n是否输出线长数据：Y-是/N-否" tx2)<br />         sum 0<br />         i   -1<br />   )<br />   (if (= tx2 "Y")<br />     (progn<br />       (setq ffn        (getfiled "\n保存的线长数据文件" "线长" "txt" 1)<br />             ff        (open ffn "w")<br />       )<br />     )<br />   )<br />   (while (setq en (ssname ss (setq i (1+ i))))<br />     (setq PT        (vlax-curve-getstartPoint en)<br />           etype        (dxf 0 (entget en))<br />           pt-tx        (polar pt (* pi 0.75) (* sc 200))<br />           l        (vlax-curve-getDistAtParam en (vlax-curve-getEndParam en))<br />           tx        (strcat        (rtos l 2 3)<br />                         " ("<br />                         etype<br />                         " L"<br />                         (rtos (+ i 1) 2 0)<br />                         ") "<br />                 )<br />           sum        (+ sum l)<br />     )<br />     (if        (= tx2 "Y")<br />       (write-line tx ff)<br />     )<br />     (XIEZI pt-tx tx)<br />   )<br />   (if (= tx2 "Y")<br />     (progn<br />       (setq tx (strcat "选线总长 = " (rtos sum 2 3)))<br />       (write-line tx ff)<br />       (close ff)<br />       (princ (strcat "\n线长数据写至文件=>" ffn))<br />     )<br />   )<br />   (princ "\n选线总长 = ")<br />   (princ sum)<br />   (CMDLA1)<br /> )[/FONT]