[VBA]获取用户输入的问题？

macula

怎样实现如下功能：

提示用户：“选择对象或[设置(S)]：”后，
用户在屏幕上选择对象，或者输入“S”进入设置窗口

我使用 GetEntity方法好像实现不了，
GetEntity方法选择对象时如果输入字符则提示错误并让继续选择！
而InitializeUserInput方法好像不支持GetEntity

mccad

可以支持啊：

2. Sub Mccad_InitializeUserInput()
3.     ' 该示例提示用户选择对象，并通过
4.     ' InitializeUserInput 方法定义关键字列表，
5.     ' 用户要以用它来输入关键字。
6.    
7.     On Error Resume Next
8.    
9.     ' 定义有效的关键字
10.     Dim keywordList As String
11.     keywordList = "S E"
12.    
13.     ' 调用 InitializeUserInput 初始化关键字
14.     ThisDrawing.Utility.InitializeUserInput 0, keywordList
15.    
16.     ' 获得用户输入
17.     Dim Pnt As Variant
18.     Dim ent As AcadEntity
19.      ThisDrawing.Utility.GetEntity ent, Pnt, "选择对象[设置(S)/删除(E)]： "
20.     If Err Then
21.          If StrComp(Err.Number, -2145320928, 1) = 0 Then
22.          ' 当输入关键字时
23.              Dim inputString As String
24.              Err.Clear
25.              inputString = ThisDrawing.Utility.GetInput
26.              MsgBox "输入的关键字是: " & inputString
27.          Else
28.              MsgBox "选择对象出错: " & Err.Description
29.              Err.Clear
30.          End If
31.     Else
32.         ' 显示用户选定的对象类型
33.         MsgBox "你选定的对象类型为: " & ent.ObjectName, , "明经VBA示例：GetEntity及InitializeUserInput方法"
34.     End If
35. End Sub

Sub Mccad_InitializeUserInput()     ' 该示例提示用户选择对象，并通过     ' InitializeUserInput 方法定义关键字列表，     ' 用户要以用它来输入关键字。         On Error Resume Next         ' 定义有效的关键字     Dim keywordList As String     keywordList = "S E"         ' 调用 InitializeUserInput 初始化关键字     ThisDrawing.Utility.InitializeUserInput 0, keywordList         ' 获得用户输入     Dim Pnt As Variant     Dim ent As AcadEntity      ThisDrawing.Utility.GetEntity ent, Pnt, "选择对象[设置(S)/删除(E)]： "     If Err Then          If StrComp(Err.Number, -2145320928, 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 "你选定的对象类型为: " & ent.ObjectName, , "明经VBA示例：GetEntity及InitializeUserInput方法"     End If End Sub

macula

搞定了，谢谢！