请问在AUTOCAD环境中如何判断按键是“ESC”？

muzilongyun

我在ＡＵＴＯＣＡＤ中按下“ＥＳＣ”在命令提示中会显示“*取消*”

我想在按下“ＥＳＣ”时运行宏命令，请问怎样捕获按下“ＥＳＣ”的事件？

muzilongyun

 本版的人气不旺啊！

难道我问的问题太简单了吗？

hbyu2003

Public Const VK_ESCAPE = &H1B      ' 代表Esc键
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

' 功能：判断用户是否按下某一个键
Public Function CheckKey(lngKey As Long) As Boolean
  If GetAsyncKeyState(lngKey) Then
    CheckKey = True
  Else
    CheckKey = False
  End If
End Function

muzilongyun

首先表示感谢hbyu2003！

可我不是想问在运行getpoint等命令时的按ESC的出错处理，

而是想知道在autocad环境中如何能捕获到按下Esc事件，

比如在cad中，没做任何操作的情况下，按下Esc,如果捕获到，就可以处理相应的程序！

mccad

AutoCAD并没有捕获按钮运作的触发机制。

nickliu71

挺好，感谢！

StartMe

写个随windows自启动的程序常驻内存，监视在CAD打开的情况下是否有按了esc键，如果有则让CAD启动你的宏命令。

yxh1202

能不能在VBA执行的任何位置按下ESC键就可以取消VBA程序的运行呢，谢谢指教。

洋葱老爹

读取系统变量"erron",根据返回值可以知道是否按了ESC键或别的什么键.

好像返回7就是按了ESC键,详细对应值参看开发人员标准吧.里面有详细列表,不过是E文的.

顽石

yxh1202发表于2010-6-8 14:46:00能不能在VBA执行的任何位置按下ESC键就可以取消VBA程序的运行呢，谢谢指教。

可以在对应的控件的keypress事件中写代码，用ASCII码来判断，如下所示

 

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii = 27 Then
    End
  End If
End Sub