VBA数据库在AutoCAD的应用

VBA数据库在AutoCAD的应用 摘要：Visual Basic for Applications（VBA）是一种Visual Basic的宏语言，主要能用来扩展Windows的应用程式功能，可以用于AutoCAD软件。也可说是一种应用程式视觉化的Basic Script。 下载论文网关键词：AutoCAD VBA 数据库 应用1 概述AutoCAD（Auto Computer Aided Design）是美国Autodesk公司在1982年开发的用于矢量二维绘图、详细绘制、设计文档和基本三维设计自动计算机辅助设计软件，经过30年发展，成为设计人员必备的绘图工具。软件自身存档dwg格式是二维绘图标准格式。每隔几年，软件升级格式改进。直到90年代早期，应用程序自动化还是充满挑战性的领域，对每个需要自动化的应用程序，人们不得不学习一种不同的自动化语言。例如：可以用EXCEL的宏语言来使EXCEL自动化，使用WORD BASIC使WORD自动化，等等。微软决定让它开发出来的应用程序共享一种通用的自动化语言Visual Basic For Application（VBA），可以认为VBA是非常流行的应用程序开发语言VISUAL BASIC 的子集。实际上VBA是寄生于VB应用程序的版本。AutoCAD自身带autolisp可以进行开发程序，autolisp语言在开发固定图形，各种重复性操作这方面比较强，但是语言习惯编写，与我们面向对象语言有差别，学习有一定难度。ArcObject可以进行开发CAD程序，ArcObject的学习不是一天两天可以搞定，对于业余程序员，要使用VBA来扩展ArcGIS，几乎没有可能。Visual Basic for Applications（简称VBA）是新一代标准宏语言，是基于Visual Basic for Windows发展而来的。它与传统的宏语言不同，传统的宏语言不具有高级语言的特征，没有面向对象的程序设计概念和方法。而VBA 提供了面向对象的程序设计方法，提供了相当完整的程序设计语言。VBA 易于学习掌握。VBA教程比较多，在网络也容易找到教程。值得一提的是数据库操作方法，不仅可以用于autocad，还可以用于基它软件，VBA方法和技巧是通用的。Autocad软件从2010后，没有自带安装VBA，需要从官网上下载安装，但是采用CAD常常需要多个CAD软件，比如：AutoCAD Electrical，AutoCAD Mechanical，Autodesk Inventor Professional等软件，当软件版本是同一时期的，需要注意的是VBA只认一个软件，安装时请选择好软件平台。2 数据库选择和方案数据库的类型许多，比如SQL，access，MySQL sql，server 2008等，选择最简单的access作为数据库支持，Microsoft Office Access（前名Microsoft Access）是由微软发布的关联式数据库管理系统。它结合了Microsoft Jet Database Engine 和图形用户界面两项特点，是 Microsoft Office的成员之一。设计人员做工程后，得到许多经验，有些文字记录，利用这些经验在设计完图纸后，进行经验式检查，防止工作中出现错误。如果这些经验输入数据库，在CAD软件中进行查询，图纸检查更方便。业余程序设计人员和专业工程设计人员技能结合在一起，选用access作为数据库支持是最佳选择。3 数据库连接AutoCAD安装好VBA后，调用出VBA操作窗口，如图1，通过工具箱放入窗体和列表框。需要建立数据库与后台联接方式，写下代码：Set adoCon = New ADODB.ConnectionadoCon.Provider = Microsoft.Jet.OLEDB.4.0adoCon.Open D：ab.mdbSet adoRs = New ADODB.RecordsetadoRs.Open TableName， adoCon，adOpenDynamic， adLockOptimisticSet adoQ = New ADODB.RecordsetstrQ=select distinct 类型 from&TableName & 当运行代码时，程序没有任何反应，原因是需要向外部引用数据库支持插件。通过工具的引用，选择好对应数据连接类型后，就可以运行程序，如图2。4 窗体和代码在autocad运行VBA过程中，发现图1的窗体出现独占软件，无法进行操作修改CAD图，这带来许多不方便。需要修改窗体l属性的showModal，改为False。就可以一边看图，一边修改，达到我们的要求。在代码中，采用TableName = InputBox（“输入表名：”）建立输入表名查询，原来想用列表框建立查询方式，但是InputBox代码简单，列表框找到相应查询简码，图3是程序运行结果。在实际操作过程中，希望条目，可以随意下上翻转。作了如下设置，鼠标左键点击，向下查询；鼠标右键点击，向上查询。代码如下：If Button = 2 Then 点右On Error Resume NextIf adoRs.EOF ThenadoRs.MoveFirstElseadoRs.MovePreviousExchangeDataEnd If5 程序改进在实际操作过一段时间后，你会发现自己校对图纸花了多长时间，需要另外方法记录，比如开始时需要看表，记录时间，看完后需要看一下，想把记录时间工作交给程序完成。写下如下一段代码：Gdata2 = Timer（）MsgBox 时间： & CInt（Gdata2 - Gdata1） / 60） & 分钟随着时间推移，做图的经验越来越多，数据资料也越来越来多，图纸上有许多地方相同特点，需要反反复复校对，数据库就需要同类合并，也不可用鼠标点前点后无数次，所以加列表框进行选择查询。6 总结程序设计完成后，经过一年试用后，发现该程序，在校图方面，减少图纸出错，带来方便；同时，增加相应操作，随着自己数据库扩展，花费时间越来越长。过分依赖该程序后，会降低自己效率。在做完最重要那几张图纸，才启动这个程序，完成校对工作。参考文献：1美Guy Hart-Davis.VBA从入门到精通（第二版）M.电子工业出版社.2李波，胡俊.AUTOCAD 2012中文版完全学习手册M.电子工业出版社.3美Cary N.Prague，赵传启，叶卓映，郭军.中文版Access 2003宝典M.电子工业出版社4伊利奇，王保众.透视Excel VBA应用与开发M.人民邮电出版社.5S.Christian Albright.VBA for ModelersM.Cengaga Learning，2011.