[求助]：用vb如何关闭autocad？

fenny_5

用vb编的程序，需要调用AutoCAD软件，但有的时候要打开autocad软件，有时不打开，关闭程序时如何实现先查询autocad是否已打开？如果打开就先关闭autocad（不需存盘），再结束程序；如果没打开就直接关闭程序。用vb编程如何实现？谢谢。
    另外教科书中的autocad退出方式是autoobj.quit，但我用的时候总出错，怎么回事？非常感谢lzh741206版主的经常解答问题，还请帮忙，谢谢

neteasy

用一个变量来标记一下就可以。

雪山飞狐(lzh)

Private Sub Form_Load()
On Error Resume Next
Set obj = GetObject(, "autocad.application")
If Not (obj Is Nothing) Then
For Each i In obj.documents
i.Close False
Next i
obj.quit
End If
Set obj = CreateObject("autocad.application")
obj.Visible = True
End Sub
建议不要通过VB打开CAD，速度太慢了

fenny_5

版主你可能误会了，我问的是在退出软件时发生的情况。我现在把程序改了一下，软件打开时就把cad打开，退出时就可绕开这个问题。
  但是在没有安装autocad的机器上运行和退出时，如何提示安装而不出现乱码？

雪山飞狐(lzh)

出现什么乱码?

fenny_5

对不起是口误，不是乱码，显示的错误代码91，请教怎么设置出口不再显示，而是提示未安装软件？

雪山飞狐(lzh)

Private Sub LinkCad()
On Error Resume Next
Set obj = GetObject(, "autocad.application")
If ErrThen
Err.Clear
Set obj = CreateObject("autocad.application")
end if
if Err then
msgbox "未安装软件"
exit sub
end if
end sub

fenny_5

我用的代码与你的稍有一点不同，可就是不行，能解释一下吗？
Private Sub LinkCad()
On Error Resume Next
Set obj = GetObject(, "autocad.application")
If ErrThen
Err.Clear
Set obj = CreateObject("autocad.application")
elseif Err then
msgbox "未安装软件"
exit sub
end if
end sub

问题现在已经解决了，谢谢你。
顺便问一句，头像图片显示的你的小孩是男孩还是女孩？真可爱。