cad: olevariant; //autocad 对象
caddoc: olevariant; //autocad活动文档
.......................
try
cad := GetActiveOleObject('AutoCAD.Application'); //取得已经运行中的autocad
except
cad := CreateoleObject('AutoCAD.Application'); //启动autocad
end;
sleep(400); //延迟400毫秒,以免发生对象拒绝被呼叫的错误
caddoc := cad.ActiveDocument;
.....................
caddoc.Application.Documents.Open('文件名', True);
如果你不要编辑的话,用cad 带的ocx也行TDwgThumbnail