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

wenwengg

Sub AddArcLength()
    ' This example creates an arc in model space.
    ' 已知圆心角、弧长绘弧
* E" a  F' U: Y7 h1 I) k    Dim arcObj As AcadArc
    Dim centerPoint As Variant
    Dim radius As Double
4 ^5 n" q) v( l& S  i1 {* Y    Dim startAngleInRadian As Double
    Dim endAngleInRadian As Double
8 C0 g, s5 L2 f6 r- R- ]* {    Dim ARCLength As Double
    Dim lineobj As AcadLine
: e; w, x. \5 t1 t7 y( U. t    Dim getobj As ACADObject
    Dim p As Variant
   
    'centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
    centerPoint = ThisDrawing.Utility.GetPoint(, "请指定圆心:")
    ThisDrawing.Utility.GetEntity getobj, p, "选择第一条直线:"
$ }! @7 W! l  d; J+ F8 q    startAngleInRadian = getobj.Angle
6 [+ r9 K$ i3 X6 N" N+ {. ^    ThisDrawing.Utility.GetEntity getobj, p, "选择第二条直线:"
# R- J/ Y/ s' ^    endAngleInRadian = getobj.Angle
+ a: |- w& g5 F/ n! k& A    ARCLength = ThisDrawing.Utility.GetString(0, vbCrLf & "所绘弧长:")
    radius = ARCLength / (endAngleInRadian - startAngleInRadian)
6 \+ ^! c0 `! ?2 i   
    ' Create the arc object in model space
    Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)
'    ZoomAll
" j" G: B, S( j( NEnd Sub