[原创]：判断一点是否在不规则多边形内，有算法

xiao_longxin

狂刀兄，你的程序对多次自相交的情况判断有误，少考虑了当βi小于－pi时应该＋pi

狂刀

you  are right
how about this?
[php]
(defun c:tt ()
  (setq        lst (mapcar 'cdr (vl-remove-if
              '(lambda (x) (/= 10 (car x)))
              (entget (car (entsel)))
            ))
        pt  (getpoint)
  )
  (equal PI
    (abs(apply '+(mapcar '(lambda (x y) (rem (- (angle pt x) (angle pt y)) PI)) (cons (last lst) lst)lst)))
    1e-4)
)[/php]

孤独客

怎样判断一点是在由多段线（直线）组成的角的内还是外呢

cy956

如果是折线围合，还有一种算法，就是判断一点都在其余连线的一侧。

2. 
   
3. 
   
4. (defun left(p1 p2 p3 / p c B C P)    ;;;p3点位于p1p2的关系,>0左;;
   
5.   (setq p p3)
   
6.   (apply '+ (mapcar '(lambda (b)
   
7.     (setq c(- (* (car p) (cadr b)) (* (cadr p) (car b))) p b )c )
   
8.     (list p1 p2 p3)))
   
9. )
   
10. 
    
11. 
    
12. (DEFUN CY_leftb(pb p / IN K K1 P1 P2);;;判断点p和直线点表的关系，k>0在内 <0 在外 nil pb只有两点
    
13.   (if (> (length pb) 2)(progn
    
14.     (setq p1(car pb) p2(cadr pb)
    
15.           k1(left p1 p2 p)in 2 p1 p2)
    
16.     (if (> k 0)
    
17.       (while (and (> k 0) (setq p2(nth in pb)))
    
18.         (setq k (left p1 p2 p)p1 p2
    
19.               in(1+ in))
    
20.       )
    
21.       (while (and (< k 0) (setq p2(nth in pb)))
    
22.         (setq k (left p1 p2 p)p1 p2
    
23.               in(1+ in))
    
24.       )
    
25.     )
    
26.     );;(progn
    
27.     (setq k nil)
    
28.   )k
    
29. )
    

<br /> <br /> (defun left(p1 p2 p3 / p c B C P)    ;;;p3点位于p1p2的关系,>0左;;<br />   (setq p p3)<br />   (apply '+ (mapcar '(lambda (b)<br />     (setq c(- (* (car p) (cadr b)) (* (cadr p) (car b))) p b )c )<br />     (list p1 p2 p3)))<br /> )<br /> <br /> <br /> (DEFUN CY_leftb(pb p / IN K K1 P1 P2);;;判断点p和直线点表的关系，k>0在内 <0 在外 nil pb只有两点<br />   (if (> (length pb) 2)(progn<br />     (setq p1(car pb) p2(cadr pb)<br />           k1(left p1 p2 p)in 2 p1 p2)<br />     (if (> k 0)<br />       (while (and (> k 0) (setq p2(nth in pb)))<br />         (setq k (left p1 p2 p)p1 p2<br />               in(1+ in))<br />       )<br />       (while (and (< k 0) (setq p2(nth in pb)))<br />         (setq k (left p1 p2 p)p1 p2<br />               in(1+ in))<br />       )<br />     )<br />     );;(progn<br />     (setq k nil)<br />   )k<br /> )<br />

狂刀

如果是凹多义线呢？

xiao_longxin

最初由 孤独客 发布
[B]怎样判断一点是在由多段线（直线）组成的角的内还是外呢 [/B]

你所说的角应该是指小于180度的角吧，如果是可以判断点不在两条线的同侧。

yehuli

不错，学习一下

shl1980912

刚学，看起来太吃力了

snoopychen

有一个不成熟的想法，各位大侠看看可行否？

简单的利用autocad中的boundary命令，选中本多边形，再选中点，让其判断，如能找到边界，则为在其

内，若不能，则否？

狂刀

ｂｏｕｎｄａｒｙ稳定性不太好

sujia

射线法,可以处理曲线,包括凹曲线
用法:jp  选择曲线, 选择点,然后返回判断结果

zgt7788

除文本中所有括号
按字母/数字分解字符串
全能更改字高程序
求曲线内部任意一点
超级反剪切
全能更改字高程序

grig_luo

如何判断多边形不是封闭的情况呢?? 假如一个8边形少一条边的情况

雨箭风刀

closed属性

LADESIGNER

构造射线当前窗口东西很多的时候慢,而且能看见射线一闪而过(删除了),不爽.