GetKeyword 方法

GetPoint 方法

提示用户输入

控制用户输入

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