Sub Example_GetOrientation()
    ' Этот пример использует метод GetOrientation, что бы демонстрировать
    ' три различных способа получить ориентацию от пользователя.
    
    Dim retOrientation As Double
    
    ' Возвратите Ориентацию в радианах с подсказкой
    retOrientation = ThisDrawing.Utility.GetOrientation(, "Введите Ориентацию: ")
    MsgBox "Введенная Ориентация " & retOrientation & vbCrLf & _
            "(Введите следующее значение без подсказки.)", , "GetOrientation Пример"
    
    ' Возвратите Ориентацию в радианах без любой подсказки
    retOrientation = ThisDrawing.Utility.GetOrientation()
    MsgBox "Введенная Ориентация " & retOrientation, , "GetOrientation Пример"
    
    ' Возвратите Ориентацию в радианах с подсказкой и арифметической запятой Ориентации
    Dim basePnt(0 To 2) As Double
    basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0#
    retOrientation = ThisDrawing.Utility.GetOrientation(basePnt, "Введите Ориентацию: ")
    MsgBox "Введенная Ориентация " & retOrientation, , "GetOrientation Пример"
        
End Sub