调用CAD 隐藏问题。

suntenlin · 发表于 2007-9-4 13:01:00

代码如下：
On Error Resume Next
Set acadObj = GetObject(, ".Application")
If Err Then
Set acadObj = CreateObject("AutoCAD.Application")
Err.Clear
End If
acadObj.Application.Visible = False ‘隐藏acad.exe

acadObj.Quit
代码没有问题，可以实现调用acad.exe,并执行相关操作。
可是我发现每次执行完这段程序之后，再次打开acad.exe，栏就自动消失了。
将代码改为 acadObj.Application.Visible = True 工具栏就正常了，
可是无法达到我想在调用CAD进程时隐藏ACAD.exe界面的效果。
请问各位大虾。。。有没有办法啊？