linjiancun 发表于 2009-7-28 08:53:00

用 CreateObject("Autocad.application.16.2")的方式启动CAD06版本速度很慢~

<p>本人的电脑以前装过很多个其它的CAD版本，用CreateObject("Autocad.application.16.2")启动CAD的话，速度会很慢，像死机一样，有时候要=个1~2分钟。请问有什么法子改善下。</p>

xia_jxs 发表于 2009-7-31 08:39:00

<p>给你一段参考程序 CAD为2006 启动很快</p><p>private&nbsp;acadapp As Object&nbsp;&nbsp;&nbsp; '建立Application对象<br/>&nbsp;private&nbsp;acaddoc As Object&nbsp;&nbsp;&nbsp; '建立Document对象<br/>&nbsp;private&nbsp;acaddocs As Object<br/><br/>On Error Resume Next<br/>&nbsp; get_statue = False<br/>&nbsp;Set acadapp = GetObject(, "autocad.application.16")&nbsp;&nbsp; '若AutoCad已启动 , 则直接得到一个 Application对象<br/>&nbsp;If Err Then<br/>&nbsp;Err.Clear<br/>&nbsp;Else<br/>&nbsp;get_statue = True<br/>&nbsp;Set acaddoc = acadapp.ActiveDocument&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '设acaddoc为当前图形文件<br/>&nbsp;Set acaddocs = acadapp.Documents<br/>&nbsp;End If<br/></p>

linjiancun 发表于 2009-7-31 10:45:00

<p>Set acadapp = GetObject(, "autocad.application.16")&nbsp;&nbsp; 的话前提是CAD已经打开了，这样肯定会很快！~而用CreateObject("Autocad.application.16") 来启动的话，就会很慢很慢不知道是不是我的电脑原因，大家有没有碰到这问题！</p>
页: [1]
查看完整版本: 用 CreateObject("Autocad.application.16.2")的方式启动CAD06版本速度