Sub Example_GetInput()
    ' Этот пример запрашивает относительно пользовательского ввода точки.
    ' Используя метод InitializeUserInput определяют список ключевого слова,
    ' пример может также возвратить ключевые слова, введенные пользователем.
    
    On Error Resume Next
    
    ' Определите допустимые ключевые слова
    Dim keywordList As String
    keywordList = "Keyword1 Keyword2"
    
    ' Вызовите InitializeUserInput, чтобы установить ключевые слова
    ThisDrawing.Utility.InitializeUserInput 128, keywordList
    
    ' Получите пользовательский ввод
    Dim returnPnt As Variant
    returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point(Keyword1, Keyword2): ")
    If Err Then
         If StrComp(Err.Description, "User input is a keyword", 1) = 0 Then
         ' Одно из ключевых слов было введено
             Dim inputString As String
             Err.Clear
             inputString = ThisDrawing.Utility.GetInput
             MsgBox "Вы ввели ключевое слово: " & inputString
         Else
             MsgBox "Ошибка, выбирающая точку: " & Err.Description
             Err.Clear
         End If
    Else
        ' Отображение указывает координаты
        MsgBox "WCS точки: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetInput Пример"
    End If
    
End Sub