vba 已知半径 和两点坐标 求圆心坐标

Question

写一个画弧的程序，已知半径 R 已知 两点坐标（根据输入数值可变的） DIM R .Point X1, Y1 (圆弧上的点1，已知可变) .KnownArc R, False, ?, ? (这里该怎么写) .Point X2, Y2 (圆弧上的点2 已知可变)请教老师，还需要添加什么变量，圆心坐标该怎么确定

Answer 1

给你个思路：已知两个点坐标为(X1,Y1)、(X2、Y2)，圆心肯定在他俩中垂线上。那么两点连线的斜率k=(Y2-Y1)/(X2-X1)。则中垂线斜率为-1/k。中垂线过这两点的中点(x1+x2)/2,(y1+y2)/2。 这样就能求得中垂线方程，假设为y=ax+b。
设圆心坐标（xi，axi+b）。(xi-x1)^2+(axi+b-y1)^2=R^2。可以求得两个xi代入y=ax+b，就得到两个圆心的坐标了