利用VBA自动提取CAD图纸明细表并进行数据库管理

1、.专业整理 .自动提取 CAD图纸明细表及数据库管理的研究与实践本文 TAG：工程图明细表自动提取AutoCAD数据库管理2008-10-21作者：胜安出处： e-works阅读： 1582推荐： 0本文详细介绍了如何开发应用 AutoCAD来自动提取 CAD图纸明细表及管理数据库，其切切实实的为设计工作节约了大量的时间。制造企业工程技术人员在利用 CAD进行产品设计时产生大量的 DWG文件，每一个 DWG文件中包含一或数图纸，设计的基础资料如：工程项目、图号、设备（物料）名称、型号规格、材质、数量、重量、备注等等文本信息都记录在图纸标题栏明细表中。设计工作完成后，工艺编制、成本预算、物料消耗

2、、物流采购、计划调度、车间生产等项管理业务都将依据图纸进行操作。在通常的管理中，各业务部门往往通过人工的方式从CAD图纸或纸质图纸明细表中获取技术文件数据，再利用WORD或 EXCEL进行手工二次录入，编制各自需要的明细表、经过汇总，生成相应的报表， 并在此基础上产生工艺技术文件通俗简称为（工单），按不同的用途也有的称之为物料消耗单、物料清单 BOM等。这种单页面的文本制作方式虽然使用了电脑操作，但并未能摆脱繁重的手工录入和编辑工作，不能进行数据的自动处理，存在图纸与制表数据不一致、差错率高、工作量大、编制周期长、效率低下、查询繁琐、数据不能共享等多种弊端。因此，采用自动提取 CAD明细表与进

3、行数据库管理的方法是克服以上弊端提高企业设计、技术、管理效率和工作质量的有效途径。AutoCAD 是 AutoDesk 公司开发的通用 CAD工作平台，在机械、造船、电子、汽车、测绘、建筑等许多行业中得到广泛的应用，其完善的图形绘制和编辑功能，多种接口文件，较强的数据交换能力，特别是开放的二次开发功能给用户提供了有力的技术支撑。Microsoft VBA (Visual Basic for Application)是一个面向对象的可视化编程环境，它是由Visual Basic派生而来， AutoCAD嵌的 VBA提供了与 Visual Basic相似的丰富的开发能力。AutoCAD从 R14

4、版开始增加了作为ActiveX Automation服务器应用程序的功能，这是一个功能强大的接口，它提供了一系列开放的对象，通过这些对象，VBA应用程序便可以对AutoCAD进行编程控制。 AutoCAD2000及以后版本其功能进一步扩充，强化了AutoCAD与数据库的通讯能力，能够使AutoCAD与其它应用程序（例如Microsoft Excel、Word、Access）直接共享数据。 它是对 AutoCAD进行二次开发的一种强有力的手段。笔者以 AutoCAD2004为背景，应用VBA开发工具和Access 数据库技术成功地实现了自动提取CAD图纸明细表与进行数据库管理的研究目标并取得较好

5、的实用效果。一、自动提取AUTOCAD图纸明细表工程技术图纸的右下角区域一般都布置着标题明细栏，记载着图形总体和明细的特征信息和基本技术要数，它是所有派生技术文件的信息源头和依据， CAD图纸继承了这个惯例。我国国家技术标准 GB/T 10609.1 2-1989 对图纸标题明细栏的形式、容、尺寸都作了具体规定。虽然各企业图纸标题明细栏样式不尽相同，但小异，基本结构一致。标题栏记载着图形的外部信息，明细栏记载着图形在的详细要素和彼此的关联。.学习帮手 .专业整理 .（图一）明细栏由若干明细行组成，明细行则由各栏目组合。自动提取AUTOCAD图纸明细表的信息其实质就是针对明细行对各栏目进行提取数

6、据的操作。提取明细行数据的方法概括起来，通常有坐标定位法和块行取值法两种：1坐标定位法：即先点选起始明细行左下角坐标与末尾明细行右上角坐标所在的位置，确定提取数据的区域围，对该区域围的所有实体对象进行逐一扫描，读出文字对象（TEXT、MTEXT）的（ X、Y）坐标属性和字符串属性。通过文字对应坐标值的分析确定该文字在明细表中的位置，实现自动提取数据的操作。这种方法对单图的 DWG文件效果较好， 但对多图的 DWG文件和不规则的标题明细栏操作起来就很复杂且取数的精度也较难控制，实用效果不够理想，这种方法对以往标题栏未作规要求的老图纸其作用显而易见。2 块行取值法：即利用AutoCAD块行属性特征

7、来提取明细栏的信息。在 AutoCAD部对象模型 (AutoCAD Object Model) 以层次结构组织起来，顶层可编程的Application对象启动AutoCAD 应用程序的一个实例，通过Application对象定位到其它对象；第2 层是 Document 和 Preference 对象，Document 对象代表当前在AutoCAD应用程序窗口中打开并操作的一个AutoCAD图形文件， Preference 对象对应于 Preference 对话框包含 AutoCAD 当前的配置信息；第3 层是 Document 的集合对象，如 ModelSpace，PaperSpace ， B

8、locks 对象等等，通过集合对象我们就可以访问当前图形中的所有实体。块行取值法主要使用集合中Attribute和 Block 两个对象。 具体设计明细行时， 没有格式限制， 唯一要求就是必须使一个 Attribute对象对应明细行中的一个栏目项，将对应明细行中所有栏目的Attribute对象组合在一起放入 Block 对象中，该 Block 对象就是用户定义的块行（明细行）。将定义好的块行依次插入（复制）到图纸标题栏上方，组成图纸明细栏。其操作如下：绘图块定义属性（图二、图三）修改对象属性块属性管理器（图四、图五）图二图三.学习帮手 .专业整理 .图四图五图六.学习帮手 .专业整理 .Att

9、ribute对象是具有交互功能的一种标签，含有3 个配置项： Tag， Value 和 Prompt 。Tag项是该Attribute对象的标志符，即Attribute对象的名字。例如Tag 设置为 件号 ，表示该Attribute对应明细栏中的 件号 栏目。Value项表示 Attribute中包含的真实数值， 如某个具体的件号值为001 。在定义 Attribute对象时，由于初始明细栏目中的具体容不确定，则该属性一般暂不输入数据。待块行建立后其输入的数据就存储在 Attribute 对象中，这样通过程序访问 Attribute 对象的 Value 属性就可以获取其中的数据。Prompt项

10、表示 Attribute的提示信息，引导用户完成数据输入操作。Block对象是一个容器对象，该Block 包含多个Attribute对象。在AutoCAD图形中插入明细行后，只要点击该行系统就会提示用户输入相应的值，并显示在图形标题明细栏中。在开发中要注意区分Block 和 BlockRef （块引用对象） 、Attribute和 AttributeRef（属性引用对象）对象。在 AutoCAD图形中定义 Block 时，该 Block对应 Block 对象。将定义好的 Block插入到另一个图形中，就是基于 Block的定义生成一个实例，该实例就是BlockRef 对象；同样，在AutoCA

11、D 图形中定义 Attribute时，该 Attribute对应 Attribute对象。将包含在 Block 中 Attribute插入到另一个图形中， 就是基于 Attribute 的定义生成实例， 实例对应的就是AttributeRef对象。因此在从 AutoCAD图形的明细栏中自动提取管理信息时，涉及到的两种对象是BlockRef和 AttributeRef对象 .将按上述方法定义好的规明细栏插入到AutoCAD 图形中后，通过 ActiveX Automation技术就能将明细栏中的信息提取出来。在Document 的集合对象中Modelspace 对象是一个特殊最大的BLOCK，包

12、含图纸中所有实体（图形对象） ，由于 BLOCK、Attribute允许嵌套，因此为搜索当前实体中的属性信息提供了方便。基本算法上使用了递归调用扫描当前图纸中的所有实体，通过实体的EntityType属性判断该实体是否是 BlockRef对象，如果是，则判断该BlockRef对象中是否包含AttributeRef对象。如果包含则获取AttributeRef对象的列表。然后扫描此列表，通过TagString 和 TextString 属性获取每个 AttributeRef对象中的数据，并同步写入 ACCESS数据库；当扫描结束时，明细栏中所有AttributeRef对象中包含的信息都被提取出来，

13、自动在ACCESS数据库中即可形成初步的明细数据表。在 AUTOCAD中自动提取明细表数据解决方案思路如（图七）所示：.学习帮手 .专业整理 .图七二、 VBA编程自动提取CAD图纸明细表及进行数据库管理的要点本研究采用AutoCAD2004设计图纸明细表，Access2003 数据库进行管理。 系统设计可分为AutoCAD2004二次开发和数据库管理两个组成部分，使用VBA编程工具开发系统。（一） AutoCAD2004二次开发1 建立自定义菜单：启动 CAD工具自定义编辑自定义文件当前菜单进入ACAD记事本编辑查找 POP11修改保存自定义菜单修改容:*POP11*vba应用ID_vba

14、应用&vba应用 ID_ 提取图纸明细表-& 提取图纸明细表ID_ 保存为 Excel 表& 保存为 Excel 表 CC_-vbarun m_excel.dtexcelID_ 保存为 Access 表& 保存为 Access 数据库 CC_-vbarun m_access.dtaccess*POP12注释 :*POP11-第 11 项*vba应用 -别名ID_vba 应用 &vba应用 -显示 vba 应用 菜单项ID_ 提取图纸明细表-& 提取图纸明细表 -表示有下级子菜单显示 提取图纸明细表ID_ 保存为 Excel 表 & 保存到 Excel 表 CC_-vbarun m_excel.

15、dtexcel-显示 保存到 Excel 表 , 并运行 ACAD工程中的模块m_excel 中的宏 ( 过程 )dtexcel.学习帮手 .专业整理 .( 打开图纸时操作菜单自动提取明细表到指定的Excel 表) 。ID_ 保存为 Access 表 & 保存为 Access 数据库 CC_-vbarun m_access.dtaccess-显示 保存到 Access 表 , 并运行 ACAD工程中的模块m_access 中的宏 ( 过程 )dtaccess( 打开图纸时操作菜单自动提取明细表到指定的Access 表) 。将编辑后的acad.dvb 文件 COPY到目录中。2编制 VBA提取图

16、纸明细表数据程序：（ 1）提取数据到Excel 表的程序要点.学习帮手 .专业整理 .学习帮手 .专业整理 .2）提取数据到Access 表的程序要点（二）建立ACCESS数据库管理信息系统1 建立数据库MDB应用文件：为了统一、集中、有效地管理数据，便于系统调试、更新和升级，.学习帮手 .专业整理 .将程序和数据分别存放在两个MDB文件中，本例自动提取的CAD明细表数据存放在产品数据库。2设计信息管理系统：本系统在ACCESS2003 环境下应用VBA编程技术开发。设计信息管理系统时要着重考虑以下问题：明细表序号（件号）编码的设计明细表序号一方面反映图纸的顺序和相互关系，另一方面也是数据库管

17、理中进行排序、分类、汇总的依据，因此序号的编码设计和处理尤为重要。在一般通常情况下图纸明细表中的序号（件号）常采用1999 数字逐一递增的顺序编码。这种自然编码的优点是符合人的思维习惯、容易记忆、维护方便，但存在不能自动排序的缺点。例如： 1、1.1 、2、 2.1 、10、10.1 、99、 100 按升序排列，其结果是：1、 1.1 、10、10.1 、100、2、2.1 、99 这是因为在计算机上述数字是按ASCII 值排序的。这种不定长的编码方式给计算机查询、排序、分类、汇总等操作和制作报表带来很大麻烦，往往需要用手工的办法人为的加以调整，十分不便，工作效率也很低。因此系统采用了新的编

18、码方法，即三位定长编码。图纸明细表序号（件号）采用三位编码逐级递增的方式。例如:装配图001002100999一级序号组部件图001001002001101001101 099二级序号零件图001001001002001001101099001三级序号上述编码在实际操作中并无需记忆，只需在原来序号上加零即可。实践证明这种定长逐级递增的编码方式对提取明细表的数据进行排序、分类、汇总操作和制作报表时带来极大的方便，不但大幅度提高系统自动化的能力，而且为应用数据库技术打下良好坚实的基础。通过程序可将图纸明细表中的三位编码自动转换还原成报表上习惯常用的编码。例如:装配图001002100999转换为1

19、21099100999组部件图001001002001101001101099转换为1- 1 2- 1101 - 1101-99零件图001001001002001001101099001转换为1-1- 1 2-1- 1101-99-1自动修改数据库表结构从 AUTOCAD图纸明细表提取的数据保存在数据库表中只是解决了数据库数据源的问题，系统要完成数据逻辑的自动处理和满足功能模块运行、实现系统目标的需要还必须增加一些辅助字段，用以提高数据库管理信息系统的自动化程度。因此系统设计时要解决自动修改数据库表结构增加字段的技术性问题。例如：本系统需要在数据库表中自动增加 消耗用量 、 物料分类 等字段

20、。如以下程序所示：理顺和规CAD图纸明细表数据格式传统 CAD图纸明细表的数据在大多数情况下反映了设计者个人的理解和自定义，应用数据库管理时就存在一个规数据格式的问题，否则计算机无法正常处理提取的数据。因此开发人员要设计一个规的CAD.学习帮手 .专业整理 .图纸标题栏明细表，对表头各栏目给予明确的定义并对输入的格式提出具体的规定和要求，设计人员应统一引用图纸规标题明细栏。图纸规标题明细栏标题栏+明细栏其中：标题栏的格式容与传统的格式容一样，填写方法仍然采用单行文本方式；明细栏增加了型号规格一栏，将传统名称栏中的型号规格容填写到此栏中。明细栏的填写方法如前所述采用增强属性编辑器（图六）输入。c

21、ad 制图时必须规、正确地填写明细栏各栏的容。例如：A. 件号栏： 采用三位编码逐级递增的方式即:装配图001.100 999一级件号组部件图 001001 002001 101001 101099二级件号零件图001001001 002001001 101099001三级件号系统具有编码识别转换功能，在明细栏制作和汇总时系统会自动将上述代码转换成习惯编码。例如：1板材3标准紧固件1-1钢板 =23-1螺栓 M10901-2钢板 =33-2螺栓 M101002 型材2-1扁钢 5016件号栏必须按图纸的层次逻辑关系编制代码，不允许空拦。B. 图号或标准号栏：应准确使用图号，注意装配图、部件图、

22、零件图之间的层次逻辑关系；按技术条件准确合理的选用技术标准。此栏可以是空栏。C. 名称栏：仅填写物料的名称，此栏中不再填写物料的型号规格。原则上必须保证一种物料对应一个名称，属于原材料或标准件、基础件的物料其名称按对应技术标准中的名称填写。例：钢板、无缝钢管、扁钢、槽钢、等边角钢、不等边角钢、工字钢、平垫圈、弹簧垫圈、螺栓、螺母等以便于物料分类和查询，改变过去同一物料名称五花八门的混乱现象。系统具备自动识别功能，输入名称更新后系统会自动定义物料分类字段：例如：名称：钢板物料分类：板材名称：扁钢物料分类：型材名称：螺栓物料分类：标准紧固件名称：法兰物料分类：管道件.学习帮手 .专业整理 .名称栏

23、不允许空拦。D.型号规格栏： 应正确表达物料型号规格的含义，规书写型号规格的格式。例如钢材形象符在实际使用中受中西文及取字方式的影响比较混乱，所有在图纸明细表中不再使用，但必须在名称栏按设计手册的材料名称填写清楚。例如：名称：钢板型号规格： =10（希腊小写字母 及等号与数字连用，表示板材厚度）名称：槽钢型号规格： 25b名称：螺栓型号规格： M1660名称：扁钢型号规格： 5016 （宽、数学乘号、厚）。名称：槽钢型号规格： 25b （槽钢型号）表示，不要用形象字符如：【等。名称：不等边角钢型号规格：50324 （长边短边边厚）表示，不要用形象字符例：L、等。名称：无缝钢管型号规格： 385

24、 （希腊小写字母、外径、数学乘号、壁厚）。名称：工字钢型号规格：25b （工字钢型号）表示，不要用形象字符例：等。名称：圆钢型号规格： 40 （希腊小写字母、外径）表示。名称：螺栓型号规格： M20100 （大写M、外径、数学乘号、长度）名称：活接螺栓型号规格： M20100 （大写M、外径、数学乘号、长度）名称：细牙螺栓型号规格： M101（大写M、外径、数学乘号、螺距）长度L=在备注栏填写。原则上按技术标准书写，型号规格栏允许空拦。E. 数量栏 :整数用阿拉伯数字表示，小数用阿拉伯数字加英文状态下. 表示。例：名称：钢板型号规格： =8数量： 101.8 KG名称：扁钢型号规格：5016

25、数量： 10 件名称：圆钢型号规格： 40数量： 100 KG数量栏数据必须唯一，不允许出现两个以上数据，不允许有非计算字符存在(如：/*()等)，数量栏不允许空拦。例：以下数量的表述格式是错误的名称：钢板型号规格： =8数量： 101.8/ 109.8 KG名称：扁钢型号规格：5016 数量：各10 件名称：圆钢型号规格： 40数量： (100) KGF. 材料栏：保留过去图纸材料栏的书写方式。本栏反映了物料结构性质、材质、性能级别、热处理、特殊工艺等。例：.学习帮手 .专业整理 .结构性质：部装、部件、组件材质： Q235-A、Q235-B、65Mn性能级别： 4.8 级、 8.8 级、

26、200HV等系统已作了部份规，有待进一步完善和扩充，操作者也可在技术标准中自行选用，材料栏允许空拦。G.单重栏：整数用阿拉伯数字表示，小数用阿拉伯数字加英文状态下. 表示。例：名称：钢板型号规格： =8单重： 101.8 KG名称：扁钢型号规格：5016 单重： 10KG名称：圆钢型号规格： 40单重： 100KG单重栏数据必须唯一，不允许出现两个以上数据，不允许有非计算字符存在，单重栏允许空拦。例：以下单重的表述格式是错误的名称：钢板型号规格： =8单重： 101.8/ 109.8KG名称：扁钢型号规格：5016单重：各 10KG名称：圆钢型号规格： 40单重： (100)KGH. 总重栏：

27、整数用阿拉伯数字表示，小数用阿拉伯数字加英文状态下. 表示。例：名称：钢板型号规格： =8总重： 101.8KG名称：扁钢型号规格：5016总重： 100KG名称：圆钢型号规格： 40总重： 2000KG总重栏数据必须唯一，不允许出现两个以上数据，不允许有非计算字符存在，总重栏允许空拦。例：以下总重的表述格式是错误的。名称：钢板型号规格： =8总重： 101.8/ 109.8 KG名称：扁钢型号规格：5016 总重：各10KG名称：圆钢型号规格： 40总重： (100)KG名称：组件型号规格：总重： /I. 备注栏：在此栏中表达需要简单说明的事项或在其他栏无法表达的容。例：名称：钢板型号规格：

28、 =16总重： 955KG备注：上板按 2000 板宽名称：扁钢型号规格： 5016总重： 100KG备注： L=568 8PCS.学习帮手 .专业整理 .名称：圆钢型号规格： 40总重： 52KG备注：拉杆 L=2921 8PCS名称：钢管型号规格：323总重： 2KG备注：接管 L=180 2PCS名称：钢管型号规格：29910总重： 20.7 KG备注：筒体 L=200备注：外协（配套标准件）备注栏允许空拦。开发人员在程序设计中要注意用空格处理空拦的 NULL值，否则会引起取数程序中断，造成取数不完全的结果。采用人性化的设计思路和方法技巧数据库管理功能模块应简明实用，采用人性化的设计思路

29、尽可能的把需要记忆和重复操作的事情交给计算机去做。系统的输入、查询、编辑应有联想功能，既考虑计算机程序的结构化又设法尊重人的工作习惯，两者巧妙地结合，在程序设计的技巧上采取一些有效措施，完全可以做到小软件解决大问题。例如在系统中嵌输入联动、指定位置插入、习惯编码转换、金属材料重量随机计算器、结构树、数据库自动压缩等程序。优化和规CAD图纸明细表取数及工艺文件( 简称工单 ) 的业务流程CAD图纸明细表取数及工艺文件制作涉及各项业务和多个部门 , 因此设计开发时必须从系统的角度全面的考虑问题 , 以最短的路径、最完善的功能、最可行的布局来安排业务流程。参考例证如下：三、结束语笔者已经成功的完成了自动提取CAD明细表与数据库管理信息系统的研究与实践。从CAD提取明细表后其数据一方面进入EXCEL,使用 EXCEL手工制作工艺