[编程申请]：求助：如何判断一个点是否在某一多边形内？？

zxf5411

求助：如何判断一个点是否在某一多边形内？？

狂刀

建议你先搜索一下论坛，这个论题已经有帖子讨论过

yshf

请到“测量空间”网站的“函数”网页中看看吧，那里有你需要的东西。

zxf5411

顶一下

WHGF

本站有,LSP源程序

xiao_longxin

;;By Xiao_longxin 明经通道
;;有一不规则多边形由点a1(x1,y1)、a2(x2,y2).....an(xn,yn)依次连接而成，如何求证点p(x,y)是在多边形内还是多边形外？
;;将直线PAi记作ki.将ki旋转到ki+1(令kn+1=k1)的角记为βi(规定逆时针为正，顺时针为负,如果βi大于180就变成βi－360)。
;;从直观上看有下面的结论
;;若P在形内，诸β的代数和为360度；
;;若P在形外，诸β的代数和为0。

;;pt_list 为((x y z) (x y z)......(x y z))即围成多边形的表
;;
;;自相交多边形适用，不适用于曲线
(defun inorout (lst pt)
  (equal
    PI
    (abs
      (apply
        '+
        (mapcar        '(lambda (x y) (rem (- (angle pt x) (angle pt y)) PI))
                (cons (last lst) lst)
                lst
        )
      )
    )
    1e-6
  )
)



;;测试
(defun c:tt ()
  (setq        lst (mapcar 'cdr
                    (vl-remove-if
                      '(lambda (x) (/= 10 (car x)))
                      (entget (car (entsel)))
                    )
            )
        pt  (getpoint)
  )
  (inorout lst pt)
)