点在多边形，圆，椭圆内返回T;线上0;外nil(offset法)

/db_自贡黄明儒_

我见很多高手都写过判断点在封闭图形内的判断，但都很复杂，很难理解。
1 判断一个点是否在多边形内，以狂刀为例，是以角度来判断的
2 判断一个点是否在多边形内，11sheng_73用ssget来判断的
3 判断一个点是否在多边形内，G版是用时针方向来判断的
4 caoyin写过判断一个点在任何封闭曲线内，他是在最小包围盒中画一条线来实现的5 nzl1116提出了一个按方位来判断的一个点是否在多边形内，但未见程序

2. 
   
3. ;;164.41.1 [功能] 点在多边形，圆，椭圆内返回T;线上0;外nil
   
4. ;;  By 自贡黄明儒(offset法)
   
5. ;;(defun C:w1 ()  (PtInorOut3 (car (entsel)) (getpoint)))
   
6. ;;对于带凸度的多段线，不明确
   
7. (defun PtInorOut3 (en p / D1 D2 ENAME P2 PP)
   
8.   (setq pp (vlax-curve-getclosestpointto en (trans p 1 0)))
   
9.   (if (equal pp p 0.00001)
   
10.     0
    
11.     (progn
    
12.       (setq d1 (distance p pp))
    
13.       (vla-offset (vlax-ename->vla-object en) -0.00001)
    
14.       (setq p2 (vlax-curve-getclosestpointto (entlast) (trans p 1 0)))
    
15.       (setq d2 (distance p p2))
    
16.       (entdel (entlast))
    
17.       ;;(setq ename (cdr (assoc 0 (entget (car (entsel))))))
    
18.       (setq ename (cdr (assoc 0 (entget en))))
    
19.       (cond ((wcmatch ename "CIRCLE,ELLIPSE")(> d1 d2))
    
20.             ((equal ename "LWPOLYLINE")(> d2 d1))
    
21.             (T (princ "不能判断")))
    
22.     )
    
23.   )
    
24. )
    

<br /> ;;164.41.1 [功能] 点在多边形，圆，椭圆内返回T;线上0;外nil<br /> ;;  By 自贡黄明儒(offset法)<br /> ;;(defun C:w1 ()  (PtInorOut3 (car (entsel)) (getpoint)))<br /> ;;对于带凸度的多段线，不明确<br /> (defun PtInorOut3 (en p / D1 D2 ENAME P2 PP)<br />   (setq pp (vlax-curve-getclosestpointto en (trans p 1 0)))<br />   (if (equal pp p 0.00001)<br />     0<br />     (progn<br />       (setq d1 (distance p pp))<br />       (vla-offset (vlax-ename->vla-object en) -0.00001)<br />       (setq p2 (vlax-curve-getclosestpointto (entlast) (trans p 1 0)))<br />       (setq d2 (distance p p2))<br />       (entdel (entlast))<br />       ;;(setq ename (cdr (assoc 0 (entget (car (entsel))))))<br />       (setq ename (cdr (assoc 0 (entget en))))<br />       (cond ((wcmatch ename "CIRCLE,ELLIPSE")(> d1 d2))<br />             ((equal ename "LWPOLYLINE")(> d2 d1))<br />             (T (princ "不能判断")))<br />     )<br />   )<br /> )<br />

st788796

那些判断是点集构成的多边形，和 Curve 内是有区别的