获取多段线各边的长度（支持弧线段）

Lispboy

1. (defun _lengths (e / g gl lens x)
   
2.     (setq g  (xdge::constructor e)
   
3.           gl (xdge::getpropertyvalue g "getcurvelist")
   
4.     )
   
5.     (setq lens (mapcar '(lambda        (x)
   
6.                           (xdge::getpropertyvalue x "length")
   
7.                         )
   
8.                        gl
   
9.                )
   
10.     )
    
11.     (xdge::free g gl)
    
12.     lens
    
13.   )
    
14. 
    

(defun _lengths (e / g gl lens x)<br />     (setq g  (xdge::constructor e)<br />           gl (xdge::getpropertyvalue g "getcurvelist")<br />     )<br />     (setq lens (mapcar '(lambda        (x)<br />                           (xdge::getpropertyvalue x "length")<br />                         )<br />                        gl<br />                )<br />     )<br />     (xdge::free g gl)<br />     lens<br />   )<br /> <br />