[LISP函数]：曲线选集长度求和

taner

2. 
   
3.   [FONT=courier new]
   
4. ;|曲线选集长度求和 精简代码---陌生人.2004.1
   
5. 测试: (x_lens nil)
   
6. |;
   
7. (defun x_lens (ss / ss ssv lens)
   
8.   (if (= nil ss)
   
9.     (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
   
10.   )
    
11.   (setq        ssv  (vla-get-activeselectionset
    
12.                (vla-get-activedocument (vlax-get-acad-object))
    
13.              )
    
14.         lens 0
    
15.   )
    
16.   (vlax-for obj        ssv
    
17.     (setq lens (+ lens
    
18.                   (vlax-curve-getdistatparam
    
19.                     obj
    
20.                     (vlax-curve-getendparam obj)
    
21.                   )
    
22.                )
    
23.     )
    
24.   )
    
25. )
    
26.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;|曲线选集长度求和 精简代码---陌生人.2004.1<br /> 测试: (x_lens nil)<br /> |;<br /> (defun x_lens (ss / ss ssv lens)<br />   (if (= nil ss)<br />     (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))<br />   )<br />   (setq        ssv  (vla-get-activeselectionset<br />                (vla-get-activedocument (vlax-get-acad-object))<br />              )<br />         lens 0<br />   )<br />   (vlax-for obj        ssv<br />     (setq lens (+ lens<br />                   (vlax-curve-getdistatparam<br />                     obj<br />                     (vlax-curve-getendparam obj)<br />                   )<br />                )<br />     )<br />   )<br /> )<br />   [/FONT]<br />

参考xyp版主所得同样功能的函数如下:

2. 
   
3.   [FONT=courier new]
   
4. (defun th2-getobjlengthofss (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-getobjlength s1)
    
13.           sum (+ sum l)
    
14.     )
    
15.   )
    
16. )
    
17. ;求单曲线长
    
18. (defun th-getobjlength (obj)
    
19.   (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))
    
20. )
    
21.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun th2-getobjlengthofss (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-getobjlength s1)<br />           sum (+ sum l)<br />     )<br />   )<br /> )<br /> ;求单曲线长<br /> (defun th-getobjlength (obj)<br />   (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))<br /> )<br />   [/FONT]<br />