基于VBA的AutoCAD图块属性提取与Excel输出.docxVIP

基于VBA的AutoCAD图块属性提取与 Excel输出 第23卷第3期(总第102期) Vol.23No.3(SUMNo.l02) 机械管理开发 MECHANICALMANAGEMENTANDDEVELOPMENT 2008年6月 Jun.2008 基于VBA的AutoCAD图块屈性 提取与Excel输出六 何兵,车林仙 (泸州职业技术学院，四川泸州646005) 【摘要】应用 AutoCADNVBA(,VisualBasicforApplication)Zl次开发功能，编制了属 性块的属性提取程序，并以应用实例说明了 AutoCAD图块属性提取与Excel输出，可以利用Excel强大的统计功能方便作出 相关报表. 【关键词】AutoCAD;属性块;VBA;属性提取 【中图分类号】TP317.3【文献标识码】A【文章编号】1003—773X(2008)03—0015 —02 AutoCADDrawing一blockAttributeExtration AndltsExcelOUtDutBasedOnVBA ?HEBing^HELin-xian (Luzhou:PolytechnicCoHege5Luzhou646005,SichuanChina,+ [Abstract]UsingtheexploitativefunctionofVBA(V,isualBasicForApplication)basedonA utoCADsoftware. platform Jhispaperhas madeaprogramforgettingattributesfromdrawing 一 blocksfromAutoCADanditsExceloutput^andmakingcorrespondingreportforms throughExcelcomprehensivestatisticalfunction. [Keywords)AutoCAD;Adrawing-blockwithattributess;VBA;Getattributes. o引言 随着计算机软硕件技术的飞速发展，机械，建筑， 电气领域中绝大多数企业采用AutoCAD绘制二维工程 图?无论是交互式绘图，还是二次开发，对于标题栏，明 细表及其它类似表格的处理，基本上都采用插入图块 的方法，较为麻烦;而H做相关报表时，仍需作大量的 人工抄录工作，不仅繁琐且易出错，不利于图纸上相关 内容的信息管理;因而对构建设计的MIS(Management InformationSystem)^统有相当的难度.基于此，我们 采用AutoCAD中的VBA技术，对标题栏信息进行二次 开发,可以方便地将图纸信息提取~lJExcel中,便于统 计，汇总，大大提高了工作效率. 1跨平台技术 在AutoCAD屮创建Excel?用程序，其步骤如下:[1_[2_ 打开AutoCAD的”宏”一”VBA编辑器”. 选择”工具”一”引用”项，在弹出的”引用”对话 框的”可使用的引用咧表框内，选择” MicrOsOftExcel 9.0ObjectLibrary ”项. 单击”确定”按钮 在AutoCAD中创建Excel应用程序，语句如下： DimExcelAppasExcel .Application 激活要与之通信的Excel应用程序 OnErrorResumeNext SetExcelApp二GetObject(,” Excel. Application”) IfErrlt;gt;OThen SetExce 1 App=CreateObject(nExce 1 ? Applicationnn) End II 2实例 2.1示例操作步骤E3］ 1）画出属性定义表格.2）定义属性定 义其属性，此例中每一图块共有6个属性，其中序号属 性设为不可见，其余可见，分别填写其属性?然后选择 行作为一个图块.3）重复步骤厶完成整个明细表的 属性定义，保存，见图1?4）在AutoCAD中，单击”工具” _一”宏_PVisualBasic编辑器”_一”代码窗口”中创建 代码.5）在VisualBasic编辑器工具”一”引用”中引 用MicrosoftExcel9.0ObjectLibrary 项.6）调试，保 存代码一运行，结果见图2. 2.2创建过程及代码与调试并保存（部分核心原代 码）［4】［ SubBlkAttrExtractO DimExcelAsExce 1. Application DimExcelSheetAsObject DimExcelWorkbookAsObject, SetExcelWorkbook=Excel_WorkbOO.ks.Add 收稿Fl期?2007—10—10:修回日期:2008—02—29