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

linjiancun

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

xia_jxs

给你一段参考程序 CAD为2006 启动很快

private acadapp As Object    '建立Application对象
 private acaddoc As Object    '建立Document对象
 private acaddocs As Object

On Error Resume Next
  get_statue = False
 Set acadapp = GetObject(, "autocad.application.16")   '若AutoCad已启动 , 则直接得到一个 Application对象
 If Err Then
 Err.Clear
 Else
 get_statue = True
 Set acaddoc = acadapp.ActiveDocument                 '设acaddoc为当前图形文件
 Set acaddocs = acadapp.Documents
 End If

linjiancun

Set acadapp = GetObject(, "autocad.application.16")   的话前提是CAD已经打开了，这样肯定会很快！~而用CreateObject("Autocad.application.16") 来启动的话，就会很慢很慢不知道是不是我的电脑原因，大家有没有碰到这问题！