跪求CAD中多条线段长度相加的vlisp命令

271682673

各位大大帮帮忙，我想要2个命令。一个是选中多跟线段，能将他们的长度相加，以计算式的方式输出，而不是出来一个总和。例如选中了A跟B两根线段，在命令行输出：A的线长+B的线长

1. (defun c:jss ()
   
2.   (setq ss1 (ssget '((0 . "line"))))
   
3.   (setq n 0
   
4.         sum 0
   
5.         LL ""
   
6.   )
   
7.   (if (> (sslength ss1) 1)
   
8.     (progn
   
9.       (repeat (sslength ss1)
   
10.         (setq ssn (ssname ss1 n)
    
11.               pt1 (cdr (assoc 10 (entget ssn)))
    
12.               pt2 (cdr (assoc 11 (entget ssn)))
    
13.               L (distance pt1 pt2)
    
14.               Sum (+ sum L)
    
15.               LL (strcat LL (rtos L 2) " + ")
    
16.               n (1+ n)
    
17.         )
    
18.       )
    
19.       (setq ss (strcat (vl-string-trim " + " LL) " = " (rtos Sum 2)))
    
20.     )
    
21.   )
    
22.   (princ ss)
    
23.   (princ)
    
24. )
    

(defun c:jss ()<br />   (setq ss1 (ssget '((0 . "line"))))<br />   (setq n 0<br />         sum 0<br />         LL ""<br />   )<br />   (if (> (sslength ss1) 1)<br />     (progn<br />       (repeat (sslength ss1)<br />         (setq ssn (ssname ss1 n)<br />               pt1 (cdr (assoc 10 (entget ssn)))<br />               pt2 (cdr (assoc 11 (entget ssn)))<br />               L (distance pt1 pt2)<br />               Sum (+ sum L)<br />               LL (strcat LL (rtos L 2) " + ")<br />               n (1+ n)<br />         )<br />       )<br />       (setq ss (strcat (vl-string-trim " + " LL) " = " (rtos Sum 2)))<br />     )<br />   )<br />   (princ ss)<br />   (princ)<br /> )<br />

以上一大神提供的简单命令，但是还存在诸多问题，在选中线段对象时，有的能选中，有的选不中，我是vlisp小白，命令完全看不懂，求指点。 上图中，4跟6旁边的小线段能选中，可是粗的线选不中，这是为什么呢？！求大神帮忙改进一下，最好能将输出的每个线长值缩小1000倍，并保留一位小数，并将小数位四舍五入（另一种将小数位取整，例如量到的12345，则输出12.4【12345/1000之后将小数位的0.345取整成0.4】）

另求另一种命令，像CAD自带的di命令一样，将量到的线长输出，但是di命令不能一起量取多根线，就是想要个命令，例如ABCD 4个点，在输入这个命令之后，我点ABCD4个点，能输出：AB线长+BC线长+CD线长。（输出的每个线长值也要缩小1000倍，小数点后保留一位，四舍五入and取整 2种方案）。还有种命令，点AB之后，按逗号或者别的什么休止符，再点CD，能输出AB线长+CD线长。（结果希望都能缩小1000倍，四舍五入和取整2个方案，2种方案分2个命令，不要合在一起）
谢谢大家了，我是贪心了哈！！

newer

先用  多段线 求和   做关键字搜索下论坛，看看。

ScmTools

这里有求任意曲线长度的函数: http://www.xdcad.net/forum/thread-667656-1-2.html

st788796

list就可以显示长度

laibinwu

随便抄了抄别人的代码给你了，可以是线段、多段线圆弧长度都能计算的。

1. (defun c:tt (/ ss i cd dc ll obj str)
   
2.   (vl-load-com)
   
3.   (if (setq
   
4.         ss (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))
   
5.       )
   
6.     (progn
   
7.       (setq i  0
   
8.             cd 0
   
9.             ll ""
   
10.       )
    
11. 
    
12.       (repeat (sslength ss)
    
13.         (setq obj (vlax-ename->vla-object (ssname ss i)))
    
14.         (setq dc (vlax-curve-getdistatparam
    
15.                    obj
    
16.                    (vlax-curve-getendparam obj)
    
17.                  )
    
18.         )
    
19.         (setq cd (+ cd dc)
    
20.               ll (strcat ll (rtos (* 0.001 dc) 2 1) " + ")
    
21.               i         (1+ i)
    
22.         )
    
23.       )
    
24.       (setq str        (strcat        (vl-string-trim " + " ll)
    
25.                         " = "
    
26.                         (rtos (* 0.001 cd) 2 1)
    
27.                 )
    
28.       )
    
29.     )
    
30.   )
    
31.   (princ str)
    
32.   (princ)
    
33. )

(defun c:tt (/ ss i cd dc ll obj str)<br />   (vl-load-com)<br />   (if (setq<br />         ss (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))<br />       )<br />     (progn<br />       (setq i  0<br />             cd 0<br />             ll ""<br />       )<br /> <br />       (repeat (sslength ss)<br />         (setq obj (vlax-ename->vla-object (ssname ss i)))<br />         (setq dc (vlax-curve-getdistatparam<br />                    obj<br />                    (vlax-curve-getendparam obj)<br />                  )<br />         )<br />         (setq cd (+ cd dc)<br />               ll (strcat ll (rtos (* 0.001 dc) 2 1) " + ")<br />               i         (1+ i)<br />         )<br />       )<br />       (setq str        (strcat        (vl-string-trim " + " ll)<br />                         " = "<br />                         (rtos (* 0.001 cd) 2 1)<br />                 )<br />       )<br />     )<br />   )<br />   (princ str)<br />   (princ)<br /> )

newer

在选中线段对象时，有的能选中，有的选不中

从代码看，是让你选LINE，只要你选的LINE,是肯定能选中的，你看看你选的线是不是有不是LINE的？

yoyoho

感谢laibinwu 分向源码学习!

xingwan2013

感谢laibinwu 分享源码，要是结果能以文本方式写入就更好了:):):):):)