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

dxhy

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

英雄无敌

你要看看你的CAD是否正在运行程序，如果它正在运行，是会显示“部件要求挂起、切换到”等信息的

如果CAD处于空闲状态，应该不会有这个问题

而且，如果你发送了一个命令让CAD执行某个程序，在CAD执行完以前，你后面的命令可能会发不出去，当然也无法中断，要中断，只能在CAD中按ESC

dxhy

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

英雄无敌

那你在VB里设一个暂停按钮不就行了啊，点击后不再发送命令

或者，在VB里调用一个API，检测ESC是否被按下，按下则停止发送命令

dxhy

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

muzi2005888

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

dxhy

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

英雄无敌

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

dxhy

没有

英雄无敌

你不用DOEVENTS，一旦进入循环，就是死循环，程序没有机会将响应其它的命令，可以这样使用

option explicit

dim Pause as boolean

private sub Sendtocad()

pause=false

do while pause=false

....

doevents

loop

end sub

private commandPause_click()

pause=true

end sub

当然，这只是一个说明示例，如果你想暂停后再接着刚才的命令后继续，那可能还得多写一点代码。