[求助]VBA中哪个GetXXXX是允许用户在图形中选择或用户输入的啊？

arwaihy

写程序中遇到一个问题，在获取值是需要考虑用户是自己输入了某个值还是在图形中选择了某个文本对象，有哪个GetXXX可以实现啊？或者其他哪个方法可以实现啊？请知道的帮帮忙，告知一下，谢谢····

雪山飞狐_lzh

选择对象时加关键字

arwaihy

可以详细点吗？？不明白如何加关键字。。。

谢谢！

NetBee

语法
object.InitializeUserInput Bits[, Keyword]
Object
[url=mkMSITStore:C:\Program%20Files\NBSoft\NBCadTools\acadauto.chm::/idh_utility_object.htm]Utility[/url]
使用该方法的对象。
Bits
Integer[整数]; 仅用于输入
要同时设置多个条件上，可把这些值相加做任意组合如果不包含这些值或设为 0，则不使用这些控制条件。
1
不接受 NULL 输入。防止用户只按回车或空格来响应输入请求。
2
不接受输入零值(0)。防止用户输入 0 来响应输入请求。
4
不接受输入负值。防止用户输入负值来响应输入请求。
8
即使 LIMCHECK 系统变量为打开时也不检查图形界限。使用户能够输入当前图形界限以外的点。即使 AutoCAD 的系统变量 LIMCHECK 当前被设置为开 (ON)，本条件也照样对随后调用的用户输入函数有效。
16
目前不使用。
32
用虚线绘制拖引线或拉伸方框。对于那些可以由用户在图形屏幕上通过选择位置来指定一个点的函数，设置该控制位将使拖引线和拉伸方框显示为虚线而不是实线（某些显示驱动程序用颜色醒目的线来代替虚线）。如果系统变量 POPUPS 设为 0
，AutoCAD 将忽略该控制位。
64
忽略三维点的 Z 坐标(只用于 GetDistance 方法). 该项忽略由 GetDistance 方法返回的三维点的 Z 坐标，以使应用程序确保该函数返回的是二维距离。
128
允许任意输入任何用户类型。
Keyword
Variant[变体] (字符串数组); 仅用于输入; 可选项
将被后续的用户输入方法识别的关键字。
说明
在调用 [url=mkMSITStore:C:\Program%20Files\NBSoft\NBCadTools\acadauto.chm::/idh_getkeyword.htm]GetKeyword[/url] 前必须用该方法定义关键字。假如已经调用该方法定义了关键字，请确定用户输入方法可接受正常返回值以外的关键字值。可接受关键字的用户输入方法有： GetKeyword, GetInteger, GetReal, GetDistance, GetAngle, GetOrientation, GetPoint, 和 GetCorner。  

2. Sub Example_InitializeUserInput()
3.     ' This example prompts for user input of a point. By using the
4.     ' InitializeUserInput method to define a keyword list, it can also
5.     ' return keywords entered by the user.
6.    
7.     On Error Resume Next
8.    
9.     ' Define the valid keywords
10.     Dim keywordList As String
11.     keywordList = "Keyword1 Keyword2"
12.    
13.     ' Call InitializeUserInput to setup the keywords
14.     ThisDrawing.Utility.InitializeUserInput 128, keywordList
15.    
16.     ' Get the user input
17.     Dim returnPnt As Variant
18.     returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point(Keyword1, Keyword2): ")
19.     If Err Then
20.          If StrComp(Err.Description, "User input is a keyword", 1) = 0 Then
21.          ' One of the keywords was entered
22.              Dim inputString As String
23.              Err.Clear
24.              inputString = ThisDrawing.Utility.GetInput
25.              MsgBox "You entered the keyword: " & inputString
26.          Else
27.              MsgBox "Error selecting the point: " & Err.Description
28.              Err.Clear
29.          End If
30.     Else
31.         ' Display point coordinates
32.         MsgBox "The WCS of the point is: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetInput 示例"
33.     End If
34.    
35. End Sub

Sub Example_InitializeUserInput()     ' This example prompts for user input of a point. By using the     ' InitializeUserInput method to define a keyword list, it can also     ' return keywords entered by the user.         On Error Resume Next         ' Define the valid keywords     Dim keywordList As String     keywordList = "Keyword1 Keyword2"         ' Call InitializeUserInput to setup the keywords     ThisDrawing.Utility.InitializeUserInput 128, keywordList         ' Get the user input     Dim returnPnt As Variant     returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point(Keyword1, Keyword2): ")     If Err Then          If StrComp(Err.Description, "User input is a keyword", 1) = 0 Then          ' One of the keywords was entered              Dim inputString As String              Err.Clear              inputString = ThisDrawing.Utility.GetInput              MsgBox "You entered the keyword: " & inputString          Else              MsgBox "Error selecting the point: " & Err.Description              Err.Clear          End If     Else         ' Display point coordinates         MsgBox "The WCS of the point is: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetInput 示例"     End If     End Sub