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

wenwengg

Sub AddArcLength()
    ' This example creates an arc in model space.
    ' 已知圆心角、弧长绘弧
! H( A: Z3 B  \; U, |    Dim arcObj As AcadArc
    Dim centerPoint As Variant
    Dim radius As Double
3 S, P2 v" a8 B1 v8 u- V    Dim startAngleInRadian As Double
+ W1 Y0 X9 [3 j& P% f3 H    Dim endAngleInRadian As Double
( B- G8 S* \# V1 r2 p& r    Dim ARCLength As Double
. m1 v/ s4 w1 ^    Dim lineobj As AcadLine
    Dim getobj As ACADObject
    Dim p As Variant
7 _# i4 ?) K2 I- x   
% c4 D0 M' {4 b" j3 a    'centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
) I: K* I$ |. {1 b    centerPoint = ThisDrawing.Utility.GetPoint(, "请指定圆心:")
4 Z, _0 m, R0 T% r: h6 [    ThisDrawing.Utility.GetEntity getobj, p, "选择第一条直线:"
    startAngleInRadian = getobj.Angle
    ThisDrawing.Utility.GetEntity getobj, p, "选择第二条直线:"
    endAngleInRadian = getobj.Angle
    ARCLength = ThisDrawing.Utility.GetString(0, vbCrLf & "所绘弧长:")
    radius = ARCLength / (endAngleInRadian - startAngleInRadian)
+ I- T4 ~7 j' }   
, r8 ?/ A& P, B' f% J    ' Create the arc object in model space
    Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)
'    ZoomAll
End Sub