[LISP函数]：获取LightweightPolyline Polyline顶

eachy

2. 
   
3. ;; Form [url]www.xdcad.net[/url] eachy 2005.9.21
   
4. ;;获取LightweightPolyline Polyline顶点
   
5. ;;返回值: 顶点列表
   
6. (defun xd-getplvertex (e / n i ptl)
   
7.   (setq        n (1+ (fix (vlax-curve-getendparam e)))
   
8.         i -1
   
9.   )
   
10.   (repeat n
    
11.     (setq ptl (cons (vlax-curve-getpointatparam e (setq i (1+ i))) ptl))
    
12.   )
    
13.   (reverse ptl)
    
14. )

<br /> ;; Form [url]www.xdcad.net[/url] eachy 2005.9.21<br /> ;;获取LightweightPolyline Polyline顶点<br /> ;;返回值: 顶点列表<br /> (defun xd-getplvertex (e / n i ptl)<br />   (setq        n (1+ (fix (vlax-curve-getendparam e)))<br />         i -1<br />   )<br />   (repeat n<br />     (setq ptl (cons (vlax-curve-getpointatparam e (setq i (1+ i))) ptl))<br />   )<br />   (reverse ptl)<br /> )