请教：利用VBA怎么实现取消，相当于按了ESC

lichh_2003 · 发表于 2006-4-24 14:40:00

wyj7485 · 发表于 2006-4-24 14:51:00

Public BLKSet As AcadSelectionSet
Public HH
Private Const VK_ESCAPE = &H1B
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

If GetAsyncKeyState(VK_ESCAPE) Then
...........
End If

lichh_2003 · 发表于 2006-4-24 15:18:00

不是这个意思啊。

我是说在VBA中取消CAD当前的命令；

比如说正在运行画线命令，我在VBA中取消他，而运行别的命令

wyj7485 · 发表于 2006-4-24 15:31:00

CAD运行命令时能再运行宏吗?

lichh_2003 · 发表于 2006-4-24 16:18:00

不是。我是说用VBA调用LISP程序，当后面还有LISP程序时，如果前面的出错没有完成时，后面的就接着出错。

通过取消上个命令可以继续后面的LISP

账号		自动登录	找回密码
密码			注册