VC操纵AutoCAD-2.pdfVIP

VC 操纵AutoCAD （二） 利用VC 可以打开AutoCAD ，也可以关闭它，那么下面我们谈谈如何用VC 控制AutoCAD 画图。 前一篇文章《VC 操纵 AutoCAD （一）》说到打开和关闭 AutoCAD ，是在一个消息响应函数中完成的，还 有几个按钮的消息没做，我们将它补充完整，如下： void CAutoCadDlg::OnCadOperationBtn(UINT nID) { switch(nID) { case IDC_CAD_OPEN_BTN : { CLSID clsid; HRESULT h; CString str; h = ::CLSIDFromProgID(LAutoCAD.Application,clsid); if(FAILED(h)) { MessageBox( 您 居 然 没 有安装 AUTOCAD 软 件 ，太 可 惜了。 , 警告 , MB_OK|MB_ICONWARNING); return; } IUnknown *pUnknown=NULL; h = ::GetActiveObj ect(clsid,NULL,pUnknown); //查找是否有AutoCad 程序在运行 if(FAILED(h)) { h = m_AcadApp .CreateDispatch(clsid); if(FAILED(h) ) { MessageBox(AutoCAD 程序打开失败，请检查你的程序是否安装好。88, 警告); return; } MessageBox(恭喜你，AutoCAD 程序打开成功, 警告); } else { try { h=pUnknown-QueryInterface(IID_IDispatch,(LPVOID *)m_AcadApp); if(FAILED(h)) throw(_T(没有取得IDispatchPtr )); pUnknown-Release(); pUnknown=NULL; } catch(LPCTSTR lpErr) { MessageBox(lpErr, 警告, MB_ICONWARNING|MB_OK); return ; } MessageBox(AutoCAD 程序已经打开。, 警告, MB_OKCANCEL); } m_AcadDoc=m_AcadApp .GetActiveDocument();//可 没有当前的文档,提示出错. m_AcadMSpace = m_AcadDoc.GetModelSpace(); m_AcadApp .SetVisible(TRUE); //获取相关对象: } return; case