Sub Example_StartPoint()
    'Этот пример создает элептическую дугу и затем находит координаты ее
    ' начальной точки и конечной точки.
    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, "StartPoint Пример"
End Sub