判断点是否在点表组成的多边形内（适合任意多边形）

XDSoft · 发表于 2013-6-15 09:06:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;|
判断点是否在点表内
|;
(defun XD::Pnt:IsInside (pt pts / an total x)
(setq pts (XD::List:SnakePair (XD::PnTs:Close pts))
total 0.0
)
(mapcar
'(lambda (x)
(setq an (- (angle pt (car x)) (angle pt (cadr x))))
(cond
((> an pi)
(setq an (- an pi))
)
((< an (* -1 pi))
(setq an (+ an pi))
)
)
(setq total (+ total an))
)
pts
)
(if (equal (- (abs total) pi) 0.0 1e-5)
t
nil
)
)

q3_2006 · 发表于 2013-6-17 08:08:05

这个好，任意多边形，更有通用性！

llsheng_73 · 发表于 2014-10-16 16:03:56

(defun pinpt(p pt / a)
  (setq pt(if(equal(car pt)(last pt))pt(cons(last pt)pt))ang 0)
  (equal(abs(apply'+(mapcar'(lambda(x)(setq a(-(angle p(nth(vl-position x(cdr pt))pt))(angle p x)))
   (cond((> a pi)(- a pi))((< a(- 0 pi))(+ a pi))(T a)))(cdr pt))))pi 1e-6))

高山流水 · 发表于 2014-10-17 17:40:57

因为使用了angle函数，仅适用于二维任意多边形；对于空间封闭多边形，还得做基于多边形平面法向矢量的坐标变换，否则将得到二维投影效果。

Free-Lancer · 发表于 2014-10-17 18:18:35

高山流水发表于 2014-10-17 17:40
因为使用了angle函数，仅适用于二维任意多边形；对于空间封闭多边形，还得做基于多边形平面法向矢量的坐标 ...

内部还是在同一平面内才有意义，至于空间点那是前处理问题

nj-zx05 · 发表于 2014-11-14 11:42:30

哈哈，直接拿了，谢谢啊

qxlonmsn · 发表于 2021-12-3 16:29:48

十分感谢老大分享的代码获益匪浅

CAD56390 · 发表于 2021-12-4 13:45:51

tinghao，挺好的

wzjck01 · 发表于 2022-4-19 10:05:48

学习，学习

账号		自动登录	找回密码
密码			立即注册

[点表] 判断点是否在点表组成的多边形内（适合任意多边形）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子

点评