获取多段线顶点的索引值

Lispboy

1. (defun XD::Polyline:GetIndexAtPnt (e pt / v_num i tf tf1)
   
2.   (xdrx_setenttodb e)
   
3.   (if (= "POLYLINE" (xdrx_getentdxf 0))
   
4.     (xdrx_polyline_ConvertFrom e)
   
5.   )
   
6.   (setq v_num (xdrx_polyline_numVerts e)
   
7.         i -1
   
8.   )
   
9.   (setq tf t)
   
10.   (while (and
    
11.            tf
    
12.            (< i v_num)
    
13.          )
    
14.     (setq i (1+ i))
    
15.     (if (xdrx_polyline_onSegAt e i (trans pt 1 0))
    
16.       (setq tf nil tf1 t)
    
17.     )
    
18.   )
    
19.   (if tf1
    
20.     i
    
21.     nil
    
22.   )
    
23. )
    
24. 
    

(defun XD::Polyline:GetIndexAtPnt (e pt / v_num i tf tf1)<br />   (xdrx_setenttodb e)<br />   (if (= "POLYLINE" (xdrx_getentdxf 0))<br />     (xdrx_polyline_ConvertFrom e)<br />   )<br />   (setq v_num (xdrx_polyline_numVerts e)<br />         i -1<br />   )<br />   (setq tf t)<br />   (while (and<br />            tf<br />            (< i v_num)<br />          )<br />     (setq i (1+ i))<br />     (if (xdrx_polyline_onSegAt e i (trans pt 1 0))<br />       (setq tf nil tf1 t)<br />     )<br />   )<br />   (if tf1<br />     i<br />     nil<br />   )<br /> )<br /> <br />