[LISP函数]：曲线选集长度求和 精简代码

陌生人

2. 
   
3. ;|曲线选集长度求和 精简代码---------------------------------陌生人.2004.1
   
4. 测试: (x_lens nil)
   
5. |;
   
6. (defun x_lens (ss / ss ssv lens)
   
7.   (if (= nil ss)(setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))))
   
8.   (setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
   
9.         lens 0)
   
10.   (vlax-for obj ssv
    
11.       (setq lens (+ lens (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))))
    
12.   )
    
13. )
    

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

my-apple

我也下一个学习一下，谢谢了。

xyp1964

向“陌生人”确实学了不少好东东，致敬！
名称是否改为：线选集长度求和精简代码

zj2004

LISP函数，不会呀，还是自已学学吧

onesam1

学习学习

li809

楼主好历害