(XD::Polyline:VerticesInPolyGon)返回测试多段线在多边形顶点表内的的顶点索引

newer

1. ;|
   
2. 返回测试多段线在多边形顶点表内的的顶点索引
   
3. 参数：
   
4.    e --- 多段线实体名
   
5.    pts - 多边形顶点表（WCS)或多段线实体名
   
6. 返回值：
   
7.    顶点索引表或NIL
   
8. |;
   
9. 
   
10. (defun XD::Polyline:VerticesInPolyGon (e pts / i num pt pts1)
    
11.   (setq num (xdrx_polyline_NumVerts e)
    
12.         i 0
    
13.   )
    
14.   (repeat (1- num)
    
15.     (setq pt (xdrx_polyline_getPointAt e i))
    
16.     (if (XD::Pnt:IsInside pt pts)
    
17.       (setq pts1 (cons i pts1))
    
18.     )
    
19.     (setq i (1+ i))
    
20.   )
    
21.   (reverse pts1)
    
22. )
    
23. 
    

;|<br /> 返回测试多段线在多边形顶点表内的的顶点索引<br /> 参数：<br />    e --- 多段线实体名<br />    pts - 多边形顶点表（WCS)或多段线实体名<br /> 返回值：<br />    顶点索引表或NIL<br /> |;<br /> <br /> (defun XD::Polyline:VerticesInPolyGon (e pts / i num pt pts1)<br />   (setq num (xdrx_polyline_NumVerts e)<br />         i 0<br />   )<br />   (repeat (1- num)<br />     (setq pt (xdrx_polyline_getPointAt e i))<br />     (if (XD::Pnt:IsInside pt pts)<br />       (setq pts1 (cons i pts1))<br />     )<br />     (setq i (1+ i))<br />   )<br />   (reverse pts1)<br /> )<br /> <br />

ynhh

你的图中有很多小白点;P

hiONE

怎样能单线变双样且都是连接线段的那种啊