基于VBA的AutoCAD与Excel信息的双向传递

维普资讯 http://www.cqvip.com 第２９卷第２期　武汉理工大学学报・信息与管理工程版　Ｖｏ１．２９　Ｎｏ．２　２００７年２月　ＪＯＵＲＮＡＬ　ＯＦ　ＷＵＴ（ＩＮＦＯＲＭＡＴＩＯＮ＆ＭＡＮＡＧＥＭＥＮＴ　ＥＮＧＩＮＥＥＲＩＮＧ）　Ｆｅｂ．２ｏｏ７　文章编号：１００７—１４４Ｘ（２００７）０２～００７４—０３　基于ＶＢＡ的ＡｕｔｏＣＡＤ与Ｅｘｃｅｌ信息的双向传递　吴敬兵　，陈定方　，余梦华　，陈　昆　（（１．武汉理工大学机电工程学院，湖北武汉４３００７０；２．武汉理工大学智能制造与控制研究所，湖北武汉４３００６３；　３．武汉市轨道交通有限公司，湖北武汉４３００３０））　摘要：结合软件开发实践，介绍了基于ＶＢＡ二次开发编程。从ＡｕｔｏＣＡＤ图纸中自动提取标题栏和明细表　信息，输出到Ｅｘｃｅｌ电子表格，以及在Ｅｘｃｅｌ中填写好标题栏和明细表信息后，自动在ＡｕｔｏＣＡＤ图纸中绘制出　标题栏和明细表，从而完成ＡｕｔｏＣＡＤ与Ｅｘｃｅｌ信息的双向传递。　关键词：ＶＢＡ二次开发；ＡｕｔｏＣＡＤ；Ｅｘｃｅｌ；ＡｃｔｉｖｅＸ；产品数据管理　中图法分类号：ＴＨ１２６　文献标识码：Ａ　１　引　言　赋予属性。这样，即使在手工绘制时，也会比较方　便。只需分别插入明细表头图块和明细表行图　随着ＡｕｔｏＣＡＤ在企业中的广泛应用，设计人　块，并赋给不同的属性以数值或文字表示即可。　员在享受ＡｕｔｏＣＡＤ所带来便利的同时，仍为需要　图块属性设计好后，接下来就要通过编程来完成　耗费大量的时间来处理ＡｕｔｏＣＡＤ图纸中的文档　这些信息的提取和传递。　信息而苦恼。笔者结合软件开发实践，介绍了通　过ＶＢＡ二次开发编程，从ＡｕｔｏＣＡＤ图纸中自动　３程序设计思路　提取标题栏和明细表信息，输出到Ｅｘｃｅｌ电子表　３．１　ＶＢＡ简介…　格．以及在Ｅｘｃｅｌ中填写好标题栏和明细表信息　ＶＢＡ（Ｖｉｓｕａｌ　Ｂａｓｉｃ　ｆｏｒ　Ａｐｐｌｉｃａｔｉｏｎ）最早是建　后，自动在ＡｕｔｏＣＡＤ图纸中绘制出标题栏和明细　立在微软公司Ｏｆｉｆｃｅ　９７中的标准宏语言，由于它　表，从而完成ＡｕｔｏＣＡＤ与Ｅｘｃｅｌ信息的双向传递。　在开发方面的易用性且功能强大，Ａｕｔｏｄｅｓｋ公司　２设计图块属性　购得了它的使用许可，并将其嵌入自己的应用程　序ＡｕｔｏＣＡＤ中。Ｅｘｃｅｌ　２０００和ＡｕｔｏＣＡＤ　２００４中　首先，以明细表为例来进行分析。明细表包　使用的ＶＢＡ是基于ＶＢ　５．０版本，完全面向对象　括明细表头和明细表行这２个部分。一般而言，　体系结构的一种编程语言。换言之，作为主程序　明细表头由序号、代号、名称、数量、材料、单重、总　的Ｅｘｃｅｌ　２０００和ＡｕｔｏＣＡＤ　２００４根据自身特点，提　重和备注８个部分组成。设计人员需要根据零部　供对象体系结构，然后均可用相同的ＶＢＡ格式调　件图，在明细表头对应的明细表行中填写每一个　用，因此可以说ＶＢＡ是完成ＡｕｔｏＣＡＤ与Ｅｘｃｅｌ信　零件的序号、代号等信息。零件不同，这些信息也　息双向传递适宜的开发工具。　就不一样。可以将明细表行绘制成图块，在明细　３．２从ＡｕｔｏＣＡＤ中提取信息传递给Ｅｘｃｅｌ　表行的第一列插入“序号”属性，定义为“可见”、　前面建立了明细表头和明细表行２个图块，　“不固定”，在明细表行的第二列插入“代号”属　假设已经用插入图块的方式绘制好了一副Ａｕｔｏ．　性。同样，也定义为“可见”、“不固定”等。以次　ＣＡＤ图纸，现在就要用Ｅｘｃｅｌ　ＶＢＡ编程来提取包　类推，可以将８个部分都作为属性插入图块中，使　含在明细表行图块中的信息，即Ｅｘｃｅｌ　ＶＢＡ的目　明细表行图块带上这８个属性。同时，可以把明　的就是要遍历ＡｕｔｏＣＡＤ的模型空间，首先判断是　细表头也绘制成图块，所不同的是这个图块不需　否有块引用对象，再判断块引用对象中是否有块　收稿日期：２００６—１０—１６．　作者简介：吴敬兵（１９７１一），男，湖北黄冈人，武汉理工大学机电工程学院讲师　维普资讯 http://www.cqvip.com 第２９卷第２期　吴敬兵，等：基于ＶＢＡ的ＡｕｔｏＣＡＤ与Ｅｘｃｅｌ信息的双向传递　７５　属性值，若有就获取属性值。这里关键是用到了　ＢｌｏｃｋＲｅｆ对象的ＨａｓＡｔｔｒｉｂｕｔｅｓ属性和ＧｅｔＡｔ．　ｔｉｒｂｕｔｅｓ方法。属性提取出后，再利用Ｅｘｃｅｌ的Ａｃ—　ｔｉｖｅＸ对象模型及其属性和方法，将块属性值写入　Ｅｘｃｅｌ工作表对象的单元格中，其搜索实现过程如　图１所示。　图１　提取ＡｕｔｏＣＡＤ图块信息的遍历过程　３．３将Ｅｘｃｅｌ中的信息绘制到ＡｕｔｏＣＡＤ中　］　要实现这一功能，就需要对ＡｕｔｏＣＡＤ　ＶＢＡ进　行编程。程序设计思路是遍历Ｅｘｃｅｌ中被激活的　工作表Ｗｏｒｋｓｈｅｅｔｓ，如果工作表单元格Ｃｅｌｌｓ中的　值不为空，就在ＡｕｔｏＣＡＤ模型空间中插入一个明　细表行图块，并将工作表该行中各个单元格的值　赋给明细表行图块所对应的各个块属性值中。接　着程序扫描工作表的下一行，若单元格仍不为空，　就在ＡｕｔｏＣＡＤ模型空间中再插入一个明细表行　图块，赋给相应的块属性值。如此往复，即可将　Ｅｘｃｅｌ中的信息全部绘制到ＡｕｔｏＣＡＤ中，其搜索　实现过程如图２所示。　４实现方法　４．１　Ａｕ￣ＣＡＤ接收Ｅｘｃｅｌ中的信息　以下是利用ＡｕｔｏＣＡＤ　ＶＢＡ建立与Ｅｘｃｅｌ的　联系，并将Ｅｘｃｅｌ工作表中的信息依次赋值给标　题栏图块的各个块属Ｊｌ生的代码。　Ｓｅｔ　ｅｘｃｅｌ＝ＧｅｔＯｂｊｅｃｔ（，　Ｅｘｃｅ１．Ａｐｐｌｉｃａｔｉｏｎ　）　Ｄｉｍ　ｌ　Ａｓ　Ｓｔｒｉｎｇ　Ｄｉｍ　Ｂｉａｏ　Ａｓ　Ｏｂｊｅｃｔ　Ｓｅｔ　Ｂｉａｎ＝ｅｘｃｅ１．ＡｃｔｉｖｅＳｈｅｅｔ　图２提取Ｅｘｃｅｌ信息的遍历过程　＝Ｂｉａｏ．Ｎａｍｅ　Ｓｅｔ　ｅｘｃｅｌＳｈｅｅｔ＝ｅｘｃｅ１．ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．Ｓｈｅｅｔ　（Ｊ．）　ｂｉａｏｔｉｌａｎ＝”Ｄ：＼ＣＡＤＣＳ＼标题栏．ｄｗｇ　ｉｎｓｅｒｔｐｔ＝ＴｈｉｓＤｒａｗｉｎｇ．Ｕｔｉｌｉｔｙ．ＧｅｔＰｏｉｎｔ（，　请　点取标题栏的插入点：　）　Ｓｅｔ　ｂｌｋｒｅｆ＝ＴｈｉｓＤｒａｗｉｎｇ．ＭｏｄｅｌＳｐａｃｅ．Ｉｎｓｅｒｔ—　Ｂｌｏｃｋ（ｉｎｓｅｒｔｐｔ，ｂｉａｏｔｉｌａｎ，ＢＬ，ＢＬ，１，０）　Ｗｉｔｈ　ｂｌｋｒｅｆ　ａｔｒ＝．ＧｅｔＡｔｔｒｉｂｕｔｅｓ　Ｆｏｒ　ｉ＝０　Ｔｏ　７　ａｔｒ（ｉ）．ｔｅｘｔＳｔｉｒｎｇ＝ｅｘｃｅｌＳｈｅｅｔ．Ｃｅｌｌｓ（ｉ＋ｌ，ｌ０）　Ｎｅｘｔ　Ｅｎｄ　Ｗｉｔｈ　４．２　Ｅｘｃｅｌ提取ＡｕｔｏＣＡＤ中的信息　以下是利用Ｅｘｃｅｌ　ＶＢＡ建立与ＡｕｔｏＣＡＤ的　联系，获取已打开的多幅ＡｕｔｏＣＡＤ图纸信息，　将每一张ＡｕｔｏＣＡＤ图纸信息注人与之对应的：　作表中的代码。　Ｓｅｔ　ａｃａｄ＝ＧｅｔＯｂｊｅｃｔ（，　ＡｕｔｏＣＡＤ．Ａｐｐｌｉｃａ・　ｔｉｏｎ”）　Ｆｏｒ　ｉ＝０　Ｔｏ　ａｃａｄ．Ｄｏｃｕｍｅｎｔｓ．Ｃｏｕｎｔ一１　Ｓｅｔ　ｄｏｃ＝ａｃａｄ．Ｄｏｃｕｍｅｎｔｓ．Ｉｔｅｍ（ｉ１　ｄｏｃ．Ａｃｔｉｖｅ　Ｓｅｔ　ｍｓｐａｃｅ＝ｄｏｃ．ＭｏｄｅｌＳｐａｃｅ　＝ｄｏｃ．Ｆｕ１１Ｎａｍｅ　三＝Ｌｅｎ（ｄｏｃ．Ｎａｍｅ）一４　Ｊ＝Ｌｅｆｔ（ｄｏｃ．Ｎａｍｅ，Ｌ）　获取ＡｕｔｏＣＡＤ图纸　维普资讯 http://www.cqvip.com ７６　武汉理工大学学报・信息与管理工程版　２００７年２月　文件名、路径等信息　Ｄｉｎｌ　Ｂｉａｏ　Ａｓ　Ｏｂｊｅｃｔ　插入一个新的工作表　Ｓｅｔ　Ｂｉａｏ＝Ｗｏｒｋｓｈｅｅｔｓ．Ａｄｄ　Ｂｉａｏ．Ｎａｍｅ＝　Ｆｏｒ　Ｅａｃｈ　ｅｌｅｍ　Ｉｎ　ｍｓｐａｃｅ　Ｗｉｔｈ　ｅｌｅｍ　Ｉｆ　ＳｔｒＣｏｍｐ（．ＥｎｔｉｔｙＮａｍｅ，　ＡｃＤｂＢｌｏｃｋＲｅｆｅｒ－　ｅｎｃｅ　，１）＝０　Ｔｈｅｎ　Ｉｆ．Ｎａｍｅ＝　标题栏　Ｔｈｅｎ　Ｉｆ．ＨａｓＡｔｔｒｉｂｕｔｅｓ　Ｔｈｅｎ　Ａｒｒａｙ２＝．ＧｅｔＡｔｔｒｉｂｕｔｅｓ　Ｆｏｒ　Ｃｏｕｎｔ＝ＬＢｏｕｎｄ（Ａｒｒａｙ２）Ｔｏ　ＵＢｏｕｎｄ（Ａｒ－　ｒａｙ２）　Ｉｆ　ＳｔｒＣｏｍｐ（Ａｒｒａｙ２（Ｃｏｕｎｔ）．ＥｎｔｉｔｙＮａｍｅ，　Ａｃ－　ＤｂＡｔｔｒｉｂｕｔｅ”，１）＝０　Ｔｈｅｎ　Ｂｉａｏ．Ｃｅｌｌｓ（Ｃｏｕｎｔ＋１，９）．Ｖａｌｕｅ＝Ａｒｒａｙ２　（Ｃｏｕｎｔ）．ＴａｇＳｔｒｉｎｇ　Ｅｎｄ　Ｉｆ　Ｎｅｘｔ　Ｃｏｕｎｔ　图３　Ｅｘｃｅｌ　ＶＢＡ运行时的信息采集界面　Ｆｏｒ　Ｃｏｕｎｔ＝ＬＢｏｕｎｄ（Ａｒｒａｙ２）Ｔｏ　ＵＢｏｕｎｄ（Ａｒ－　ｒａｙ２）　Ｂｉａｏ．Ｃｅｌｌｓ（Ｃｏｕｎｔ＋１，１０）．Ｖａｌｕｅ＝Ａｒｒａｙ２　（Ｃｏｕｎｔ）．ＴｅｘｔＳｔｒｉｎｇ　Ｎｅｘｔ　Ｃｏｕｎｔ　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｗｉｔｈ　Ｎｅｘｔ　ｅｌｅｍ　Ｎｅｘｔ　ｉ　细表和标题栏信息的改写，也可以迅速地提取　ＡｕｔｏＣＡＤ图纸中的产品信息到Ｅｘｃｅｌ中。同时，　只要在ＡｕｔｏＣＡＤ接收Ｅｘｃｅｌ中信息功能的基础上　增加一个对ＡｕｔｏＣＡＤ图纸文件的搜索功能，便可　以方便地实现对多幅ＡｕｔｏＣＡＤ图纸信息的批量　提取。这必将极大减轻设计人员的劳动强度，缩　短产品的设计周期，并为实现产品数据管理　（ＰＤＭ）奠定基础。按照所介绍的设计思路，还可　以对具体的零件实现数据管理，并可广泛运用于　企业、工厂的设备和仓库管理，以及电机、电子、建　筑与室内设计业的规划与管理。　参考文献：　集界面如图３所示。　［１］王钰．用ＶＢＡ开发ＡｕｔｏＣＡＤ２０００应用程序［Ｍ］．　５结束语　需修改Ｅ璺苎ｌ２个功能，呈　ｘｃｅｌ中的数据就可以完成对ＡｕｔｏＣＡＤ明　ｕＦ［２］兰襄　ｔｏＣ　Ａ。　一。、　‘＆数据库整合运用实　…一’　。　通　运　ｔ：ｄ提取Ａ　Ｄ　＠ｏｃＡＤ　、Ｅｘ：ｅ　憩　。…………．仕门　州Ｍ　．Ｔｒａｎｓｆｅｒｒｉｎｇ　Ｉｎｆｏｒｍａｔｉｏｎ　ｂｅｔｗｅｅｎ　ＡｕｔｏＣＡＤ　ａｎｄ　Ｅｘｃｅｌ　Ｂａｓｅｄ　ｏｎ　ＶＢＡ　Ａｂｓｔｒａｃｔ：Ｔｈｉｓ　ｐａｐｅｒ　ｉｎｔｒｏｄｕｃｅｓ　ｔｈｅ　ｔｒａｎｓｆｅｒｒｉｎｇ　ｉｎｆｏｒｍａｔｉｏｎ　ｂｅｔｗｅｅｎ　ＡｕｔｏＣＡＤ　ａｎｄ　Ｅｘｃｅｌ　ｂａｓｅｄ　ｏｎ　ＶＢＡ，ｉｎｃｌｕｄｉｎｇ　ｅｘｔｒａｃｔｉｎｇ　ｉｎ－　ｆｏｒｍａｔｉｏｎ　ｆｒｏｍ　ｈｅａｄｉｎｇ　ｔａｂｌｅ　ａｎｄ　ｂｉｌｌ　ｏｆ　ｍａｔｅｒｉａｌ　ｏｆ　ＡｕｔｏＣＡＤ　ｄｒａｗｉｎｇ　ｔｏ　Ｅｘｃｅｌ　ａｎｄ　ｄｒａｗｉｎｇ　ｔｈｅ　ｉｆｏｒｎｍａｔｉｏｎ　ｏｆ　Ｅｘｃｅｌ　ｉｎ　ＡｕｔｏＣＡＤ　ｄｒａｗｉｎｇ　ａｕｔｏｍａｔｉｃａｌｌｙ．　Ｋｅｙ　ｗｏｒｄｓ：ｓｅｃｏｎｄ　ｄｅｖｅｌｏｐｍｅｎｔ　ｏｆ　ＶＢＡ；ＡｕｔｏＣＡＤ；Ｅｘｃｅｌ；ＡｃｔｉｖｅＸ；ＰＤＭ　Ｗｕ　Ｊｉｎｇｂｉｎｇ：Ｌｅｃｔ．；Ｓｃｈｏｏｌ　ｏｆ　Ｍｅｃｈａｎｉｃａｌ　ａｎｄ　Ｅｌｅｃｔｉｒｃａｌ　Ｅｎｇｉｎｅｅｒｉｎｇ，ＷＵＴ，Ｗｕｈａｎ　４３００７０Ｃｈｉｎａ．　，［编辑：王志全］