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

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

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

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

<P>Public BLKSet As AcadSelectionSet<BR>Public HH<BR>Private Const VK_ESCAPE = &amp;H1B<BR>Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer</P>
<P>&nbsp;</P>
<P>If GetAsyncKeyState(VK_ESCAPE) Then<BR>...........<BR>End If</P>

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

<P>不是这个意思啊。</P>
<P>我是说在VBA中 取消CAD当前的命令；</P>
<P>比如说正在运行画线命令，我在VBA中取消他，而运行别的命令</P>

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

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

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

<P>不是。我是说用VBA调用LISP程序，当后面还有LISP程序时，如果前面的出错没有完成时，后面的就接着出错。</P>
<P>通过取消上个命令可以继续后面的LISP</P>
页: [1]
查看完整版本: 请教：利用VBA怎么实现取消，相当于按了ESC