求助帖—VB调用CAD总提示“部件忙”。附代码和问题截图。

oldcatcup

代码：
Dim AcadApp As AcadApplication
Private Sub Form_Load()
On Error Resume Next
Set AcadApp=GetObject(,"AutoCAD.Application")
If Err Then
MsgBox("不能运行AutoCAD2014，请检查是否安装了AutoCAD2014“）
Exit Sub
End if
AcadApp.visible=true
End Sub

问题截图：

vbcad

估计CAD是在编辑状态

Kye

多少年过去了，这个问题有解吗？一般是双击同一个命令（前一次点击还在运行）会产生这个问题
VB怎样取消后台的CAD正在执行的命令，达到在CAD里按ESC一样的效果  好像是同一个问题vb二次开发CAD, 如何不提示 "动作不能完成,因为部件[...]忙 这个是同一问题，现在问题是CAD本身操作可以 实现 如果一个命令没完成,如果进入下一个命令,则会取消上一个命令的所有操作.难道vb6控制做不到?

下面这个是黄老师的及不死猫大佬帖子中提到过，有些地方测试好像也不管用

1. ;;;(sendkeys "{Esc 2}")
   
2. (defun sendkeys        (keys)
   
3. (or *WSH* (setq *WSH* (vlax-get-or-create-object "wscript.shell")))
   
4.   (vlax-invoke-method *WSH* 'sendkeys keys)
   
5.   (princ)
   
6. )

;;;(sendkeys "{Esc 2}")<br /> (defun sendkeys        (keys)<br /> (or *WSH* (setq *WSH* (vlax-get-or-create-object "wscript.shell")))<br />   (vlax-invoke-method *WSH* 'sendkeys keys)<br />   (princ)<br /> )

利用App.PrevInstance防止同一程序执行多次 好像这个也不是用AutoCAD的 测试没通过

kxhoo9

是win10系统吗？
Dim AcadApp As AcadApplication
Private Sub Form_Load()
On Error Resume Next
Set AcadApp=GetObject(,"AutoCAD.Application.19.1")
If Err Then
MsgBox("不能运行AutoCAD2014，请检查是否安装了AutoCAD2014“）
Exit Sub
End if
AcadApp.visible=true
End Sub

这是我现在解决这个问题代码，win10需要加版本号