dxhy 发表于 2007-10-25 18:04:00

[求助]怎么让VB接受CAD命令？

我在用VB编写某一程序时，需要向CAD发送一系列命令，用户想在中途中断，不管怎么弄都不行，总是显示“部件要求挂起、切换到”等信息，而且必须强制结束。大家帮帮我！

英雄无敌 发表于 2007-10-25 21:58:00

<p>你要看看你的CAD是否正在运行程序，如果它正在运行，是会显示“部件要求挂起、切换到”等信息的</p><p>如果CAD处于空闲状态，应该不会有这个问题</p><p>而且，如果你发送了一个命令让CAD执行某个程序，在CAD执行完以前，你后面的命令可能会发不出去，当然也无法中断，要中断，只能在CAD中按ESC</p>

dxhy 发表于 2007-10-26 07:48:00

谢谢楼上的回答，不过，我的程序是不断地重复执行某一命令，我在CAD里按了ESC，显示了一个取消命令，紧接着又开始执行这一命令，怎么弄也结束不了！

英雄无敌 发表于 2007-10-26 09:28:00

<p>那你在VB里设一个暂停按钮不就行了啊，点击后不再发送命令</p><p>或者，在VB里调用一个API，检测ESC是否被按下，按下则停止发送命令</p>

dxhy 发表于 2007-10-27 17:49:00

这种方法好像也不行，因为VB不断向CAD发送命令后，程序的主动权始终在CAD那里，VB始终获得不到焦点，所以就无法接受任何鼠标和键盘事件。

muzi2005888 发表于 2007-10-27 18:13:00

也许你可以让VB在CAD中捕获一个错误指令...

dxhy 发表于 2007-10-28 09:49:00

可是CAD中并没有错误指令啊！

英雄无敌 发表于 2007-10-29 19:19:00

<p>你在向CAD发送命令的循环中，用了DOEVENTS没有啊</p>

dxhy 发表于 2007-10-30 07:45:00

没有

英雄无敌 发表于 2007-10-30 08:05:00

<p>你不用DOEVENTS，一旦进入循环，就是死循环，程序没有机会将响应其它的命令，可以这样使用</p><p>option explicit</p><p>dim Pause as boolean</p><p>private sub Sendtocad()</p><p>pause=false</p><p>do while pause=false</p><p>....</p><p>doevents</p><p>loop</p><p>end sub</p><p>private commandPause_click()</p><p>pause=true</p><p>end sub</p><p>当然，这只是一个说明示例，如果你想暂停后再接着刚才的命令后继续，那可能还得多写一点代码。</p>
页: [1] 2
查看完整版本: [求助]怎么让VB接受CAD命令？