Sub Example_EndPoint()
    ' Этот пример создает элептическую дугу и затем находит координаты ее
    ' началькой и конечной точек.
    Dim ellObj As AcadEllipse
    Dim majAxis(0 To 2) As Double
    Dim center(0 To 2) As Double
    Dim radRatio As Double
    Dim startPoint As Variant
    Dim endPoint As Variant
    
    ' Создайте эллипс в пространстве модели
    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)
    
    ' Введите угол начала 45 градусов и конца 270 градусов
    ellObj.startAngle = 45 * (3.14 / 180)
    ellObj.endAngle = 270 * (3.14 / 180)
    ZoomAll
    
    ' Найдите начальную и конечную точки для эллипса
    startPoint = ellObj.startPoint
    endPoint = ellObj.endPoint
    MsgBox "Этот эллипс имеет точку начала " & startPoint(0) & ", " & startPoint(1) & ", " & startPoint(2) & " и конца " & endPoint(0) & ", " & endPoint(1) & ", " & endPoint(2), vbInformation, "EndPoint Пример"
End Sub