用VC读写机械版AutoCAD标题栏数据

开发环境，VS2015 & AutoCAD Mechanical 2018

1、建立一个对话框工程，上面放一个列表控件和两个按钮。

2、从AutoCAD的类型库中导入相关头文件。

在解决方案管理器中的工程标题上右键菜单，选添加，选类，在新建类的界面上选MFC，再选TypeLib中的MFC类

点击添加按钮，弹出类型库向导对话框，来源选文件：

从 C:\Program Files\Common Files\Autodesk Shared\acax22enu.tlb 类型库中导入如下9个头文件：

CAcadApplication.h
   CAcadDocument.h
   CAcadModelSpace.h
   CAcadDocuments.h
   CAcadEntity.h
   CAcadBlock.h
   CAcadBlockReference.h
   CAcadAttribute.h
   CAcadAttributeReference.h

注意：AutoCAD的版本不同，类型库文件路径和文件名也可能不同。

3、建立COM调用

先要打开AutoCAD进程

BOOL OpenAutoCAD()
{BOOL bResult = FALSE;CString strId = _T("AutoCAD.Application");    // 默认版本CLSID clsid;HRESULT hRlt = ::CLSIDFromProgID(strId, &clsid);if (FAILED(hRlt)){AfxMessageBox(_T("当前机器上没有安装 AutoCAD 软件, 或没有指定的版本号。"));}ASSERT(NULL == m_pAcadApplication);if(NULL == m_pAcadApplication)m_pAcadApplication = new CAcadApplication();// 检查是否已经有ACAD进程打开了IUnknown* pUnknown = NULL;hRlt = ::GetActiveObject(clsid, NULL, &pUnknown);if (SUCCEEDED(hRlt) ) {hRlt = pUnknown->QueryInterface(IID_IDispatch, (LPVOID*)m_pAcadApplication);bResult = SUCCEEDED(hRlt);if (!bResult){pUnknown->Release();pUnknown = NULL;}}if (!bResult) {bResult = m_pAcadApplication->CreateDispatch(strId);}if (bResult)m_pAcadApplication->put_Visible(TRUE);elseAfxMessageBox(_T("起动 AutoCAD 软件失败。"));return bResult;
}

读写数据:

void OnBnClickedOk()
{CString strFile;HMODULE hModule = ::GetModuleHandle(NULL);::GetModuleFileName(hModule, strFile.GetBuffer(MAX_PATH), MAX_PATH);strFile.ReleaseBuffer();int iPos = strFile.ReverseFind('\\');if (iPos > 1)strFile.Truncate(iPos);strFile += _T("\\读写标题栏示例.dwg");if (OpenAutoCAD()){// 添加一个新的页面CAcadDocuments clDocs  = m_pAcadApplication->get_Documents();clDocs.Open(strFile, _variant_t(FALSE), COleVariant(_T("")));CAcadDocument m_pAcadDocument  = m_pAcadApplication->get_ActiveDocument();CAcadModelSpace m_pAcadModelSpace = m_pAcadDocument.get_ModelSpace();for (int i=0; i<m_pAcadModelSpace.get_Count(); i++){CAcadEntity clEntity = m_pAcadModelSpace.Item(_variant_t(i));CString str = clEntity.get_ObjectName();OutputDebugString(str);if (str == _T("AcDbBlockReference")){CAcadBlockReference clBlock = clEntity;str = clBlock.get_Name();OutputDebugString(str);if (str.Find(_T("WSACAD_TILE")) == 0){COleSafeArray arAttributes = clBlock.GetAttributes();long lBound1 = -1;long uBound1 = -1;arAttributes.GetLBound(1, &lBound1);arAttributes.GetUBound(1, &uBound1);IDispatch** ppAttrObj = (IDispatch**)((*arAttributes.parray).pvData);for (int i= lBound1; i<= uBound1; i++){CAcadAttributeReference clAttribute = (LPDISPATCH)(ppAttrObj[i]);LV_ITEM lvi;lvi.mask = LVIF_TEXT;lvi.iItem = i;lvi.iSubItem = 0;lvi.pszText = _T("");lvi.iImage = 0;lvi.stateMask = LVIS_STATEIMAGEMASK;lvi.state = INDEXTOSTATEIMAGEMASK(1);m_lstBom.InsertItem(&lvi);// 显示原值m_lstBom.SetItemText(i, 0, clAttribute.get_TagString());m_lstBom.SetItemText(i, 1, clAttribute.get_TextString());// 设置新值str.Format(_T("%2d"), i);clAttribute.put_TextString(str);}}}}m_pAcadApplication->Update();}delete m_pAcadApplication;m_pAcadApplication = NULL;
}

4、运行结果

上述代码可以正常读写机械版的标题栏了。

详细代码在 https://download.csdn.net/download/yzhuang/12593234 处下载