Sub Example_MinorAxis()
    'Этот пример создает эллипс и возвращает младшую ось эллипса.
    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
    
    'Найдите младшую ось для эллипса
    Dim minorAxis As Variant
    minorAxis = ellObj.minorAxis
    MsgBox "Эллипс имеет младшую ось " & minorAxis(0) & ", " & minorAxis(1) & ", " & minorAxis(2), vbInformation, "MinorAxis Пример"
End Sub