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

调用CAD 隐藏问题。

代码如下：
    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界面的效果。
请问各位大虾。。。有没有办法啊？

suntenlin 发表于 2007-9-5 08:17:00

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

天龙八部 发表于 2007-9-5 17:46:00

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

suntenlin 发表于 2007-9-5 19:51:00

可能是我没有描述清楚。
我是说，我执行了这段代码之后 acadObj.Application.Visible = False 。
等再一次运行AutoCAD准备画图时，发现AutoCAD的工具栏自动消失了。

英雄无敌 发表于 2007-9-6 08:03:00

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

suntenlin 发表于 2007-9-6 08:39:00

英雄无敌 真是聪明的 ：〉 哈哈。
这样是可以以较小的影响，解决这个问题。
是不是Autocad就是存在这个问题啊？
页: [1]
查看完整版本: 调用CAD 隐藏问题。