[求助] 怎样才能得到一个2D图形的几何中心

@dadida

我想知道怎样才能得到一个2D图形的几何中心，是任意形状的，但是在VBA中找不到我需要的算法，只找到一个求质心的。在这里请教一下，有人知道怎么计算吗？可以的话提供一下详细的算法，或者有这种算法的地方。不胜感激！！！


谢谢~~~谢谢~~~~~！！！

wyj7485

Obj.GetBoundingBox MinPoint, MaxPoint


X0=(MinPoint(0)+MaxPoint(0))/2


Y0=(MinPoint(1)+MaxPoint(1))/2

王咣生

如图: 考虑先得到质心,然后将质心在水平或竖直方向上移动,直到移到合适位置. 如果外接矩形的width > height, 则上下移动; 如果height > width, 则左右移动.