Sub Example_AngleFromXAxis()
    ' Этот пример находит угол, в радианах, между осью X и линией,
    ' определенной двумя точками.
    
    Dim pt1(0 To 2) As Double
    Dim pt2(0 To 2) As Double
    Dim retAngle As Double
    
    pt1(0) = 2: pt1(1) = 5: pt1(2) = 0
    pt2(0) = 5: pt2(1) = 2: pt2(2) = 0
    
    ' Возвратите угол
    retAngle = ThisDrawing.Utility.AngleFromXAxis(pt1, pt2)
    
    ' Создайте линию для визуального справочника
    Dim lineObj As AcadLine
    Set lineObj = ThisDrawing.ModelSpace.AddLine(pt1, pt2)
    ZoomAll
    
    ' Покажите найденный угол
    MsgBox "Угол в радианах между осью X и линией " & retAngle, , "AngleFromXAxis Пример"
    
End Sub