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

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

第２３卷第３期（总第１０２期）机械管理开发

Ｖｏｌ．２３Ｎｏ．３（ＳＵＭＮｏ．１０２）ＭＥＣＨＡＮＩＣＡＬＭＡＮＡＧＥＭＥＮＴＡＮＤＤＥＶＥＬＯＰＭＥＮＴ

２００８年６月Ｊｕｎ．２００８

基于ＶＢＡ的ＡｕｔｏＣＡＤ图块属性

＊

提取与Ｅｘｃｅｌ输出

何

【摘

兵，车林仙

泸州

（泸州职业技术学院，四川６４６００５）

要】应用ＡｕｔｏＣＡＤ的ＶＢＡ（ＶｉｓｕａｌＢａｓｉｃｆｏｒＡｐｐｌｉｃａｔｉｏｎ）二次开发功能，编制了属性块的属性提取程序，并以应用实例说明了

ＡｕｔｏＣＡＤ图块属性提取与Ｅｘｃｅｌ输出，可以利用Ｅｘｃｅｌ强大的统计功能方便作出相关报表。

【关键词】ＡｕｔｏＣＡＤ；属性块；ＶＢＡ；属性提取【中图分类号】ＴＰ３１７．３

【文献标识码】Ａ

【文章编号】１００３－７７３Ｘ（２００８）０３－００１５－０２

ＡｕｔｏＣＡＤＤｒａｗｉｎｇ－ｂｌｏｃｋＡｔｔｒｉｂｕｔｅＥｘｔｒａｔｉｏｎ

ＡｎｄＩｔｓＥｘｃｅｌＯｕｔｐｕｔＢａｓｅｄＯｎＶＢＡ

ＨＥＢｉｎｇ，ＣＨＥＬｉｎ－ｘｉａｎ

（ＬｕｚｈｏｕＰｏｌｙｔｅｃｈｎｉｃＣｏｌｌｅｇｅ，Ｌｕｚｈｏｕ６４６００５，ＳｉｃｈｕａｎＣｈｉｎａ）

〔Ａｂｓｔｒａｃｔ〕ＵｓｉｎｇｔｈｅｅｘｐｌｏｉｔａｔｉｖｅｆｕｎｃｔｉｏｎｏｆＶＢＡ（ＶｉｓｕａｌＢａｓｉｃＦｏｒＡｐｐｌｉｃａｔｉｏｎ）ｂａｓｅｄｏｎＡｕｔｏＣＡＤｓｏｆｔｗａｒｅｐｌａｔｆｏｒｍ，ｔｈｉｓｐａｐｅｒｈａｓ

ｍａｄｅａｐｒｏｇｒａｍｆｏｒｇｅｔｔｉｎｇａｔｔｒｉｂｕｔｅｓｆｒｏｍｄｒａｗｉｎｇ－ｂｌｏｃｋｓｆｒｏｍＡｕｔｏＣＡＤａｎｄｉｔｓＥｘｃｅｌｏｕｔｐｕｔ，ａｎｄｍａｋｉｎｇｃｏｒｒｅｓｐｏｎｄｉｎｇｒｅｐｏｒｔｆｏｒｍｓｔｈｒｏｕｇｈＥｘｃｅｌｃｏｍｐｒｅｈｅｎｓｉｖｅｓｔａｔｉｓｔｉｃａｌｆｕｎｃｔｉｏｎ．

〔Ｋｅｙｗｏｒｄｓ〕ＡｕｔｏＣＡＤ；Ａｄｒａｗｉｎｇ－ｂｌｏｃｋｗｉｔｈａｔｔｒｉｂｕｔｅｓｓ；ＶＢＡ；Ｇｅｔａｔｔｒｉｂｕｔｅｓ．

０引言

ＯｎＥｒｒｏｒＲｅｓｕｍｅＮｅｘｔ

ＳｅｔＥｘｃｅｌＡｐｐ＝ＧｅｔＯｂｊｅｃｔ（，＂Ｅｘｃｅｌ．Ａｐｐｌｉｃａｔｉｏｎ＂）ＩｆＥｒｒ＜＞０Ｔｈｅｎ

ＳｅｔＥｘｃｅｌＡｐｐ＝ＣｒｅａｔｅＯｂｊｅｃｔ（＂Ｅｘｃｅｌ．Ａｐｐｌｉｃａｔｉｏｎｎ＂）ＥｎｄＩｆ

随着计算机软硬件技术的飞速发展，机械、建筑、电气领域中绝大多数企业采用ＡｕｔｏＣＡＤ绘制二维工程图。无论是交互式绘图，还是二次开发，对于标题栏、明细表及其它类似表格的处理，基本上都采用插入图块的方法，较为麻烦；而且做相关报表时，仍需作大量的人工抄录工作，不仅繁琐且易出错，不利于图纸上相关内容的信息管理；因而对构建设计的ＭＩＳ（Ｍａｎａｇｅｍｅｎｔ

ＩｎｆｏｒｍａｔｉｏｎＳｙｓｔｅｍ）系统有相当的难度。基于此，我们采用ＡｕｔｏＣＡＤ中的ＶＢＡ技术，对标题栏信息进行二次开发，可以方便地将图纸信息提取到Ｅｘｃｅｌ中，便于统

计、汇总，大大提高了工作效率。

２实例

２．１示例操作步骤［３］

定１）画出属性定义表格。２）定义属性，用“ａｔｔｄｅｆ”

义其属性，此例中每一图块共有６个属性，其中序号属

性设为不可见，其余可见，分别填写其属性。然后选择一行作为一个图块。３）重复步骤２，完成整个明细表的属性定义，保存，见图１。工具”４）在ＡｕｔｏＣＡＤ中，单击“宏”→“代码窗口”中创建→“ＶｉｓｕａｌＢａｓｉｃ编辑器”→“代码。５）在ＶｉｓｕａｌＢａｓｉｃ编辑器“工具”→“引用”中引用“项。６）调试，保ＭｉｃｒｏｓｏｆｔＥｘｃｅｌ９．０ＯｂｊｅｃｔＬｉｂｒａｒｙ”存代码→运行，结果见图２。

２．２创建过程及代码与调试并保存（部分核心原代码）［４］［５］

Ｓｕｂ

ＢｌｋＡｔｔｒ＿Ｅｘｔｒａｃｔ（）

ＤｉｍＥｘｃｅｌＳｈｅｅｔＡｓＯｂｊｅｃｔＤｉｍＥｘｃｅｌＷｏｒｋｂｏｏｋ

ＡｓＯｂｊｅｃｔ

ＳｅｔＥｘｃｅｌＷｏｒｋｂｏｏｋ＝Ｅｘｃｅｌ．Ｗｏｒｋｂｏｏｋｓ．ＡｄｄＤｉｍＥｘｃｅｌＡｓＥｘｃｅｌ．Ａｐｐｌｉｃａｔｉｏｎ

１跨平台技术

在ＡｕｔｏＣＡＤ中创建Ｅｘｃｅｌ应用程序，其步骤如下：［１］［２］

宏”→“１）打开ＡｕｔｏＣＡＤ的“ＶＢＡ编辑器”。

工具”→“引用”项，在弹出的“引用”对话２）选择“

框的“可使用的引用”列表框内，选择“ＭｉｃｒｏｓｏｆｔＥｘｃｅｌ

项。９．０ＯｂｊｅｃｔＬｉｂｒａｒｙ”确定”按钮。３）单击“

４）在ＡｕｔｏＣＡＤ中创建Ｅｘｃｅｌ应用程序，语句如下：

ＤｉｍＥｘｃｅｌＡｐｐａｓＥｘｃｅｌ．Ａｐｐｌｉｃａｔｉｏｎ＇激活要与之通信的Ｅｘｃｅｌ应用程序

收稿日期：２００７－１０－１０；修回日期：２００８－０２－２９

基金项目：“四川省高等教育人才培养质量与教学改革项目”立项文章，编号：０６－５１１－２５４

作者简介：何兵（１９７２－），男，四川泸州人，讲师，硕士。研究方向：ＣＡＤ／ＣＡＭ，机电控制技术。

１５

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

第２３卷第３期（总第１０２期）机械管理开发

否有属性

２００８年６月

Ｉｆ．ＨａｓＡｔｔｒｉｂｕｔｅｓＴｈｅｎＡｒｒａｙ１＝．ＧｅｔＡｔｔｒｉｂｕｔｅｓ

填在第１行

＇如果有属性

＇提取块引用中的属性，如果有

＇从第２行开始，填写其它的

ＲｏｗＮｕｍ＝ＲｏｗＮｕｍ＋１

表行内容

ＦｏｒＣｏｕｎｔ＝ＬＢｏｕｎｄ（Ａｒｒａｙ１）ＴｏＵＢｏｕｎｄ（Ａｒｒａｙ１）ＥｘｃｅｌＳｈｅｅｔ．Ｃｅｌｌｓ（ＲｏｗＮｕｍ，Ｃｏｕｎｔ＋１）．Ｖａｌｕｅ＿＝Ａｒｒａｙ１（Ｃｏｕｎｔ）．ＴｅｘｔＳｔｒｉｎｇＮｅｘｔＣｏｕｎｔＥｎｄＥｎｄＥｎｄ

ＩｆＩｆＷｉｔｈ

＇显示Ｅｘｃｅｌ工作表中的结果ＥｎｄＳｕｂ

ＮｅｘｔｂｌｋＥｌｅｍＥｘｃｅｌ．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说公务员考试基于VBA的AutoCAD图块属性提取与Excel输出在线全文阅读。