[VBA程序]：怎么样实现esc

xsquan

用vb编程在cad命令行中输入很多的点，当我想按esc键就可以退出这个画点的程序，应该怎么样做

efan2000

一般的话，如果是用GetPoint的话，那么可以检测在出错时用GetVariable("LASTPROMPT")获取最后一次操作的提示，如果按了ESC键，那么最后的提示中一定有Cancel（英文）或者取消（中文）这样的字符，只要这些存在，就知道一定是按了ESC键。
对于你所说的很多点，那就要看实际情况了，请说明清楚一点，或者举个例子，贴个代码之类。

xsquan

是这样的，利用vb让cad实现line，或者在屏幕上选择一个选择集的内容等，当cad命令行提示操作的时候，如何实现按了esc就可以退出了这个操作呢，用你上面提供的命令，是可以获得lastprompt，但是不是每一种命令行的提示都是一样的，好像我用acadobj.ActiveDocument.Utility.InitializeUserInput 1, "Simple Mutitle"
Dim returnString As String
returnString = acadobj.ActiveDocument.Utility.GetKeyword("请选择修改一条等高线(Simple)  或者 修改多条等高线( Mutitle): ")
当我在命令提示行中按了esc就会 执行下一行的语句了，
如果用你的办法（我的理解）就要在最后一个语句加一个判断lastprompt了，

efan2000

也可以统一处理错误，如下面的例子。

2. 
   
3.   [FONT=courier new]
   
4. Sub test()
   
5.     On Error GoTo ErrTrap
   
6.     ThisDrawing.Utility.InitializeUserInput 1, "Simple Mutitle"
   
7.     Dim returnString As String
   
8.     returnString = ThisDrawing.Utility.GetKeyword("请选择修改一条等高线(Simple) 或者 修改多条等高线( Mutitle): ")
   
9.     Exit Sub
   
10. 
    
11. ErrTrap:
    
12.     '发生错误时跳转到这里
    
13.     If InStr(ThisDrawing.GetVariable("lastprompt"), "Cancel") Then
    
14.     '按了ESC键不处理
    
15.     ElseIf InStr(ThisDrawing.GetVariable("lastprompt"), "取消") Then
    
16.     '按了ESC键不处理
    
17.     Else
    
18.         Resume '自己视情况处理
    
19.     End If
    
20. End Sub
    
21.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub test()<br />     On Error GoTo ErrTrap<br />     ThisDrawing.Utility.InitializeUserInput 1, "Simple Mutitle"<br />     Dim returnString As String<br />     returnString = ThisDrawing.Utility.GetKeyword("请选择修改一条等高线(Simple) 或者 修改多条等高线( Mutitle): ")<br />     Exit Sub<br /> <br /> ErrTrap:<br />     '发生错误时跳转到这里<br />     If InStr(ThisDrawing.GetVariable("lastprompt"), "Cancel") Then<br />     '按了ESC键不处理<br />     ElseIf InStr(ThisDrawing.GetVariable("lastprompt"), "取消") Then<br />     '按了ESC键不处理<br />     Else<br />         Resume '自己视情况处理<br />     End If<br /> End Sub<br />   [/FONT]<br />

qiaqiadeng

多谢斑竹，解决我的大问题