Sub Example_EndParameter()
    ' Этот пример создает эллипс и вводит началmyst и конечные параметры,
    ' чтобы создать элептическую дугу.
    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)
    
    ' Введите параметр начала 1.57, и конечный параметр 6.28
    ellObj.StartParameter = 1.57
    ellObj.EndParameter = 6.28
    ZoomAll
    
    ' Найдите начало и конечные параметры для эллипса
    MsgBox "Эллипс имеет параметр начала " & ellObj.StartParameter & " и конечный параметр " & ellObj.EndParameter, vbInformation, "EndParameter Пример"
End Sub