（XD::Pnts:IsInPolyWithPnts）判断一个点表是否都在另外一个点表组成的多边形的内部

Lispboy

1. ;|
   
2. 判断点表PTS1内的所有点是否都在另外一个点表PTS2组成的多边形的内部或线上
   
3. 参数：
   
4.     pts1 ---- 待测试的点表
   
5.     pts2 ---- 组成多边形的表
   
6. 
   
7. 返回值： 是 T
   
8.          否 NIL
   
9. |;
   
10. (defun XD::Pnts:IsInPolyWithPnts (pts1 pts2)
    
11.   (not (vl-some '(lambda (x)
    
12.                    (XD::Pnt:IsOut x pts2)
    
13.                  ) pts1
    
14.        )
    
15.   )
    
16. )
    
17. 
    

;|<br /> 判断点表PTS1内的所有点是否都在另外一个点表PTS2组成的多边形的内部或线上<br /> 参数：<br />     pts1 ---- 待测试的点表<br />     pts2 ---- 组成多边形的表<br /> <br /> 返回值： 是 T<br />          否 NIL<br /> |;<br /> (defun XD::Pnts:IsInPolyWithPnts (pts1 pts2)<br />   (not (vl-some '(lambda (x)<br />                    (XD::Pnt:IsOut x pts2)<br />                  ) pts1<br />        )<br />   )<br /> )<br /> <br />