Sub Example_TotalAngle()
    'Этот пример создает Дугу в пространстве модели 
    'и возвращает полный угол новой Дуги
    
    Dim arcObj As AcadArc
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
    Dim startAngleInDegree As Double, endAngleInDegree As Double
    Dim startAngleInRadian As Double, endAngleInRadian As Double
    
    'Определите Дугу
    centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0
    radius = 5#
    startAngleInDegree = 10#: endAngleInDegree = 230#

    'Преобразуйте углы в градусах к углам в радианах
    startAngleInRadian = startAngleInDegree * 3.141592 / 180#
    endAngleInRadian = endAngleInDegree * 3.141592 / 180#
    
    'Создайте объект дуги в пространстве модели
    Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)
    ThisDrawing.Application.ZoomAll
    
    'Возвратите длину новой дуги
    MsgBox "Полный угол новой Дуги: " & arcObj.TotalAngle
End Sub