基于VBA的AutoCAD图块属性提取与Excel输出
第２３卷第３期（总第１０２期）机械管理开发
Ｖｏｌ．２３Ｎｏ．３（ＳＵＭＮｏ．１０２）ＭＥＣＨＡＮＩＣＡＬＭＡＮＡＧＥＭＥＮＴＡＮＤＤＥＶＥＬＯＰＭＥＮＴ
２００８年６月Ｊｕｎ．２００８
基于ＶＢＡ的ＡｕｔｏＣＡＤ图块属性
＊
提取与Ｅｘｃｅｌ输出
何
【摘
兵，车林仙
泸州
（泸州职业技术学院，四川６４６００５）
要】应用ＡｕｔｏＣＡＤ的ＶＢＡ（ＶｉｓｕａｌＢａｓｉｃｆｏｒＡｐｐｌｉｃａｔｉｏｎ）二次开发功能，编制了属性块的属性提取程序，并以应用实例说明了
ＡｕｔｏＣＡＤ图块属性提取与Ｅｘｃｅｌ输出，可以利用Ｅｘｃｅｌ强大的统计功能方便作出相关报表。
【关键词】ＡｕｔｏＣＡＤ；属性块；ＶＢＡ；属性提取【中图分类号】ＴＰ３１７．３
【文献标识码】Ａ
【文章编号】１００３－７７３Ｘ（２００８）０３－００１５－０２
ＡｕｔｏＣＡＤＤｒａｗｉｎｇ－ｂｌｏｃｋＡｔｔｒｉｂｕｔｅＥｘｔｒａｔｉｏｎ
ＡｎｄＩｔｓＥｘｃｅｌＯｕｔｐｕｔＢａｓｅｄＯｎＶＢＡ
ＨＥＢｉｎｇ，ＣＨＥＬｉｎ－ｘｉａｎ
（ＬｕｚｈｏｕＰｏｌｙｔｅｃｈｎｉｃＣｏｌｌｅｇｅ，Ｌｕｚｈｏｕ６４６００５，ＳｉｃｈｕａｎＣｈｉｎａ）
〔Ａｂｓｔｒａｃｔ〕ＵｓｉｎｇｔｈｅｅｘｐｌｏｉｔａｔｉｖｅｆｕｎｃｔｉｏｎｏｆＶＢＡ（ＶｉｓｕａｌＢａｓｉｃＦｏｒＡｐｐｌｉｃａｔｉｏｎ）ｂａｓｅｄｏｎＡｕｔｏＣＡＤｓｏｆｔｗａｒｅｐｌａｔｆｏｒｍ，ｔｈｉｓｐａｐｅｒｈａｓ
ｍａｄｅａｐｒｏｇｒａｍｆｏｒｇｅｔｔｉｎｇａｔｔｒｉｂｕｔｅｓｆｒｏｍｄｒａｗｉｎｇ－ｂｌｏｃｋｓｆｒｏｍＡｕｔｏＣＡＤａｎｄｉｔｓＥｘｃｅｌｏｕｔｐｕｔ，ａｎｄｍａｋｉｎｇｃｏｒｒｅｓｐｏｎｄｉｎｇｒｅｐｏｒｔｆｏｒｍｓｔｈｒｏｕｇｈＥｘｃｅｌｃｏｍｐｒｅｈｅｎｓｉｖｅｓｔａｔｉｓｔｉｃａｌｆｕｎｃｔｉｏｎ．
〔Ｋｅｙｗｏｒｄｓ〕ＡｕｔｏＣＡＤ；Ａｄｒａｗｉｎｇ－ｂｌｏｃｋｗｉｔｈａｔｔｒｉｂｕｔｅｓｓ；ＶＢＡ；Ｇｅｔａｔｔｒｉｂｕｔｅｓ．
０引言
ＯｎＥｒｒｏｒＲｅｓｕｍｅＮｅｘｔ
ＳｅｔＥｘｃｅｌＡｐｐ＝ＧｅｔＯｂｊｅｃｔ（，＂Ｅｘｃｅｌ．Ａｐｐｌｉｃａｔｉｏｎ＂）ＩｆＥｒｒ＜＞０Ｔｈｅｎ
ＳｅｔＥｘｃｅｌＡｐｐ＝ＣｒｅａｔｅＯｂｊｅｃｔ（＂Ｅｘｃｅｌ．Ａｐｐｌｉｃａｔｉｏｎｎ＂）ＥｎｄＩｆ
随着计算机软硬件技术的飞速发展，机械、建筑、电气领域中绝大多数企业采用ＡｕｔｏＣＡＤ绘制二维工程图。无论是交互式绘图，还是二次开发，对于标题栏、明细表及其它类似表格的处理，基本上都采用插入图块的方法，较为麻烦；而且做相关报表时，仍需作大量的人工抄录工作，不仅繁琐且易出错，不利于图纸上相关内容的信息管理；因而对构建设计的ＭＩＳ（Ｍａｎａｇｅｍｅｎｔ
ＩｎｆｏｒｍａｔｉｏｎＳｙｓｔｅｍ）系统有相当的难度。基于此，我们采用ＡｕｔｏＣＡＤ中的ＶＢＡ技术，对标题栏信息进行二次开发，可以方便地将图纸信息提取到Ｅｘｃｅｌ中，便于统
计、汇总，大大提高了工作效率。
２实例
２．１示例操作步骤［３］
定１）画出属性定义表格。２）定义属性，用“ａｔｔｄｅｆ”
义其属性，此例中每一图块共有６个属性，其中序号属
性设为不可见，其余可见，分别填写其属性。然后选择一行作为一个图块。３）重复步骤２，完成整个明细表的属性定义，保存，见图１。工具”４）在ＡｕｔｏＣＡＤ中，单击“宏”→“代码窗口”中创建→“ＶｉｓｕａｌＢａｓｉｃ编辑器”→“代码。５）在ＶｉｓｕａｌＢａｓｉｃ编辑器“工具”→“引用”中引用“项。６）调试，保ＭｉｃｒｏｓｏｆｔＥｘｃｅｌ９．０ＯｂｊｅｃｔＬｉｂｒａｒｙ”存代码→运行，结果见图２。
２．２创建过程及代码与调试并保存（部分核心原代码）［４］［５］
Ｓｕｂ
ＢｌｋＡｔｔｒ＿Ｅｘｔｒａｃｔ（）
ＤｉｍＥｘｃｅｌＳｈｅｅｔＡｓＯｂｊｅｃｔＤｉｍＥｘｃｅｌＷｏｒｋｂｏｏｋ
ＡｓＯｂｊｅｃｔ
ＳｅｔＥｘｃｅｌＷｏｒｋｂｏｏｋ＝Ｅｘｃｅｌ．Ｗｏｒｋｂｏｏｋｓ．ＡｄｄＤｉｍＥｘｃｅｌＡｓＥｘｃｅｌ．Ａｐｐｌｉｃａｔｉｏｎ
１跨平台技术
在ＡｕｔｏＣＡＤ中创建Ｅｘｃｅｌ应用程序，其步骤如下：［１］［２］
宏”→“１）打开ＡｕｔｏＣＡＤ的“ＶＢＡ编辑器”。
工具”→“引用”项，在弹出的“引用”对话２）选择“
框的“可使用的引用”列表框内，选择“ＭｉｃｒｏｓｏｆｔＥｘｃｅｌ
项。９．０ＯｂｊｅｃｔＬｉｂｒａｒｙ”确定”按钮。３）单击“
４）在ＡｕｔｏＣＡＤ中创建Ｅｘｃｅｌ应用程序，语句如下：
ＤｉｍＥｘｃｅｌＡｐｐａｓＥｘｃｅｌ．Ａｐｐｌｉｃａｔｉｏｎ＇激活要与之通信的Ｅｘｃｅｌ应用程序
收稿日期：２００７－１０－１０；修回日期：２００８－０２－２９
基金项目：“四川省高等教育人才培养质量与教学改革项目”立项文章，编号：０６－５１１－２５４
作者简介：何兵（１９７２－），男，四川泸州人，讲师，硕士。研究方向：ＣＡＤ／ＣＡＭ，机电控制技术。
１５
基于VBA的AutoCAD图块属性提取与Excel输出
第２３卷第３期（总第１０２期）机械管理开发
否有属性
２００８年６月
Ｉｆ．ＨａｓＡｔｔｒｉｂｕｔｅｓＴｈｅｎＡｒｒａｙ１＝．ＧｅｔＡｔｔｒｉｂｕｔｅｓ
填在第１行
＇如果有属性
＇提取块引用中的属性，如果有
＇从第２行开始，填写其它的
ＲｏｗＮｕｍ＝ＲｏｗＮｕｍ＋１
表行内容
ＦｏｒＣｏｕｎｔ＝ＬＢｏｕｎｄ（Ａｒｒａｙ１）ＴｏＵＢｏｕｎｄ（Ａｒｒａｙ１）ＥｘｃｅｌＳｈｅｅｔ．Ｃｅｌｌｓ（ＲｏｗＮｕｍ，Ｃｏｕｎｔ＋１）．Ｖａｌｕｅ＿＝Ａｒｒａｙ１（Ｃｏｕｎｔ）．ＴｅｘｔＳｔｒｉｎｇＮｅｘｔＣｏｕｎｔＥｎｄＥｎｄＥｎｄ
ＩｆＩｆＷｉｔｈ
＇显示Ｅｘｃｅｌ工作表中的结果ＥｎｄＳｕｂ
ＮｅｘｔｂｌｋＥｌｅｍＥｘｃｅｌ．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ