判断点是否在多边形内部的代码

newer · 发表于 2013-6-5 22:24:34

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

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

×

主函数 PointInPolylineP
返回值：1--内部 2--多边形边上面 NIL--不在

游客，本帖隐藏的内容需要积分高于 50 才可浏览，您当前积分为 0

测试命令：

(Defun C:TestPolyline ( / ePolyLine pntPick )
(SetQ ePolyLine (Car (EntSel "\nPick a Polyline")) )
(SetQ pntPick (GetPoint "\nPick a Point") )
(PrinC (PointInPolylineP pntPick (GetPolylinePoints ePolyLine) 0.00001) )
(Terpri)(Prin1)
)

wowan1314 · 发表于 2013-6-5 22:58:24

从代码的长度分析这是个复杂的函数！
从函数名字分析这也是个用处较大的函数！
呵呵。感谢分享！

ayl1004 · 发表于 2013-6-6 21:21:49

可惜我看不到

dnbcgrass · 发表于 2013-6-6 22:46:08

本帖最后由 dnbcgrass 于 2013-6-6 22:53 编辑

先在待判定点处画一个点(point)，并取得它的图元名(setq ent (entlast)), 用(ssget "wp" 多边形点集 '((0 . "point")))构造一个选择集，看看ent是否包含于，就可得到是在内还是外。如果待判定点与多边形上离它最近点的距离为零，则点在多边形上。

ayl1004 · 发表于 2013-6-7 08:05:43

我琢磨着应该计算总夹角是否是2pi

sicky111 · 发表于 2013-6-7 18:06:20

一个函数230多行，实在是有点长。

dnbcgrass · 发表于 2013-6-7 22:32:10

充分利用AuoCAD的CAGD功能可能会更简单些。

XDSoft · 发表于 2013-6-7 23:13:10

dnbcgrass 发表于 2013-6-7 22:32
充分利用AuoCAD的CAGD功能可能会更简单些。

你这句话让我想起了“陈伯雄老师”，不知道他现在可好。

你能用说的CAGD功能给大家写写代码吗？

/db_自贡黄明儒_ · 发表于 2013-10-16 18:02:08

可不可通过修改多边形端点为指定的点，然后面积的变化来判断？当然，我只是猜想，无法证明:P

cable2004 · 发表于 2014-3-20 22:51:18

源码是好东西

lianghui2018 · 发表于 2014-4-10 11:27:12

感谢分享！:loveliness:

/db_自贡黄明儒_ · 发表于 2014-4-13 17:54:03

ayl1004 发表于 2013-6-7 08:05
我琢磨着应该计算总夹角是否是2pi

有凹凸弧怎么办？

xvjiex · 发表于 2021-6-10 00:04:24

判断点是否在多边形内部的代码非常好用

janshyl · 发表于 2021-6-10 07:49:24

學習了感謝樓主分享

Cafemeow · 发表于 2021-6-18 16:34:31

没权限看，感觉是个经典算法

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

[每日一码] 判断点是否在多边形内部的代码

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

评分

点评

点评