vb调用AUTOCAD问题

qewrty123456

Public Sub AutoCADConnect()
On Error Resume Next
Set AcadApp = GetObject(, "autocad.application")
If Err Then
   Set AcadApp = CreateObject("autocad.application")
   Err.Clear
   If Err Then
      MsgBox "请检查是否正确安装AutoCAD", vbOKOnly, "提示!"
      Err.Clear
      Exit Sub
   End If
End If
actCAD = True
AcadApp.Visible = True
AcadApp.WindowState = acMax
End Sub
这是一个模块
然后在command1——click中调用！！
为什么总是开机后第一次点击，总是不行，老是提示“部件挂起”，然后等没提示的时候，在点一次，就可以了？？
不明白啊
如果把调用代码直接放到command1——click，就是不用模块，就可以正常使用
求高手解答！！！

chmenf087

首先你的程序有点小问题
Public Sub AutoCADConnect()
On Error Resume Next
Set AcadApp = GetObject(, "autocad.application")
If Err Then
   err.clear     【所以请移到这里来】
   Set AcadApp = CreateObject("autocad.application")
   Err.Clear    【如果在这里清空err那么就永远不会提示"请检查是否正确安装AutoCAD", 】
   If Err Then
      MsgBox "请检查是否正确安装AutoCAD", vbOKOnly, "提示!"
      Err.Clear
      Exit Sub
   End If
End If
actCAD = True
AcadApp.Visible = True
AcadApp.WindowState = acMax
End Sub
本来怀疑是AcadApp.WindowState = acMax的问题，但你说在click事件里没问题
那么就是其他地方问题，可能是在你启动CAd的时候，又向CAD发送命令进行操作
这样就会导致部件挂起

qewrty123456

回复 chmenf087 的帖子

谢谢了，很有道理!!!