GetKeyword 方法

AutoCAD ActiveX/VBA

 
GetKeyword 方法
 
 
 

GetKeyword 方法提示用户在 AutoCAD 命令提示下输入关键字。该方法只接收一个参数,即提示字符串。关键字和输入参数是通过调用 InitializeUserInput 方法来定义的。

从 AutoCAD 命令行获取用户输入的关键字

以下样例通过将 InitializeUserInput 的第一个参数设置为 1,来强制用户输入关键字,但不能使用 NULL 输入(按 ENTER 键)。第二个参数将建立有效关键字列表。

Sub Ch3_KeyWord()
    Dim keyWord As String
    ThisDrawing.Utility.InitializeUserInput 1, "Line Circle Arc"
    keyWord = ThisDrawing.Utility.GetKeyword _
              (vbCrLf & "Enter an option (Line/Circle/Arc): ")
    MsgBox keyWord, , "GetKeyword Example"
End Sub

更加易用的关键字提示可以在用户按 ENTER 键(NULL 输入)时提供默认值。请注意下面样例中的微小修改:

Sub Ch3_KeyWord2()
    Dim keyWord As String
    ThisDrawing.Utility.InitializeUserInput 0, "Line Circle Arc"
    keyWord = ThisDrawing.Utility.GetKeyword _
              (vbCrLf & "Enter an option (Line/Circle/<Arc>): ")
    If keyWord = "" Then keyWord = "Arc"
    MsgBox keyWord, , "GetKeyword Example"
End Sub