获取多段线已知点的索引值

eachy

1. (defun XD::Polyline:GetIndexpnt (e pt / p pam)
   
2.   (xdrx_setenttodb e)
   
3.   (if (= "POLYLINE" (xdrx_getentdxf 0))
   
4.     (xdrx_polyline_ConvertFrom e)
   
5.   )
   
6.   (if (and (equal pt (setq p (xdrx_curve_getclosestpoint e pt)) 1e-6)
   
7.     (setq pam (xdrx_curve_getparamatpoint e p))
   
8.     (= (distof (rtos pam 2 0)) pam)
   
9.       )
   
10.     pam
    
11.     nil
    
12.   )
    
13. )

(defun XD::Polyline:GetIndexpnt (e pt / p pam)<br />   (xdrx_setenttodb e)<br />   (if (= "POLYLINE" (xdrx_getentdxf 0))<br />     (xdrx_polyline_ConvertFrom e)<br />   )<br />   (if (and (equal pt (setq p (xdrx_curve_getclosestpoint e pt)) 1e-6)<br />     (setq pam (xdrx_curve_getparamatpoint e p))<br />     (= (distof (rtos pam 2 0)) pam)<br />       )<br />     pam<br />     nil<br />   )<br /> )