关于用选择集方式证明点位于多边形内外的方法

changyiran

我发现用选择集就可以证明点是位于多边形内还是外，为什么那么多人还要用射线法等等，下面是我的证明：

2. (defun fjdb(en / x);返回轻量多段线的点表
   
3.   (vl-remove-if'not
   
4.         (mapcar'(lambda(x)(if(=(car x)10)(cdr x)))(entget en));mapcar返回的是一个表，lambda构造一个匿名函数
   
5.   )        
   
6. (defun pd(pt en)
   
7.   (command"point"pt)
   
8.   (setq dbxvla(vlax-ename->vla-object en))
   
9.   (if(equal(distance pt(vlax-curve-getClosestPointTo en pt))0 1e-6)
   
10.      (setq pdz 0);点在多边形上
    
11.      (progn
    
12.        (setq ss(ssget"wp"(fjdb en)(list'(0 . "point")(list 10 (car pt)(cadr pt)))))
    
13.        (if ss(setq pdz 1)(setq pdz 2))
    
14.      )
    
15.   )
    
16. )
    
17. )

(defun fjdb(en / x);返回轻量多段线的点表<br />   (vl-remove-if'not<br />         (mapcar'(lambda(x)(if(=(car x)10)(cdr x)))(entget en));mapcar返回的是一个表，lambda构造一个匿名函数<br />   )        <br /> (defun pd(pt en)<br />   (command"point"pt)<br />   (setq dbxvla(vlax-ename->vla-object en))<br />   (if(equal(distance pt(vlax-curve-getClosestPointTo en pt))0 1e-6)<br />      (setq pdz 0);点在多边形上<br />      (progn<br />        (setq ss(ssget"wp"(fjdb en)(list'(0 . "point")(list 10 (car pt)(cadr pt)))))<br />        (if ss(setq pdz 1)(setq pdz 2))<br />      )<br />   )<br /> )<br /> )

其中，0代表位于多边形上，1代表多边形内，2代表多边形外
是不是小弟哪点没考虑周全，还是这种方法有重大风险，可我怎么没发现呢，望高手们指教！
声明下，我指的多边形不牵涉弧。

Andyhon

可能是考量有拱弧的情况...

changyiran

Andyhon 发表于 2012-6-8 14:26
可能是考量有拱弧的情况...

那是不是就说明我这种方法在对于无弧线的多边形是完全可行的？望长老赐教。

Gu_xl

changyiran 发表于 2012-6-8 14:28
那是不是就说明我这种方法在对于无弧线的多边形是完全可行的？望长老赐教。

还和点样式及其大小、多边形及点是否在屏幕显示区域有关！这种方法不可取！

changyiran

Gu_xl 发表于 2012-6-8 14:39
还和点样式及其大小、多边形及点是否在屏幕显示区域有关！这种方法不可取！

看来只能在全屏并且点样式为一个小点的情况下才能用了，谢谢斑竹提醒。