求曲线长度的LISP程序

XDSoft

2. 
   
3. ;|
   
4.   命令：plen
   
5.   功能：求选择线的长度
   
6.   
   
7.   配合XDRX_API使用
   
8. |;
   
9. (defun c:plen (/ e ss leng)
   
10.   (xdrx_begin)
    
11.   (xdrx_ucson)
    
12.   (princ "\n选择范围<退出>...")
    
13.   (if (setq
    
14.     ss (ssget '((0 . "Line,*polyline,arc,spline,Ellipse,circle")))
    
15.       )
    
16.     (progn
    
17.       (setq leng 0.0)
    
18.       (xdrx_setsstodb ss 0)
    
19.       (while (setq e (xdrx_getentdata 0))
    
20.     (setq leng (+ (cadr (xdrx_getarea e)) leng))
    
21.       )
    
22.       (princ (strcat "\n线长＝" (rtos leng 2 2)))
    
23.     )
    
24.   )
    
25.   (xdrx_ucsoff)
    
26.   (xdrx_end)
    
27.   (princ)
    
28. )
    

<br /> ;| <br />   命令：plen <br />   功能：求选择线的长度 <br />   <br />   配合XDRX_API使用 <br /> |; <br /> (defun c:plen (/ e ss leng) <br />   (xdrx_begin) <br />   (xdrx_ucson) <br />   (princ "\n选择范围<退出>...") <br />   (if (setq <br />     ss (ssget '((0 . "Line,*polyline,arc,spline,Ellipse,circle"))) <br />       ) <br />     (progn <br />       (setq leng 0.0) <br />       (xdrx_setsstodb ss 0) <br />       (while (setq e (xdrx_getentdata 0)) <br />     (setq leng (+ (cadr (xdrx_getarea e)) leng)) <br />       ) <br />       (princ (strcat "\n线长＝" (rtos leng 2 2))) <br />     ) <br />   ) <br />   (xdrx_ucsoff) <br />   (xdrx_end) <br />   (princ) <br /> )<br />