获取LWPOLYLINE弧线段的顶点索引表

Lispboy

1. (defun XD::Polyline:IndexAtArc        (pl / inx nums inxs)
   
2.   (setq nums (xdrx_polyline_numverts pl))
   
3.   (setq inx 0)
   
4.   (repeat nums
   
5.     (if        (xdrx_polyline_getarcsegat pl inx)
   
6.       (setq inxs (cons inx inxs))
   
7.     )
   
8.     (setq inx (1+ inx))
   
9.   )
   
10.   (reverse inxs)
    
11. )
    

(defun XD::Polyline:IndexAtArc        (pl / inx nums inxs)<br />   (setq nums (xdrx_polyline_numverts pl))<br />   (setq inx 0)<br />   (repeat nums<br />     (if        (xdrx_polyline_getarcsegat pl inx)<br />       (setq inxs (cons inx inxs))<br />     )<br />     (setq inx (1+ inx))<br />   )<br />   (reverse inxs)<br /> )<br />