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

调用CAD 隐藏问题。

<p>代码如下：<br/>&nbsp;&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp;&nbsp; Set acadObj = GetObject(, "AutoCAD.Application")<br/>&nbsp;&nbsp;&nbsp; If Err Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set acadObj = CreateObject("AutoCAD.Application")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.Clear<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; <font color="#f70909">acadObj.Application.Visible = False ‘隐藏acad.exe<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp; acadObj.Quit</p><p>代码没有问题，可以实现调用acad.exe,并执行相关操作。</p><p>可是我发现每次执行完这段程序之后，再次打开acad.exe，工具栏就自动消失了。</p><p>将代码改为&nbsp;&nbsp;&nbsp; <font color="#f70909">acadObj.Application.Visible = </font><font color="#bb4444">True&nbsp;</font><font color="#000000">&nbsp; 工具栏就正常了，</font></p><p><font color="#000000">可是无法达到我想在调用CAD进程时隐藏ACAD.exe界面的效果。</font></p><p></p><p>请问各位大虾。。。有没有办法啊？</p><p><font color="#bb4444"></font></p>

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

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

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

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

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

<p><strong><font face="Verdana" color="#61b713">英雄无敌 真是聪明的 ：〉 哈哈。</font></strong></p><p><strong><font face="Verdana" color="#61b713">这样是可以以较小的影响，解决这个问题。</font></strong></p><p><strong><font face="Verdana" color="#61b713">是不是Autocad就是存在这个问题啊？</font></strong></p>
页: [1]
查看完整版本: 调用CAD 隐藏问题。