[VBA程序]：請問 VBA 中的 getpoint

origo

用 getpoint 去取得座標時
如果使用者 在command line 輸入錯誤
例如：輸入 2.000.2 , 2220.32.11
            或是不小心直接按到空白鍵
        
會導致 vba 發生錯誤
請問要如何預防

efan2000

不允许输入为空，可以使用Utility对象的InitializeUserInput方法，设置Bits为1。
如：ThisDrawing.Utility.InitializeUserInput 1
而对于输入错误的预防，则只能通过错误捕捉来处理。

Quelea

以下转载自明经通道 [/COLOR]


控制用户输入

你可使用InitializeUserInput方法定义关键字或约束输入到用户输入方法的类型。其使用和参数值与AutoLISP的initget函数大致相同。InitializeUserInput可用于以下方法：GetAngle、GetCorner、GetDistance、GetInteger、GetKeyword、GetOrientation、GetPoint和GetReal。InitializeUserInput不能用于GetString方法。当用户输入方法没有返回字符串值时，使用GetInput方法以返回字符串值(关键字或字母输入)。

InitializeUserInput方法接受两个参数，第一个参数为位编码整数值，它确定用户输入方法的输入选择。第二个参数为字符串，它定义了有效的关键字。

在AutoCAD命令行中从用户获取整数值或关键字

以下示例提示用户输入非零正整数或关键字：

2. 
   
3. [FONT=courier new]
   
4. Sub Ch3_UserInput()
   
5. 
   
6. ' InitializeUserInput (6)的第一个参数约束输入非零正整数。
   
7. ' 第二个参数为有效的关键字列表。
   
8. ThisDrawing.Utility.InitializeUserInput 6, "Big Small Regular"
   
9. ' 设定提示字符串
   
10. Dim promptStr As String
    
11. promptStr = vbCrLf & "输入大小或[大(B)/小(S)/正常(R)]<正常>):"
    
12. ' 在GetInteger 提示下输入关键字将会出错；
    
13. ' 在检查到有出错信息后还允许程序继续运行，
    
14. ' 你必须设定出错处理以恢复该错误。
    
15. On Error Resume Next
    
16. 
    
17. ' 获取用户输入值
    
18. Dim returnInteger As Integer
    
19. returnInteger = ThisDrawing.Utility.GetInteger(promptStr)
    
20. ' 检查错误。如果错误描述与以下提示匹配，
    
21. ' 则使用GetInput以取得返回的字符串
    
22. ' 否则，使用returnInteger值。
    
23. If Err.Description = "User input is a keyword" Then
    
24. 
    
25. Dim returnString As String
    
26. returnString = ThisDrawing.Utility.GetInput()
    
27. Err.Clear
    
28. 
    
29. Else
    
30. 
    
31. If returnInteger = 0 Then '如果用户按了回车
    
32. 
    
33. returnString = "Regular" '设定默认值
    
34. Else '否则,
    
35. returnString = returnInteger '使用输入的值
    
36. 
    
37. End If
    
38. 
    
39. End If
    
40. ' Display the result
    
41. MsgBox returnString, , "InitializeUserInput 示例"
    
42. 
    
43. End Sub
    
44. [/FONT]

<br /> [FONT=courier new]<br /> Sub Ch3_UserInput()<br /> <br /> ' InitializeUserInput (6)的第一个参数约束输入非零正整数。<br /> ' 第二个参数为有效的关键字列表。<br /> ThisDrawing.Utility.InitializeUserInput 6, "Big Small Regular"<br /> ' 设定提示字符串<br /> Dim promptStr As String<br /> promptStr = vbCrLf & "输入大小或[大(B)/小(S)/正常(R)]<正常>):"<br /> ' 在GetInteger 提示下输入关键字将会出错；<br /> ' 在检查到有出错信息后还允许程序继续运行，<br /> ' 你必须设定出错处理以恢复该错误。<br /> On Error Resume Next<br /> <br /> ' 获取用户输入值<br /> Dim returnInteger As Integer<br /> returnInteger = ThisDrawing.Utility.GetInteger(promptStr)<br /> ' 检查错误。如果错误描述与以下提示匹配，<br /> ' 则使用GetInput以取得返回的字符串<br /> ' 否则，使用returnInteger值。<br /> If Err.Description = "User input is a keyword" Then<br /> <br /> Dim returnString As String<br /> returnString = ThisDrawing.Utility.GetInput()<br /> Err.Clear<br /> <br /> Else<br /> <br /> If returnInteger = 0 Then '如果用户按了回车<br /> <br /> returnString = "Regular" '设定默认值<br /> Else '否则,<br /> returnString = returnInteger '使用输入的值<br /> <br /> End If<br /> <br /> End If<br /> ' Display the result<br /> MsgBox returnString, , "InitializeUserInput 示例"<br /> <br /> End Sub<br /> [/FONT]