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

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