Sub Example_RadiusRatio()
    'Этот пример создает эллипс и находит отношение радиусов для этого эллипса. 
    'Затем изменяет отношение радиусов на 0.75.
    Dim ellObj As AcadEllipse
    Dim majAxis(0 To 2) As Double
    Dim 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)
    ZoomAll
    MsgBox "Этот эллипс имеет отношение радиусов " & ellObj.RadiusRatio, vbInformation, "RadiusRatio Пример"

    
    'Измените отношение радиусов эллипса
    radRatio = 0.75
    ellObj.RadiusRatio = radRatio
    ellObj.Update
    MsgBox "Эллипс был обновлен с отношением радиусов " & ellObj.RadiusRatio, vbInformation, "RadiusRatio Пример"
End Sub