Sub Example_MinorRadius()
  ' Этот пример создает Эллипс в пространстве модели и показывает
  ' Главный и Младший радиус нового Эллипса
  
    Dim ellObj As AcadEllipse
    Dim majAxis(0 To 2) As Double, center(0 To 2) As Double
    Dim radRatio As Double
    
    'Создайте эллипс в пространстве модели
    center(0) = 5: center(1) = 5: center(2) = 0
    majAxis(0) = 10: majAxis(1) = 20: majAxis(2) = 0
    radRatio = 0.3
    Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)

    ThisDrawing.Application.ZoomAll
    
    'Информация радиуса
    MsgBox "Главный радиус нового Эллипса: " & ellObj.majorRadius & vbCrLf & _
           "Младший радиус нового Эллипса: " & ellObj.minorRadius
End Sub