Sub Example_StartAngle()
    'Этот пример создает эллипс и вводит начальный и конечный углы, 
    'чтобы создать элептическую дугу.
    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)
    
    'Введите угол начала 45 градусов, и угла конца 270 градусов
    ellObj.startAngle = 45 * (3.14 / 180)
    ellObj.endAngle = 270 * (3.14 / 180)
    ZoomAll
    MsgBox "Эллипс имеет угол начала " & ellObj.startAngle * (180 / 3.14) & " и угол конца " & ellObj.endAngle * (180 / 3.14) & " градусов.", vbInformation, "StartAngle Пример"
End Sub