通过COM调用, 读取AutoCAD机械版Bom表

AutoCad提供COM调用互操作，但是通过VC调用的相关资料少的可怜，在网上基本查不到，去Autodesk官网上找居然也没有相应的说明，都得靠自个儿摸索呀。

第一步，建立一个VC的工程，不多说了。

第二步，导入相关的AutoCAD相关的COM类型库，在工程文件加上电机右键，选择添加 -> 类 -> C++ -> VisulC++ -> MFC -> TypeLibvs 的MFC类, 如下图：

需要从三个类型库中导入，下图中画框的部分

里面有很多个接口头文件，选中我们需要的几个头文件导入即可，或者全部选中导入。本次工作用到的只有如下的9个：

#include "CAcadApplication.h"
#include "CAcadDocument.h"
#include "CAcadModelSpace.h"
#include "CAcadDocuments.h"
#include "CAcadEntity.h"
#include "CMcadPartList.h"
#include "CMcadBOMItems.h"
#include "CMcadBOMItem.h"

#include "CMcadBOM.h"

第三部：建立AutoCAD的COM实例

CAcadApplication* m_pAcadApplication = NULL;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);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) {AfxMessageBox(_T("起动 AutoCAD 软件失败。"));}return bResult;
}

第四步：读入BOM数据

void ReadBomData()
{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("\\读入Bom示例.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;if (clEntity.get_EntityName() == _T("AcmPartList")){CMcadPartList clPartList = clEntity.DetachDispatch();CMcadBOMItems clItems =  clPartList.get_ItemList();for (long j=0; j<clItems.get_Count(); j++){CMcadBOMItem clItem = clItems.Item(j);COleSafeArray arData = clItem.get_Data();long lBound1 = -1;long uBound1 = -1;long lBound2 = -1;long uBound2 = -1;arData.GetLBound(1, &lBound1);arData.GetUBound(1, &uBound1);arData.GetLBound(2, &lBound2);arData.GetUBound(2, &uBound2);BSTR *pbstr;arData.AccessData((LPVOID*)&pbstr);int idx = 0;for (int r=0; r<uBound2-lBound2+1; r++){str.Format(_T("%s\t"), clItem.get_ItemNumber());for (int c=0; c<uBound1-lBound1+1; c++){str.AppendFormat(_T("%s\t"), pbstr[idx++]);}str += '\n';OutputDebugString(str);}ASSERT(uBound1-lBound1+1 == 9);ASSERT(uBound2-lBound2+1 == 2);pbstr += 9;str.Format(_T("%s"), clItem.get_ItemNumber());m_lstBom.SetItemText(j, 0, str);m_lstBom.SetItemText(j, 1, pbstr[4]);m_lstBom.SetItemText(j, 2, pbstr[7]);m_lstBom.SetItemText(j, 3, pbstr[8]);m_lstBom.SetItemText(j, 4, pbstr[6]);m_lstBom.SetItemText(j, 5, pbstr[1]);m_lstBom.SetItemText(j, 6, pbstr[0]);m_lstBom.SetItemText(j, 7, pbstr[5]);arData.UnaccessData();}}}}delete m_pAcadApplication;
}

m_lstBom是个listCtrl控件

详细请参考示例代码: https://download.csdn.net/download/yzhuang/10449286

通过COM调用, 读取AutoCAD机械版Bom表相关推荐

CAD Mechanical机械版安装失败，怎么完全彻底卸载删除清理干净CAD Mechanical机械版各种残留注册表和文件？【转载】
CAD Mechanical机械版卸载工具,完全彻底删除干净CAD Mechanical机械版各种残留注册表和文件.CAD Mechanical机械版安装失败,怎么完全彻底删除清理干净CAD Mech ...
用VC读写机械版AutoCAD标题栏数据
开发环境,VS2015 & AutoCAD Mechanical 2018 1.建立一个对话框工程,上面放一个列表控件和两个按钮. 2.从AutoCAD的类型库中导入相关头文件. 在解决方案管 ...
AutoCAD Mechanical v2022.1.2 CAD机械版简体中文精简直装版
AutoCAD软件是由美国欧特克有限公司(Autodesk)出品的一款自动计算机辅助设计软件,可以用于绘制二维制图和基本三维设计,通过它无需懂得编程,即可自动制图,因此它在全球广泛使用,可以用于土木建 ...
中望cad机械版2021中文版知名的机械设计应用
中望cad机械版2021是由广州中望龙腾软件股份有限公司全新打造的一款功能强大的CAD机械设计软件,是众多国内外机械设计师们首选的一款软件之一,它拥有人们最为熟悉的操作界面和绘图命令,用户无需改变以往 ...
python处理cad_python3读取autocad图形文件.py实例
废话不多说,看代码吧! ''' 待完善. 此代码实现了,根据标注文本的属性,数值,位置,及容差, 去判断设计和实测两图中的同一位置的尺寸. 如果是同一位置的尺寸,则进行比较, 并把结果存成表 ...
python读取cad_python3读取autocad图形文件.py实例
废话不多说,看代码吧! ''' 待完善. 此代码实现了,根据标注文本的属性,数值,位置,及容差, 去判断设计和实测两图中的同一位置的尺寸. 如果是同一位置的尺寸,则进行比较, 并把结果存成表 ...
python dwg文件读取_python3读取autocad图形文件.py实例
废话不多说,看代码吧! ''' 待完善. 此代码实现了,根据标注文本的属性,数值,位置,及容差, 去判断设计和实测两图中的同一位置的尺寸. 如果是同一位置的尺寸,则进行比较, 并把结果存成表 ...
计算机应用技术学autoCAD,21世纪高等学校计算机应用技术规划教材：AutoCAD机械设计项目式教程...
21世纪高等学校计算机应用技术规划教材:AutoCAD机械设计项目式教程语音编辑锁定讨论上传视频 <21世纪高等学校计算机应用技术规划教材AutoCAD机械设计项目式教程>是20 ...
CAXA电子图板2013机械版下载及安装教程详解
资源共享:https://download.csdn.net/download/wise18146705004/10755317,欢迎大家下载,保证全套有用.本人亲测参考链接为:https://ji ...

通过COM调用, 读取AutoCAD机械版Bom表

通过COM调用, 读取AutoCAD机械版Bom表相关推荐

最新文章

热门文章