Sub Example_InitializeUserInput()
    ' Этот пример запрашивает относительно пользовательского ввода точки. 
    ' При использовании метода 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(, "Введите точку (Keyword1, Keyword2): ")
    If Err Then
         If StrComp(Err.Description, "Пользовательский ввод - ключевое слово", 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