基于vba的autocad图块属性提取与excel输出

《基于vba的autocad图块属性提取与excel输出》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、基于VBA的AutoCAD图块属性提取与Excel输出第23卷第3期(总第102期)Vol.23No.3(SUMNo.l02)机械管理开发MECHANICALMANAGEMENTANDDEVELOPMENT2008年6月Jun.2008基于VBA的AutoCAD图块屈性提取与Excel输出六何兵,车林仙(泸州职业技术学院，四川泸州646005)【摘要】应用AutoCADNVBA(,VisualBasicforApplication)Zl次开发功能，编制了属性块的属性提取程序，并以应用实例说明了AutoCAD图块属性提取与Excel输出，可以利用Excel强大的统计功能

2、方便作出相关报表.【关键词】AutoCAD;属性块;VBA;属性提取【中图分类号】TP317.3【文献标识码】A【文章编号】1003—773X(2008)03—0015—02AutoCADDrawing一blockAttributeExtrationAndltsExcelOUtDutBasedOnVBA•HEBing^HELin-xian(Luzhou:PolytechnicCoHege5Luzhou646005,SichuanChina,+[Abstract]UsingtheexploitativefunctionofVBA(V,isualBasicForAppli

3、cation)basedonAutoCADsoftware.platformJhispaperhasmadeaprogramforgettingattributesfromdrawing一blocksfromAutoCADanditsExceloutput^andmakingcorrespondingreportformsthroughExcelcomprehensivestatisticalfunction.[Keywords)AutoCAD;Adrawing-blockwithattributess;VBA;Getattributes.o引言随着计算机软硕件技术的

4、飞速发展，机械，建筑，电气领域中绝大多数企业采用AutoCAD绘制二维工程图•无论是交互式绘图，还是二次开发，对于标题栏，明细表及其它类似表格的处理，基本上都采用插入图块的方法，较为麻烦;而H做相关报表时，仍需作大量的人工抄录工作，不仅繁琐且易出错，不利于图纸上相关内容的信息管理;因而对构建设计的MIS(ManagementInformationSystem)^统有相当的难度.基于此，我们采用AutoCAD中的VBA技术，对标题栏信息进行二次开发,可以方便地将图纸信息提取~lJExcel中,便于统计，汇总，大大提高了工作效率.1跨平台技术在AutoCAD屮创建Exce

5、l〜用程序，其步骤如下:[1_[2_1)打开AutoCAD的”宏”一”VBA编辑器”.2)选择”工具”一”引用”项，在弹出的”引用”对话框的”可使用的引用咧表框内，选择”MicrOsOftExcel9.0ObjectLibrary”项.3)单击”确定”按钮4)在AutoCAD中创建Excel应用程序，语句如下：DimExcelAppasExcel.Application激活要与之通信的Excel应用程序OnErrorResumeNextSetExcelApp二GetObject(,”Excel.Application”)IfErr<>OThenSetExc

6、e1App=CreateObject(nExce1•Applicationnn)EndII2实例2.1示例操作步骤E3］1）画出属性定义表格.2）定义属性定义其属性，此例中每一图块共有6个属性，其中序号属性设为不可见，其余可见，分别填写其属性•然后选择行作为一个图块.3）重复步骤厶完成整个明细表的属性定义，保存，见图1・4）在AutoCAD中，单击”工具”_一”宏"_P'VisualBasic编辑器”_一”代码窗口”中创建代码.5）在VisualBasic编辑器工具”一”引用”中引用"MicrosoftExcel9.0ObjectLibrary"项.6）调试，保存代码

7、一运行，结果见图2.2.2创建过程及代码与调试并保存（部分核心原代码）［4】［SubBlkAttrExtractODimExcelAsExce1.ApplicationDimExcelSheetAsObjectDimExcelWorkbookAsObject,SetExcelWorkbook=Excel_WorkbOO.ks.Add收稿Fl期〜2007—10—10:修回日期:2008—02—29基金项A「四川省高等教育人才培养质量与教学改革项R”立项文章，编号:06—511-254作者简介:何〜（1972—），男，四川泸州人，讲师，硕上研究方向:CA