Sub Example_Angle()
   ' Этот пример добавляет линию в пространстве модели и возвращает угол новой линии
   
    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double, endPoint(0 To 2)  As Double
    
    ' Определите начало и конечные точки для линии
    startPoint(0) = 1: startPoint(1) = 1: startPoint(2) = 0
    endPoint(0) = 5: endPoint(1) = 5: endPoint(2) = 0
    
    ' Создайте линию в пространстве модели
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)

    ThisDrawing.Application.ZoomAll
    
    MsgBox "Угол новой Линии: " & lineObj.angle
End Sub