#import "F:\ACAD2000\acad.tlb" no_namespace named_guids
....
IAcadApplicationPtr pAcadApp;
.... HRESULT h=NOERROR;
CLSID clsid;
::CLSIDFromProgID(L"AutoCAD.Application",&clsid);
h=pAcadApp.GetActiveObject(clsid);
if(SUCCEEDED(h))
{
::AfxMessageBox("GetObject ok");
}
else {
::AfxMessageBox("GetObject Fail!");

if(pAcadApp.CreateInstance(clsid)==S_OK)
::AfxMessageBox("CreateObject ok");
else

{
::AfxMessageBox("CreateObject Fail!");
::PostQuitMessage(0);
}
} pAcadApp->WindowState=acMax;
pAcadApp->Visible=TRUE;
获取相关对象:
pAcadDoc=pAcadApp->ActiveDocument;//可能没有当前的文档,提示出错.
pAcadDoc->get_ModelSpace(&pAcadMSpace);
pAcadApp->WindowState=acMax;
pAcadApp->Visible=TRUE;
可参考帮助文件中对象图
.........