AutoCAD二次开发(VBA)

.

... 第14 章 VBA开发在采矿CAD绘图中的应用

AutoCAD在不但提供了强大的绘图功能，同时也提供了一个功能强大的集成开以工具——Microsoft Visual Basic for Applications（VBA）。VBA是一个AutoCAD应用集成开发环境，它提供了高质量的用户化编程能力，能够使AutoCAD数据与其它VBA应用程序，VBA的加入扩展了AutoCAD集成用户化工具的能力，它集成了AutoLISP，Visual LISP和ObjectARX API等工具。这样，就为用户访问AutoCAD软件的多种技术框架提供了新的选择和新的开放机会，可以按用户所需求的工作方式开发应用程序。

VBA开发环境是一个可视化开发环境。使用VBA可以通过拖拽图标的方法，简单而可视化地建立用户界面。可以使用AutoCAD工具栏，也可以使用标准VBA界面工具创建新的工具栏。AutoCAD软件中的ActiveX Automation对象模型十分有用。Autodesk开放了每一个AutoCAD对象模型，这些对象模型显示了每一个对象的方法和属性，并能够依用户的愿望去编程或用户化AutoCAD软件。

学习本章内容最好具有Visual Basic6.0基础（主要是相关控件的使用方法与Basic语言语法结构知识），如没有相关基础知识，可在学习本章之前参考相关书籍或在学习本章内容过程中同步使用相关参考书。通过本章的学习，应了解和掌握以下内容：

 了解VBA。

 了解AutoCAD对象模型。

 掌握绘制AutoCAD图形对象方法。

 掌握编辑图形对象方法。 .

...  掌握绘制文字方法。

 掌握标注方法。

 掌握创建块与插入块。

14.1 VBA基础

14.1.1VBA管理器

在当前AutoCAD进程中加载的所有VBA工程都可以用“VBA管理器”对话框来管理。这是一个AutoCAD的管理工具，可以使用它来加载、卸载、保存、新建、嵌入和提取VBA工程。“VBA管理器”对话框如图14－1所示。

图14－1 “VBA管理器”对话框

可以在AutoCAD的菜单栏中选择菜单【工具】→【宏】→【VBA管理器】来启动“VBA管理器；也可以在AutoCAD命令提示中输入“vbrun”命令来启动。 .

... 14.1.2加载已有的工程

当把工程加载到AutoCAD图形中时，所有的公用子程序也都成为可用的。内嵌在图形中的工程当图形打开时也被加载，而保存在*.dvb文件中的工程则必须另外单独加载。加载已有的VBA工程文件步骤如下：

（1）在“VBA管理器”对话框中单击【加载】按钮，弹出“打开VBA工程”对话框，如图14－2所示。

图14－2 “打开VBA工程”对话框

（2）在“打开VBA工程”对话框中选择想要加载的工程文件。在VBA管理器中只允许要开有效的dvb文件。

也可以在命令提示行输入“vbaload”命令来加载工程文件，该命令同样弹出“打开VBA工程”对话框。一个工程加载后，此工程要引用的其他所有工程也都会被自动加载。另外，AutoCAD再次启动时，会自动加载名称为acad.dvb的工程文件。

 每次加载工程时，都会显示启用或者禁用工程内程序代码的选项提示，作为防范病毒的措施，如图14－3所示。如果启用了带病毒的宏，程序中的病毒就会开始运行；如果禁用了该宏，工程仍然会被调入，但是该工程中的所有程序均不能执行。 .

...

图14－3 工程加载提示

14.1.3创建新工程

新工程可以在任何时候创建，这时它是一个独立、完整的工程。用户可以将它保存到工程文件中，也可以将它嵌入到图形中。

建立新的工程步骤如下：

（1）“VBA管理器”对话框；

（2）单击【新建】按钮，建立新工程。

由于篇幅有限卸载工程、嵌入工程、提取工程以及宏的相关知识自行学习。

14.2 VBA IDE开发环境

在AutoCAD中加载了工程，就可以使用VBA交互式开发环境VBA IDE来编辑宏工程的程序代码、窗体和部件引用等元素，也可以在VBA IDE中删除错误、调试和运行工程。

14.2.1打开VBA IDE

可以使用下面的二种方法之一打开VBA IDE开发环境：

（1）在命令提示行中输入“vbaide”命令；

（2）从AutoCAD的【工具】菜单中选择菜单【宏】→“Visual Basic编辑器”；

打开的VBA IDE编辑环境如图14－4所示，在VBA IDE中可以对所有已加载的工程进.

... 行编辑。

图14－4 VBA IDE编辑环境

14.2.2工程元素

每个工程都由许多不同的元素构成的。一个工程可以包含的元素有对象、窗体、标准模块、类模块和引用等。

 对象。对象元素是指VBA工程的程序代码将要存取的对象或者文件，例如，对AutoCAD VBA工程而言，ThisDrawing对象代表的是当前的AutoCAD图形；

 窗体。窗体元素是放置其他对象的容器，它常常用于创建工程的自定义对话框；

 标准模块。标准模块也称为程序代码模块，或者简称模块。程序代码模块中包含程序代码行和函数等；

 类模块。类模块元素是指所有包含本身的对象，这些对象被定义为类别；

 引用。引用元素是指对其他工程或者程序的使用参考。

在VBA IDE编辑环境可以进行添加新元素、导入元素和编辑元素，具体操作方法及步代码窗口

工程窗口 .

... 骤请自行学习。

14.3 ActiveX基础

基于AutoCAD的VBA应用程序就是高级程序语言的计算功能与AutoCAD的绘图功能结合，使有VBA程序语句来控制对AutoCAD图形的操作。要很好地使用VBA开发AutoCAD应用程序，就必须熟悉与要开发的应用程序类型相关的AutoCAD实体和对象集合、它们的属性和操作方法，以及都有哪些资源可以使用。引外还需要了解ActiveX相关语法知识。在本节学习过程中要注意理解ActiveX对象模型。

14.3.1AutoCAD对象模型

对象是AutoCAD ActiveX接口的主要单位，每一个开放的对象均代表一个AutoCAD的明确组件，VBA应用程序就是通过AutoCAD的这些对象来控制AutoCAD图形的。AutoCAD ActiveX接口有以下五种类型的对象：

 AutoCAD图形实体。例如直线、椭圆、圆弧、文字与标注等；

 AutoCAD非图形实体。如线型、标注样式、文字样式、表格样式等；

 AutoCAD结构实体。如图层与图块等实体；

 AutoCAD视图实体。如视图和视口等；

 图形和AutoCAD VBA应用程序本身。AutoCAD的对象是分层的，这个分层结构就是应用程序能够操作的对象模型，其中根对象是Application对象，对对象的操作是依对象模型的分层关系进行逐级操作的，对象分层结构如图14－5所示。 .

...

图14－5 对象分层结构

14.3.1.1Application对象

Application对象是AutoCAD ActiveX Automation对象模型的根对象，在Application对象中可以存取任何其他的对象，也可以设置对象的属性和使用方法。此外，Application对象还可以通过Documents集合来访问AutoCAD图形，通过MenuBar和MenuGroups集合来访问AutoCAD菜单和工具条，以及通过VBA的属性来访问VBA IDE。对象的结构如图14－6所示。 .

...

图14－6 Application对象

14.3.1.2Document对象

Document对象也就是AutoCAD图形，用户可以通过它来引用AutoCAD的图形对象和非图形对象。所有Document对象都属于Documents集合。用户通过Documents集合可以存取所有图形对象，例如直线、圆和圆弧等，图形对象的存取是通过Documents集合下的ModelSpace和PaperSpace集合来实现的。用户通过Documents集合也可以存取大部分的非图形对象，例如图层、线型和文字样式等，这些非图形对象的存取是通过Documents集合下的Layers、Linetypes和TextStyles等集合来实现的。Documents集合的结构如图14－7所示。

14.3.1.3图形对象与非图形对象

图形对象也就是图形实体，是组成AutoCAD图形的主要元素，它在AutoCAD中是可以看到的对象，如直线、圆、圆弧文字等。

在VBA应用程序中创建这些图形对象，需要使用Add方法对象，例如创建一个新的直.

... 线对象，需要使用AddLine方法，创建一个圆弧对象，需要使用AddArc方法；在VBA应用程序中编辑这些图形对象，可以使用对象本身的方法和属性，每一个图形对象都有方法可以让应用程序执行大部分的AutoCAD编辑命令，例如Move、Erase和Mirror方法等。

非图形对象属于AutoCAD图形的一部分，但是在绘图窗口中是不可见的，例如Layers、Linetypes和SelectionSets对象等。

在VBA应用程序中要创建这些非图形对象，需要使用上一级的Collection对象的Add方法。另外，每一个非图形对象均有特殊用途的方法和属性，都有可以设置及存取扩展实体数据和删除自己的方法。

14.3.1.3Preferences、Plot和Utility对象

Preferences集合是AutoCAD对象模型下的一个重要对象集合，它的层结构如图14－8所示。

图14－8 Preferences集合

Plot对象提供对AutoCAD中 “页面设置”对话框设置值的存取，应用程序还能够通过.

... 该对象以不同的方法来打印图形。

Utility对象提供应用程序中使用的输入函数和转换函数，它在对象模型的层次结构如图14－9所示。

如图14－9 Preference、Plot和Utility对象

14.3.2引用对象

引用对象是开发程序必需的工作。可以直接引用对象，也可以先定义一个变量，然后通过变量来引用对象。如果是直接引用对象，需要把对象引入到方法调用语句中。例如，在模型空间中生成一条直线，需要首先定义直线的起点和终点坐标，然后调用AddLine方法来创建直线对象。

Dim Spoint(0 To 2) As Double

Dim Epoint(0 To 2) As Double

Dim LineObj As AcadLine

Spoint(0) = 0

Spoint(1) = 0

Spoint(2) = 0

Epoint(0) = 100