怎么用vba把图上的点画成不交叉的闭合线？

guangyaola · 发表于 2011-4-23 20:41

各位大侠好：
图上有大量的点，编写能使点连接为不交叉的闭合线，且这个线是这些点的最外周，起始点为左上角。

lishucheng96 · 发表于 2011-4-23 21:20

1、先选任意三点用多段构成一个闭合三角形（特殊多边形）
2、选择除此三角形顶点外的任意一点，判断该点在三角形内还是外，如果在外则将该点和添加到三角形的顶点中构成新的闭合多边形。否则忽略该点并不用于下次计算。
3、依此类推，直到所有点都完成循环。
判断点是否在多边形内的方法：
由该点作一任意方向的射线，如果该线与多边形任意边只有一个相交点则说明该点在多边形内，与多边形各边有两个交点则说明点在多边形外。

lishucheng96 · 发表于 2011-4-25 21:43

其实楼主提出的问题就是求凸包，可以参看这个帖子：http://bbs.mjtd.com/forum.php?mo ... replyID=&skin=1

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