vb调用AUTOCAD问题

qewrty123456 · 发表于 2011-4-19 10:14:00

Public Sub Connect()
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 · 发表于 2011-4-19 19:00:00

首先你的程序有点小问题
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 · 发表于 2011-4-20 12:06:00

回复
谢谢了，很有道理!!!

vb调用AUTOCAD问题

发表回复

精选推荐