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

wenwengg

Sub AddArcLength()
2 T1 h( n4 E# [    ' This example creates an arc in model space.
    ' 已知圆心角、弧长绘弧
    Dim arcObj As AcadArc
    Dim centerPoint As Variant
+ [$ w( O+ o' _# E    Dim radius As Double
% t7 n: h  l2 n: v1 h) ?    Dim startAngleInRadian As Double
! x3 i9 K2 Y  ^+ z% I    Dim endAngleInRadian As Double
, m$ L+ M, ]+ ^; y$ E/ R, \    Dim ARCLength As Double
/ J' t9 H% F& E$ O    Dim lineobj As AcadLine
5 q* J. S/ K- i0 C    Dim getobj As ACADObject
4 _! N1 w: Q. w& V    Dim p As Variant
4 S- t/ G$ E7 h& v3 I   
3 F" a' N$ L0 _  s    'centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
3 R7 `" S* y# K" p# {0 s    centerPoint = ThisDrawing.Utility.GetPoint(, "请指定圆心:")
    ThisDrawing.Utility.GetEntity getobj, p, "选择第一条直线:"
3 c% R2 v, j% k) n% b* v    startAngleInRadian = getobj.Angle
3 k% R  h' k3 q5 q* J8 s- L    ThisDrawing.Utility.GetEntity getobj, p, "选择第二条直线:"
    endAngleInRadian = getobj.Angle
    ARCLength = ThisDrawing.Utility.GetString(0, vbCrLf & "所绘弧长:")
    radius = ARCLength / (endAngleInRadian - startAngleInRadian)
) P4 B% U: `6 }- }) B   
    ' Create the arc object in model space
  V2 {5 |% y- N& C8 @# d4 y    Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)
'    ZoomAll
" |8 b- e9 {+ j+ [+ a) g# y# L8 lEnd Sub