(XD::PolyLine:OnSegAt)判断测试点在多段线哪个顶点开始的段上

Lispboy

1. ;|
   
2. 判断测试点在多段线哪个顶点开始的段上
   
3. 参数：
   
4.    e ---- 实体名
   
5.    pt --- 测试点
   
6. 
   
7. 返回值：
   
8.    整数（顶点索引值，基于0）
   
9.    或NIL
   
10. |;
    
11. (defun XD::PolyLine:OnSegAt (e testPnt / i index nums tf)
    
12.   (setq nums (xdrx_polyline_NumVerts e)
    
13.         i 0
    
14.         tf t
    
15.   )
    
16.   (while (and
    
17.            tf
    
18.            (< i nums)
    
19.          )
    
20.     (if (xdrx_polyline_OnSegAt e i testPnt)
    
21.       (setq index i
    
22.             tf nil
    
23.       )
    
24.     )
    
25.     (setq i (1+ i))
    
26.   )
    
27.   index
    
28. )
    

;|<br /> 判断测试点在多段线哪个顶点开始的段上<br /> 参数：<br />    e ---- 实体名<br />    pt --- 测试点<br /> <br /> 返回值：<br />    整数（顶点索引值，基于0）<br />    或NIL<br /> |;<br /> (defun XD::PolyLine:OnSegAt (e testPnt / i index nums tf)<br />   (setq nums (xdrx_polyline_NumVerts e)<br />         i 0<br />         tf t<br />   )<br />   (while (and<br />            tf<br />            (< i nums)<br />          )<br />     (if (xdrx_polyline_OnSegAt e i testPnt)<br />       (setq index i<br />             tf nil<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   index<br /> )<br />

eachy

这个用 fix curve-getparamatpoint即可

st788796

1. (defun XD::Polyline:OnSegAt (e pnt)
   
2.    (fix (xdrx_curve_getparamatpoint e pnt))
   
3. )

(defun XD::Polyline:OnSegAt (e pnt)<br />    (fix (xdrx_curve_getparamatpoint e pnt))<br /> )