CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2019 开发者帮助 › 查看内容

AutoCAD 2019 开发者帮助

关于请求关键字（VBA/ActiveX）

2024-5-18 17:50| 发布者: admin| 查看: 116| 评论: 0|原作者: admin|来自: AutoCAD

该方法在AutoCAD命令提示符下提示用户输入关键字。GetKeyword

此方法仅接受一个参数，即提示字符串。关键字和输入参数是通过调用该方法来定义的。InitializeUserInput

在AutoCAD命令提示符下从用户处获取关键字

下面的示例通过将第一个参数设置为 1 来强制用户输入关键字，这将不允许 NULL 输入（按 Enter）。第二个参数建立有效关键字列表。InitializeUserInput

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