利用VBA对AutoCAD二次开发在矿山测量中应用.doc

利用VBA对AutoCAD二次开发在矿山测量中应用 　　摘要：本文通过对AutoCAD绘图软件、二次开发语言VBA的介绍，以及分析矿山测量在制图时对AutoCAD的需求，阐述利用VBA对AutoCAD二次开发在矿山测量中的应用。 关键词：AutoCAD；VBA；二次开发；矿山测量 中图分类号： O434.19 文献标识码： A 1关于AutoCAD、 VBA 1.1介绍AutoCAD、VBA AutoCAD（Auto Computer Aided Design）是美国Autodesk公司首次于1982年研究开发的计算机辅助设计软件，是目前国际上应用最流行的绘图工具，功能全面，操作稳定，普适性强，广泛用于二维绘图、详细绘制，深受各行各业设计者和工程技术人员的喜爱。与此同时，高普适性也对应着AutoCAD另一大特点：开放的结构体系。这种开放体系，使得不同行业、专业根据自身的特点能够对其进行Autodesk二次开发，可以说AutoCAD的普适性为其二次开发提供了必要条件，从而也弥补了其专业针对性能不强的弱点。 从AutoCAD R14.01版开始，Autodesk在AutoCAD中加入了VBA（Visual Basic for Applications），作为AutoCAD的一种二次开发工具。VBA是一种完全面向对象体系结构的编程语言，是Visual Basic的一种宏语言，与VB有着相似的语言结构和开发环境。在VBA中，AutoCAD通过AetiveX提供了一个沟通外部世界的机制，使得AutoCAD通过不同的编程语言和环境进行二次开发。可见，VBA是通过ActiveX接口建立与AutoCAD对象之间的联系，在AutoCAD和Visual Basic之间搭建起起了一座桥梁，将其完美的融合在一起，创造出符合用户要求的程序，形成新的功能性强、灵活性高的软件。 1.2利用VBA对AutoCAD进行二次开发的优点 VBA与其他AutoCAD二次开发技术相比，优点有很多： VB语言基础广泛。作为世界上使用人数最多的计算机编程语言，VB有非常坚实的语言基础，编程环境相对于其他二次开发技术更容易学习和使用。 嵌入式与独立性并举。在二次开发中，VBA以AutoCAD软件为依托，但并不是所有的应用程序都要与AutoCAD进行交互，体现了VBA的灵活性。 运行速度快而稳定。当VBA与AutoCAD在同一进程空间运行时，运行速度要比其他二次开发语言应用程序快，运行也更加稳定。 2矿山测量对AutoCAD二次开发的需求 2.1矿山测量的现状 矿山测量人员在井下进行外业工作时，由于受到井下不利环境、条件与人员配置的限制，数字化仪器通用性并不高。使用光学仪器作业往往需要测量大量的基本数据，如角度、距离。在传统测量内业工艺流程中，先要将原始数据进行处理，然后将处理好的数据准确、合理的体现在图纸上或计算机上。在绘图过程中，基本会重复相同的工作，如绘制巷道、采场平面图：要将测得的同一方位上的支距点（特征点）在不同的比例尺下进行逐一展绘、分别成图，无论是手工绘图还是普通的CAD制图，都是一项重复率极高、效率极低的工作，而且极容易随着制图人员的疏漏和疲劳产生误差，甚至是错误。 通过以上对矿山测量内外业工作的描述可见，矿山测量的硬件设施难以有实质性的提升，但是内业处理仍有很大的操作空间。如果我们将AutoCAD进行二次开发，将传统数据处理与制图这两项“脱节”的工作有机结合在一起，将会大大提升工作效率和内业精度。 2.2开发方法 二次开发主要方法是把原始的测量数据进行专业分类，将不同种类的数据分别传递给不同的参数（相同种类传递相同参数），再根据测量人员的要求，用相关的公式、方法将参数进行专业性整合，当参数改变时（即不同种类的观测值、观测量），程序仍然按照预定的表达式来执行，通过人机交互，完成绘图，从而实现变量化设计，自动化制图。 2.3程序界面 如图1所示，进入VBA二次开发程序界面之后，在编写代码之前，要根据该程序所需的变量、参数，来确定都要在界面当中添加哪些控件。 2.4代码部分 此处将部分 “图2绘制采场、联络道平面图程序设计”的代码进行注释，对照示意图来进行AutoCAD VBA二次开发的解析： Private Sub CommandButton7_Click()计算罗盘导线点坐标 Dim b2, b3, b4, b5, b6, b7 As Double定义过程变量的数据类型 Const pm As Double = 3.141592653定义常量 If tt1 = ““ ThenIF条件语句，该text文本框为空倾角