Sub Example_Radius()
    'Этот пример создает дугу в пространстве модели.
    'Затем возвращает радиус дуги.
    Dim arcObj As AcadArc
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
    Dim startAngleInDegree As Double
    Dim endAngleInDegree As Double
    
    'Определите круг
    centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
    radius = 5#
    startAngleInDegree = 10#
    endAngleInDegree = 230#
    
    'Преобразуйте углы в градусах к углам в радианах
    Dim startAngleInRadian As Double
    Dim endAngleInRadian As Double
    startAngleInRadian = startAngleInDegree * 3.141592 / 180#
    endAngleInRadian = endAngleInDegree * 3.141592 / 180#
    
    'Создайте объект дуги в пространстве модели
    Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)
    ZoomAll
    
    'Найдите радиус дуги
    radius = arcObj.radius
    MsgBox "Радиус дуги " & arcObj.radius, , "Radius Пример"
    
End Sub