wylong 发表于 2005-7-4 09:17:00

关键是如何强制退出?给命令行发送esc命令不起作用。只能按esc键。


       


----------------------------------------------


<A href="http://www.tencent.cc/vip.htm?qq=225521" target="_blank" ><FONT color=#000000>http://www.tencent.cc/vip.htm?qq=225521</FONT></A><BR>六位数的QQ不要钱啦,点击马上申请!<BR>----------------------------------------------<BR><BR>

twosun 发表于 2005-7-4 14:55:00

本帖最后由 作者 于 2005-7-5 9:18:29 编辑 <br /><br /> to:yi821005<BR>我采用你说的方法试了一下,代码如下:glb_acadDoc.SendCommand("_Esc"),但仍然出错,“提示被呼叫方拒绝接收呼叫”看来CAD对于这个命令也是忙的。不知道还有没有别的办法?<BR>to:lucaslynn<BR>你也给我提供了一个思路,即然在VBA中可以遍历,那么是不是可以在vba中运行SendCommand("_Esc")命令呢?可是我试了一下也不行,我用的代码如下:ThisDrawing.SendCommand ("_Esc")。



to:wylong<BR>你的意思是没有别的办法了,只能提示用户按一下ESC键吗?


谢谢三位的答复!不知道还有什么方法可以解决这个问题?请各位高手们多出点主意啊?小弟在此多谢了!

my_computer 发表于 2005-7-5 22:59:00

试试这个:


AppActivate ThisDrawing.Application.Caption       (此句的意思是激活你要用的cad,至于在你的程序中应该怎样写,要看实际情况了)


SendKeys "{ESC}"               因为上面已经激活了需要检测的cad,所以向她发送个ESC,结束她正在进行的工作,为了稳定,最好连发两次。

twosun 发表于 2005-7-7 16:39:00

本帖最后由 作者 于 2005-7-13 9:10:30 编辑 <br /><br /> <P>谢谢,my_computer,我先试一下</P>
<P>多谢my_computer您说的方法可以,很好用啊。</P>
页: 1 [2]
查看完整版本: 提示是“应用程序正在使用中”,如何解决