井井井1314 发表于 2019-7-4 23:03:00

三点画圆函数

路过的老师，下边的XY、XYSM、XYSE是设的什么为未知数？是什么方程，我好像没学过。
'三点创建圆
Public Function AddCircle3P(ByVal pt1 As Variant, ByVal pt2 As Variant, ByVal pt3 As Variant) As AcadCircle
    Dim xysm, xyse, xy As Double
    Dim ptCen(0 To 2) As Double
    Dim radius As Double
    Dim objCir As AcadCircle
    xy = pt1(0) ^ 2 + pt1(1) ^ 2
    xyse = xy - pt3(0) ^ 2 - pt3(1) ^ 2
    xysm = xy - pt2(0) ^ 2 - pt2(1) ^ 2
    xy = (pt1(0) - pt2(0)) * (pt1(1) - pt3(1)) - (pt1(0) - pt3(0)) * (pt1(1) - pt2(1))
    '判断参数有效性
    If Abs(xy)



satan421 发表于 2019-7-5 14:36:00

牛皮，明白了，谢谢老师

satan421 发表于 2019-7-5 08:44:00


老师那ptCen的计算方法能给讲讲吗
xyse=xy-pt3(0)^2-pt3(1)^2 很接近等于0了呀

井井井1314 发表于 2019-7-5 11:47:00

@mikewolf2k 好的

井井井1314 发表于 2019-7-5 11:53:00


太难了
页: [1]
查看完整版本: 三点画圆函数