[编程申请]：求助计算线段总长

zjb27

时常要测量CAD图纸中的几段LINE或PL线的总长度，请教有没有小LISP程序可自动计算以达到我的目的？请各位大虾帮忙！

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun th1-get-curve-length-ss (ss / ss s1 sum i l)
   
5.   (if (= nil ss)
   
6.     (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))
   
7.   )
   
8.   (setq sum 0
   
9.         i -1
   
10.   )
    
11.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
12.     (setq l (th-get-curve-length s1)
    
13.           sum (+ sum l)
    
14.     )
    
15.   )
    
16. )
    
17. (defun th-get-curve-length (obj)
    
18.   (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))
    
19. )
    
20.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun th1-get-curve-length-ss (ss / ss s1 sum i l)<br />   (if (= nil ss)<br />     (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))<br />   )<br />   (setq sum 0<br />         i -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq l (th-get-curve-length s1)<br />           sum (+ sum l)<br />     )<br />   )<br /> )<br /> (defun th-get-curve-length (obj)<br />   (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))<br /> )<br />   [/FONT]<br />

再来个纯LISP的

2. 
   
3.   [FONT=courier new]
   
4. (defun tst(ss / ss s1 i l)
   
5.   (if (= nil ss)
   
6.     (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))
   
7.   )
   
8.   (setq l 0
   
9.         i -1
   
10.   )
    
11.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
12.     (command "._list" s1 "")
    
13.     (setq l (+ l (getvar "PERIMETER")))
    
14.   )
    
15. );;;只对封闭曲线有效
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun tst(ss / ss s1 i l)<br />   (if (= nil ss)<br />     (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))<br />   )<br />   (setq l 0<br />         i -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (command "._list" s1 "")<br />     (setq l (+ l (getvar "PERIMETER")))<br />   )<br /> );;;只对封闭曲线有效<br />   [/FONT]<br />

zjb27

高手，谢谢了

fjwlt

好东西啊！谢谢

yuangwei

地鼠精灵好象可以

xiaoyanyan

(defun C:LENOF (/ 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))
  )
  (alert (strcat "\n总长度: " (rtos SUMLEN 2 5)(princ "米")))
  (princ)
)

zlh2002

谢谢，好

xuiaoboo

高手，谢谢了

trizi

sfsdfsdgsdgsd

qsb506

我也正想要这个，谢楼上几位

zyf712

请问这要怎么用啊？

zsg1085

真是高手如支呀

xumin4108518

高手