Sub Example_GetAngle()
    ' Этот пример демонстрирует 4 различных способа получить угол от
    ' пользователя, используя метод GetAngle.
    
    Dim retAngle As Double
    
    ' Возвратите угол в радианах с подсказкой
    retAngle = ThisDrawing.Utility.GetAngle(, "Введите угол: ")
    MsgBox "Введенный угол " & retAngle, , "GetAngle Example"
    
    ' Возвратите угол в радианах без любой подсказки
    retAngle = ThisDrawing.Utility.GetAngle()
    MsgBox "Введенный угол " & retAngle, , "GetAngle Пример"
    
    ' Возвратите угол в радианах с подсказкой и угловой арифметической запятой
    Dim basePnt(0 To 2) As Double
    basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0#
    retAngle = ThisDrawing.Utility.GetAngle(basePnt, "Enter an angle: ")
    MsgBox "Введенный угол " & retAngle, , "GetAngle Пример"
    
    ' Возвратите угол в радианах с угловой арифметической запятой, но без подсказки
    retAngle = ThisDrawing.Utility.GetAngle(basePnt)
    MsgBox "Введенный угол " & retAngle, , "GetAngle Пример"
    
End Sub