CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 控制AutoCAD环境› 关于提示用户输入（VBA/ActiveX） › 查看内容

ActiveX 开发指南

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

2023-1-5 02:03| 发布者: admin| 查看: 643| 评论: 0|来自: AutoCAD

摘要: 方法提示用户在 AutoCAD 命令提示下输入关键字。

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

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

在AutoCAD命令提示下从用户那里获取关键字

下面的示例通过将第一个参数 ofs 设置为 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