AutoCAD与Excel二次开发及其在海洋工程中的应用技术研究

科技信息　ｏ　ＩＴ论坛０　ＳＣＩＥＮＣＥ＆ＴＥＣＨＮＯＬＯＧＹ　ＩＮＦＯＲＭＡＴＩＯＮ　２０１１年第２５期　ＡｕｔｏＣＡＤ与Ｅｘｃｅｌ二次开发及其在　海洋工程中的应用技术研究　

王志祥王默熙郑炳祥王玉伟陈元元吴建章　（海洋石油工程股份有限公司　中国天津３００４５２）　

【摘要】伴随着国家十二五规划出台，深海石油开采上升为国家核心战略。但在海洋工程实际工作中，图纸量大、信息量大、Ｅｘｃｅｌ数据处　理量大，图纸间、图纸与Ｅｘｃｅｌ数据传递若仍然采用人工方法，显然已经非常落后。为大幅度提高工作效率、降低劳动强度，笔者采用ＶＢ对　ＡｕｔｏＣＡＤ及Ｅｘｃｅｌ进行联合开发．设计了一套工程师辅助软件．在工程实际应用中取得了极其优异的效果。　【关键词】海洋工程；Ｅｘｃｅｌ；数据传递；优异效果　Ｆｕｒｔｈｅｒ　Ｄｅｖｅｌｏｐｍｅｎｔ　ｏｆ　ＡｕｔｏＣＡＤ　ａｎｄ　Ｅｘｃｅｌ　ａｎｄ　ｉｔｓ　Ａｐｐｌｉｃａｔｉｏｎ　ｉｎ　Ｏｃｅａｎ　Ｅｎｇｉｎｅｅｒｉｎｇ　ＷＡＮＧ　Ｚｈｉ—ｘｉａｎｇ　ＷＡＮＧ　Ｍｅ—ｘｉ　ＺＨＥＮＧ　Ｂｉｎｇ－ｘｉａｎｇ　ＷＡＮＧ　Ｙｕ－ｗｅｉ　ＣＨＥＮ　Ｙｕａｎ－ｙｕａｎ　ＷＵ　Ｊｉａｎ－ｚｈａｎｇ　（Ｃｈｉｎａ　Ｏｆｆｓｈｏｒｅ　Ｏｉｌ　Ｅｎｇｉｎｅｅｒｉｎｇ　Ｃｏｍｐａｎｙ，Ｔｉａｎｊｉｎ，３００４５２，Ｃｈｉｎａ）　【Ａｂｓｔｒａｃｔ］Ａｓ　ｆｏｒ　ｔｈｅ　ｔｗｅｌｆｔｈ　ｆｉｖｅ—ｙｅａｒ　ｐｌａｎ　Ｃｏｍｉｎｇ　ｏｎ，ｅｘｐｌｏｉｔ　０ｉｌ　ｉｎ　ｄｅｅｐ　ｓｅａ　ｂｅｃｎｍｅ　ｔｈｅ　ｍａｉｎ　ｓｔｒａｔａｇｅｍ　ｏｆ　Ｃｈｉｎａ．Ｔｈｅｒｅ　ａｒｅ　ｍａｎｙ　ｄｒａｗｉｎｇ、　ｉｎｆｏｒｍａｔｉｏｎ　ａｎｄ　ｄａｔａ　ｔｒａｎｓｆｅｒ　ｉｎ　ｄａｉｌｙ　ｗｏｒｋ　ｏｆ　ｏｆｆｓｈｏｒｅ　ｅｎｇｉｎｅｅｒｉｎｇ．Ｉｔ　ｉｓ　ｖｅｒｙ　ｆａｌｌ　ｂｅｈｉｎｄ　ｉｆ　ｗｅ　ｕｓｅ　ｓｔａｔｉｓｔｉｃａｌ　ｄａｔａ　ｂｙ　ｐｅｏｐｌｅ．Ｔｏ　ｉｍｐｒｏｖｅ　ｗｏｒｋ　ｅｆｆｉｃｉｅｎｃｙ　ａｎｄ　ｒｅｄｕｃｅ　ｉｎｔｅｎｓｉｔｙ　ｏｆ　ｌａｂｏｕｒ　ｇｒｅａｔｌｙ，ｔｈｉｓ　ｐａｐｅｒ　ｍａｋｅｓ　ａ　ｆｕｒｔｈｅｒ　ｄｅｖｅｌｏｐｍｅｎｔ　ｏｆ　ＡｕｔｏＣＡＤ　ａｎｄ　Ｅｘｃｅｌ　ｕｓｉｎｇ　ｔｈｅ　ＶＢ　ｐｒｏｇｒａｍｍｉｎｇ　ｌａｎｇｕａｇｅ　ｂａｓｅｄ　ｏｎ　ｔｈｅ　Ａｕｔｏｍａｔｉｏｎ　Ｐｒｏｔｏｃｏｌｓ．Ａ　ｓｏｆｔｗａｒｅ　ｔｏｏｌｋｉｔ　ｈａｓ　ｂｅｅｎ　ｄｅｓｉｇｎｅｄ　ａｎｄ　ｄｅｖｅｌｏｐｅｄ　ｗｈｉｃｈ　ｈａｓ　ｂｅｅｎ　ｕｓｅｄ　ｉｎ　ｅｎｇｉｎｅｅｒｉｎｇ　ａｐｐｌｉｃａｔｉｏｎ　ａｎｄ　ｏｂｔａｉｎｅｄ　ａｎ　ｅｘｃｅｌｌｅｎｔ　ｅｍｊｃｔ　ｉｎ　ｔｈｅ　ａｐｐｌｉｃａｔｉｏｎ．　【Ｋｅｙ　ｗｏｒｄｓ］Ｏｆｆｓｈｏｒｅ　ｅｎｇｉｎｅｅｒｉｎｇ；Ｅｘｃｅｌ；Ｄａｔａ　ｔｒａｎｓｆｅｒ；Ｅｘｃｅｐｔｉｏｎａｌ　ｅｆｆｅｃｔｉｏｎ　

０引言　日常工作中存在着很多重复、繁琐、耗时的工作，比如在ＡｕｔｏＣＡＤ　中制作材料表、将ＡｕｔｏＣＡＤ图中的材料表整理到Ｅｘｃｅｌ中、将多个　Ｅｘｃｅｌ表中的数据进行汇总处理、绘制不同尺寸标准部件等。　以上各项工作目前多采用人工方式．由于工程中图纸数量庞大．　这些工作不仅耗费了大量时间．延迟了工程的交付时间．而且劳动强　度大、工作效率低、很容易出错。　为了节省工作时间、提高工作效率、降低劳动强度，将工程师从这　些重复、繁琐、耗时的工作中解放出来，去完善和优化其他更为重要的　工作．笔者采用ＶＢ对ＡｕｔｏＣＡＤ及Ｅｘｃｅｌ进行了二次开发，设计与开　发了一套工程师辅助软件．在工程应用中取得了很好的应用效果。　

１技术原理　本文以ＡｕｔｏＣＡＤ２００４和Ｅｘｃｅｌ２００３为平台．以Ｖｉｓｕａｌ　Ｂａｓｉｃ为编　程工具．成功应用Ａｕｔｏｍａｔｉｏｎ通信协议标准对ＡｕｔｏＣＡＤ和Ｅｘｃｅｌ进行　了二次开发及应用。ＡｕｔｏＣＡＤ，Ｖｉｓｕａｌ　Ｂａｓｉｃ，Ｅｘｃｅｌ之间的通信示意图　如图１．１所示。　

Ａ服ｕ务ｔｏＣ　ＡＤ　Ｖｉｓ客ｕａ户ｌＢ端ａｓ　１月　

图１．１　ＡｕｔｏＣＡＤ，ＶＢ，Ｅｘｃｅｌ通信示意图　１．１　Ａｕｔｏｍａｔｉｏｕ通信协议　Ａｕｔｏｍａｔｉ０ｎ是基于Ｍｉｃｒｅｓｏｒｔ公司Ｃｏｍｐｏｎｅｎｔ　Ｏｂｊｅｃｔ　ＭｅｄｅｌｆＣＯＭ１　技术的通信协议标准．从ＯＬＥ　ｆＯｂｊｅｃｔ　Ｌｉｎｋｉｎｇ　ａｎｄ　Ｅｍｂｅｄｉｎｇ）发展而　来。　利用该通信标准．可以将一个应用程序中的开放对象嵌入或链　接到其他应用程序中．从而实现不同应用程序间的数据通信和数据　共享『ｌｌ　Ａｕｔｏｍａｔｉ０ｎ通信协议以客户端／服务器方式工作。作为Ａｕｔ０ｍａｔｉｏｎ　服务器的应用程序能够为其他应用程序提供一定服务及开放对象：作　为Ａｕｔｏｍａｔｉｏｎ客户端的应用程序能够通过适当协议访问服务器应用　程序日。　本文中ＡｕｔｏＣＡＤ２００４和Ｅｘｃｅｌ２００３作为Ａｕｔｏｍａｔｉｏｎ服务器．　Ｖｉｓｕａｌ　Ｂａｓｉｃ作为Ａｕｔｏｍａｔｉｏｎ客户端。在Ｖｉｓｕａｌ　Ｂａｓｉｃ中依据　Ａｕｔｏｍａｔｉｏｎ通信协议访问ＡｕｔｏＣＡＤ与Ｅｘｃｅｌ开放对象的属性及方法．　实现ＡｕｔｏＣＡＤ、Ｖｉｓｕａｌ　Ｂａｓｉｃ与Ｅｘｃｅｌ三者间的数据通信．从而实现对　ＡｕｔｏＣＡＤ图形用户界面中图形对象的适当操作及对ＥｘｃｅＪ数据的各　种访问　１．２　Ａｕｔ０ＣＡＤ中的开放对象　

图１．２　ＡｕｔｏＣＡＤ应用程序对象模型示意图　理解ＡｕｔｏＣＡＤ的对象模型是对其进行编程的基础．Ａｕｔ０ＣＡＤ的　对象模型结构示意图如图１．２所示　ＡｕｔｏＣＡＤ应用程序以层次结构组织对象．顶层是Ａｐｐｌｉｃａｔｉ０ｎ对　象。即ＡｕｔｏＣＡＤ应用程序本身．其他对象均继承自Ａｐｐｌｉｃａｔｉｏｎ对象。　Ａｐｐｌｉｃａｔｉ０ｎ对象下一层是Ｐｒｅｆｅｒｅｎｃｅｓ．ＤＯＣＵｍｅｎｔ等对象．通过　Ｐｒｅｆｅｒｅｎｃｅｓ对象可以对Ａｕｔ０ＣＡＤ　Ｔｏｏｌｓ／Ｐｒｅｆｅｒｅｎｃｅｓ菜单项中的各个选　项进行设置　Ｄｏｃｕｍｅｎｔ对象是控制ＡｕｔｏＣＡＤ图形文件的直接对象．代表　ＡｕｔｏＣＡＤ图形文件　Ｄｏｃｕｍｅｎｔ对象包含Ｍｏｄｅｌ　Ｓｐａｃｅ、Ｐａｐｅｒ　Ｓｐａｃｅ对　象及Ｂｌｏｃｋｓ、Ｌａｙｅｒｓ、Ｓｅｌｅｃｔｉｏｎｓｅｔｓ、ｕｔｉｌｉｔｙ等一系列对象。Ｍｏｄｅｌ　Ｓｐａｃｅ是　当前图形文件中图形实体，如直线、圆、多义线等的集合，每个实体即　是一个对象．可通过属性和方法改变实体或生成新实体［３１。　对非图形实体．如层（１ａｙｅｒ）、线形（１ｉｎｅ　ｔｙｐｅ）等的访问则通过访问　Ｄｏｃｕｍｅｎｔ对象相应的集合类型子对象，如Ｌａｙｅｒｓ、ＬｉｎｅＴｙｐｅｓ等实现。　１．３　Ｅｘｃｅｌ中的开放对象　Ｅｘｃｅｌ应用程序的对象模型包含一些功能强大的数据对象．常用　对象包括：Ａｐｐｌｉｃａｔｉｏｎ对象、Ｗｏｒｋｂｏｏｋ对象、Ｗｏｒｋｓｈｅｅｔ对象和Ｒａｎｇｅ　对象等。　

图１．３　Ｅｘｃｅｌ　２００３应用程序对象模型示意图　６７　２０１１年第２５期　ＳＣＩＥＮＣＥ＆ＴＥＣＨＮＯＬＯＧＹ　ＩＮＦＯＲＭＡＴＩＯＮ　Ｏ　ＩＴ论坛０　科技信息　Ａｐｐｌｉｃａｔｉｏｎ对象处于对象层级结构的最高层．代表了当前正在运　行的Ｅｘｃｅｌ应用程序本身，其他对象都是该对象的子对象　Ｗｏｒｋｂｏｏｋ工作簿对象位于Ａｐｐｌｉｃａｔｉ０ｎ对象的下一层次　一个　Ｗｏｒｋｂｏｏｋ对象代表一个Ｅｘｃｅｌ文件．包括Ｗｏｒｋｓｈｅｅｔ对象、Ｒａｎｇｅ对象　等。　Ｗｏｒｋｓｈｅｅｔ对象代表Ｅｘｃｅｌ工作簿中的工作表　通过该对象．可以　在程序中完成对工作表的操作　Ｒａｎｇｅ对象是一个单元格区域，该区域可以是一个单元格、某一　行、某一列或任意单元格区域［４１　理解了ＡｕｔｏＣＡＤ与Ｅｘｃｅｌ应用程序对象模型．就可以在客户端应　用程序ＶＢ中．遵循Ａｕｔｏｍａｔｉｏｎ通信标准．编写程序以访问服务器端　应用程序ＡｕｔｏＣＡＤ、Ｅｘｃｅｌ开放对象适当的属性和方法．从而代替人工　快速高效地完成一些重复、繁琐、耗时的工作　２主要实现功能　本软件目前具有下述功能：将Ｅｘｃｅｌ表格导入ＡｕｔｏＣＡＤ图纸、将　ＡｕｔｏＣＡＤ图纸中的材料表导出至Ｅｘｃｅｌ、多个Ｅｘｃｅｌ表格数据汇总整　理、在ＡｕｔｏＣＡＤ图纸中绘制标准部件。　２．１将Ｅｘｃｅ１表格导人至Ａｕｔ０ＣＡＤ图纸　由于ＡｕｔｏＣＡＤ制表功能和文字处理功能不强．　图２．１　将Ｅｘｃｅｌ表格导入至ＡｕｔｏＣＡＤ图纸界面　圈２．２将Ｅｘｃｅｌ表格导入至ＡｕｔｏＣＡＤ程序流程图　工作中对ＡｕｔｏＣＡＤ图纸中材料表格式的要求比较严格．如宁岛、　线宽、对齐方式等，因此在ＡｕｔｏＣＡＤ中采用手工方式制作材料表是一　项繁琐、耗时的工作．占用了工程师很多宝贵的时间　本功能实现了将Ｅｘｃｅｌ表格自动导人ＡｕｔｏＣＡＤ图纸的指定位嚣．　实现了用Ｅｘｃｅｌ强大制表功能及文字处理功能对ＡｕｔｏＣＡＤ功能的补　充，简化了ＡｕｔｏＣＡＤ制作材料表的过程．大大提高了工作效率．提高　了材料表的质量　本功能具有字高、线宽、对齐方式、有无边框、表格排布　式町定　制等优点。由于采用“四点定位表格”方法．因此可以精确确定导入　ＡｕｔｏＣＡＤ表格的插入点位置　导入表格的宽度及高度．完全能够满足　实际工作的需求．具有很强的实用性　２．２将Ａｕｔ０ＣＡＤ图纸中的材料表导出至Ｅｘｃｅｌ　本功能实现了将ＡｕｔｏＣＡＤ材料表、各种文字信息自动导出到　Ｅｘｃｅｌ中，导出的表格格式及文字信息与原ＡｕｔｏＣＡＤ信息一致．＂且　操作简单、实用　本功能支持单个导出、批量导出功能，操作简学，只需在Ａｕｔ　ｃ＾Ｊ）　选择导出点．即可将导出点确定范嗣内的材料表白动排序并导出到　Ｅｘｃｅｌ中．导出材料表与ＡｕｔｏＣＡＤ原材料表格式保持～　致　本软件支持容差处理功能．因为ＡｕｔｏＣＡＤ材料表的各行文字信　息没有严格对齐，～般都存在一定偏差．通过设置容差．可以增强软件　对不同图纸的适应能力　

图２．３将ＡｕｔｏＣＡＤ图纸中的材料表导出至Ｅｘｃｅｌ界面　图２．４将ＡｕｔｏＣＡＤ材料表导出至Ｅｘｃｅｌ程序流程图　２＿３多个Ｅｘｃｅｌ表格自动汇总整理　在日常工作中经常需要使用Ｅｘｃｅｌ对数据进行处理，处理过程ｔ｝　往往存在着很多重复、繁琐、耗时的工作。本软件实现了在ＶＢ中操纵　Ｅｘｃｅ１．从而实现自动化办公，提高工作效率。　本功能用以将多个Ｅｘｃｅｌ表格中的数据进行汇总整理，能够将多　个Ｅ　。ｌ表格中名称及规格等相同的散料汇总在一起，并能够实现对　汇总后的表格进行同类数量求和。　本功能支持多个关键字汇总整理，实现将多个关键字相同的散料　汇总到一起　软件具有批处理功能，可同时读取并处理多个Ｅｘｃｅｌ文　件．节省了工作时间、提高了工作效率。