调用CAD 隐藏问题。

suntenlin

代码如下：
    On Error Resume Next
    Set acadObj = GetObject(, "AutoCAD.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界面的效果。

请问各位大虾。。。有没有办法啊？

suntenlin

这个可是vb 调用cad的入门程序阿，版主帮帮忙看看吧。急死人了

天龙八部

xxxxx.application.visible=true(false),设置了FALSE，当然看不见了，你的意思难道是脱离CAD独立运行的PROGRAMS吗？

suntenlin

可能是我没有描述清楚。

我是说，我执行了这段代码之后 acadObj.Application.Visible = False 。

等再一次运行AutoCAD准备画图时，发现AutoCAD的工具栏自动消失了。

英雄无敌

你在退出CAD前将CAD的VISIBLE置为TRUE

suntenlin

英雄无敌 真是聪明的 ：〉 哈哈。

这样是可以以较小的影响，解决这个问题。

是不是Autocad就是存在这个问题啊？