获取二值图重心

根据杠杆原理获取二值图点阵重心 Type WeightPoint '受力点的重心位置和重量 X As Double Y As Double Weight As Long End Type Type LineDataStruct O As WeightPoint '返回值 'A和B 的重心位置O和重量 AX1Y1 As WeightPoint 'A点 BX2Y2 As WeightPoint 'B点 AB As Double '线段AB的长度，A、B两点间的欧氏距离 BO As Double '线段BO的长度 '以下用于解直线方程 X1EqualX2 As Boolean '当AX1Y1.X = BX2Y2.X时True,AB两点所在直线为 x轴值=X1，否则 y轴值=l * x轴值 + d l As Double 'y轴值=l * x轴值 + d d As Double 'y轴值=l * x轴值 + d '以下用于解二次方程 a As Double b As Double c As Double End Type