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

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

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

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

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

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

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

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

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

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

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

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

没有

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

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

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

发表回复

精选推荐