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

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

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

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

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

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

其实楼主提出的问题就是求凸包，可以参看这个帖子：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=56069&replyID=&skin=1
页: [1]
查看完整版本: 怎么用vba把图上的点画成不交叉的闭合线？