Sub Example_MajorAxis()
    ' Этот пример создает эллипс и находит главную ось для того эллипса. 
    ' Затем изменяет главную ось для эллипса.

    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)
    ellObj.Update
    MsgBox "Главная ось " & majAxis(0) & ", " & majAxis(1) & ", " & majAxis(2), vbInformation, "MajorAxis Пример"

    
    'Измените главную ось эллипса
    majAxis(0) = 5: majAxis(1) = 5: majAxis(2) = 0
    ellObj.MajorAxis = majAxis
    ellObj.Update
    
    'Сделайте запрос главной оси Эллипса
    Dim retMajAxis As Variant
    retMajAxis = ellObj.MajorAxis
    MsgBox "Эллипс был обновлен с главной осью " & retMajAxis(0) & ", " & retMajAxis(1) & ", " & retMajAxis(2), vbInformation, "MajorAxis Пример"
End Sub