[求助]：有没有自动测算对象长度的程序？

Lanfeng

诸如直线、曲线、弧等对象的长度？？？

lsjjm

用List不行吗?

鹰博长空

如果要测多条的总长度，可试这个程序
（别人编的，好东东大家共享）

aeo

R2000

2. 
   
3. (defun c:len( / all ss len-curve)
   
4. (defun len-curve(e / endspline)
   
5. (setq e(vlax-ename->vla-object e))
   
6. (setq endSpline (vlax-curve-getEndParam e))
   
7. (vlax-curve-getDistAtParam e endspline )
   
8. )
   
9. (setq ss(ssget '((0 . "LINE,*pline,arc,circle,ELLIPSE"))))
   
10. (if ss(progn
    
11. (setq all 0 j 0 len(sslength ss))
    
12. (while(< j len)
    
13. (setq e (ssname ss j) )
    
14. (setq all(+ all(len-curve e))j(1+ j))
    
15. )
    
16. (princ(strcat "\n 总长(rtos all 2 3)))
    
17. ))(prin1)
    
18. )
    

<br /> (defun c:len( / all ss len-curve)<br /> (defun len-curve(e / endspline)<br /> (setq e(vlax-ename->vla-object e))<br /> (setq endSpline (vlax-curve-getEndParam e))<br /> (vlax-curve-getDistAtParam e endspline )<br /> )<br /> (setq ss(ssget '((0 . "LINE,*pline,arc,circle,ELLIPSE"))))<br /> (if ss(progn<br /> (setq all 0 j 0 len(sslength ss))<br /> (while(< j len)<br /> (setq e (ssname ss j) )<br /> (setq all(+ all(len-curve e))j(1+ j))<br /> )<br /> (princ(strcat "\n 总长(rtos all 2 3)))<br /> ))(prin1)<br /> )<br />

晓东工具箱里也有.