资源描述：
《autocad属性块与excel电子表格的双向存取》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、-----------------------Page1-----------------------计算机与现代化2003年第7期ISUANJIYUXIANDAIHUA 总第95期()
文章编号:10062475200307008402
AutoCAD属性块与Excel电子表格的双向存取张小红,吴伟晖(1.南方冶金学院,江西赣州 341000;2.江西省公安厅,江西南昌 330006)
摘要:通过编写VisualBasic及VBA的代码,完整地实现了AutoCAD属性块与Excel电子表格的双向存取,并提供全部程
序代码注释
2、及运行步骤。
关键词:AutoCAD属性块;Excel电子表格;双向存取;VBA;宏
中图分类号:TP311.52 文献标识码:A
DoubleAccessonAutoCADPieceandExcelElectronicForm
ZHANGXiaohong,WUWeihui
(1.SouthernInstituteofMetallurgy,Ganzhou 341000,China;
2.JiangxiProvincePublicSecurityOfficialHall,Nanchang 330006,China)
Abst
3、ract:WritesVisualBasicandVBAcodes,completelyrealizesdoubleaccessonAutoCADpieceandExcelelectronicform,andpro
videsallcoderemarksandrunningsteps.
Keywords:AutoCADpropertypiece;Excelelectronicform;doubleaccess;VBA;macro
添加以下代码:
0 引 言
由于CAD软件技术迅猛发展,它所支持的应用范畴越来越广,众多企业为维持
4、竞争力和分析追踪设计产品制造所需的大量资料和信息,纷纷将需求指向图纸与数据上的结合。在当今的办公室里,许多人员对Word字处理软件和Excel电子表格软件都已充分熟悉,将AutoCAD属性数据资料转入熟悉的Excel电子表格中,反过来将Excel中处理过的数据绘制回到AutoCAD图形文件中,是工程人员急切想掌握的技术,本文图1 结晶器振动装置.dwg文件中的属性块内容
PublicacadAsObject
提供的AutoCAD属性块与Excel电子表格的双向存取PublicmspaceAsObject
程序均在VisualB
5、asic6.0、AutoCAD2000中调试成功。PublicexcelAsObject
PublicAcadRunningAsInteger
1 将AutoCAD属性存入Excel电子表格PublicexcelSheetAsObject
Subobtain()
假设我们有一个AutoCAD图纸文件:结晶器振动
DimelemAsObject
()
装置.dwg,希望将它的属性块中的内容如图1所示DimRowNumAsInteger
全部转入到Excel电子表格:“属性导出.xls”文件中。DimArray1AsVar
6、iant,Array2AsVariant
操作步骤:DimCountAsInteger
()
1新建一个Excel电子表格文件,取名为:属性导出.xls;()
Setexcel=GetObject,″Excel.Application″‘打开一个Excel
(2)打开需要导出的AutoCAD文件:结晶器振动装置.dwg;()
电子表格文件,如:属性导入.xlsWorksheets″sheet1″.Activate
()
3单击“工具”菜单,选择“宏”→“VisualBasic编辑器”,‘激活sheet1表单
收稿日期
7、:20030416
()
作者简介:张小红1966,女,河北秦皇岛人,南方冶金学院副教授,北京科技大学博士研究生,研究方向:计算机应用。
(C)1994-2009ChinaAcademicJournalElectronicPublishingHouse.Allrightsreserved.http://www.cnki.net
-----------------------Page2-----------------------2003年第7期 张小红等:AutoCAD属性块与Excel电子表格的双向存取85
()
8、SetexcelSheet=excel.ActiveWorkbook.Sheets″sheet1″Setacad=Nothing
()EndSub
Setacad=GetObject,″AutoCAD.Application″‘打开一个
()
AutoCAD文件,如:结晶器
