已知圆心角、弧长,VBA绘圆弧

wenwengg

Sub AddArcLength()
    ' This example creates an arc in model space.
. O4 v6 D) i1 v7 K1 j/ }    ' 已知圆心角、弧长绘弧
    Dim arcObj As AcadArc
    Dim centerPoint As Variant
2 L4 x, X6 |" \) R* t7 Z    Dim radius As Double
2 V. O  c. f2 z: O& h# J    Dim startAngleInRadian As Double
2 o# u, P; s( V" f# x    Dim endAngleInRadian As Double
    Dim ARCLength As Double
) S& B( s4 M1 h$ W" T    Dim lineobj As AcadLine
    Dim getobj As ACADObject
    Dim p As Variant
: q, c0 a- p3 }. t1 D3 S   
% v' e: _' x6 Z; O' k    'centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
8 [; A  ]1 T& g" b    centerPoint = ThisDrawing.Utility.GetPoint(, "请指定圆心:")
    ThisDrawing.Utility.GetEntity getobj, p, "选择第一条直线:"
& [7 v) d. O# V0 i2 v0 M    startAngleInRadian = getobj.Angle
4 h2 |; a* N/ u" z# l: N# p5 H    ThisDrawing.Utility.GetEntity getobj, p, "选择第二条直线:"
    endAngleInRadian = getobj.Angle
( h% s$ b7 x2 p$ B; G4 Z    ARCLength = ThisDrawing.Utility.GetString(0, vbCrLf & "所绘弧长:")
    radius = ARCLength / (endAngleInRadian - startAngleInRadian)
   
) I; r, w# t/ T    ' Create the arc object in model space
    Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)
'    ZoomAll
End Sub