AutoCAD二次开发VBA.docx

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

2、的工作方式开发应用程序。VBA开发环境是一个可视化开发环境。使用VBA可以通过拖拽图标的方法，简单而可视化地建立用户界面。可以使用AutoCAD工具栏，也可以使用标准VBA界面工具创建新的工具栏。AutoCAD软件中的ActiveX Automation对象模型十分有用。Autodesk开放了每一个AutoCAD对象模型，这些对象模型显示了每一个对象的方法和属性，并能够依用户的愿望去编程或用户化AutoCAD软件。学习本章内容最好具有Visual Basic6.0基础（主要是相关控件的使用方法与Basic语言语法结构知识），如没有相关基础知识，可在学习本章之前参考相关书籍或在学习本章内容过程中

3、同步使用相关参考书。通过本章的学习，应了解和掌握以下内容：了解VBA。了解AutoCAD对象模型。掌握绘制AutoCAD图形对象方法。掌握编辑图形对象方法。掌握绘制文字方法。掌握标注方法。掌握创建块与插入块。14.1 VBA基础14.1.1VBA管理器在当前AutoCAD进程中加载的所有VBA工程都可以用“VBA管理器”对话框来管理。这是一个AutoCAD的管理工具，可以使用它来加载、卸载、保存、新建、嵌入和提取VBA工程。“VBA管理器”对话框如图141所示。图141 “VBA管理器”对话框可以在AutoCAD的菜单栏中选择菜单【工具】【宏】【VBA管理器】来启动“VBA管理器；也可以在Au

4、toCAD命令提示中输入“vbrun”命令来启动。14.1.2加载已有的工程当把工程加载到AutoCAD图形中时，所有的公用子程序也都成为可用的。内嵌在图形中的工程当图形打开时也被加载，而保存在*.dvb文件中的工程则必须另外单独加载。加载已有的VBA工程文件步骤如下：（1）在“VBA管理器”对话框中单击【加载】按钮，弹出“打开VBA工程”对话框，如图142所示。图142 “打开VBA工程”对话框（2）在“打开VBA工程”对话框中选择想要加载的工程文件。在VBA管理器中只允许要开有效的dvb文件。也可以在命令提示行输入“vbaload”命令来加载工程文件，该命令同样弹出“打开VBA工程”对话框

5、。一个工程加载后，此工程要引用的其他所有工程也都会被自动加载。另外，AutoCAD再次启动时，会自动加载名称为acad.dvb的工程文件。每次加载工程时，都会显示启用或者禁用工程内程序代码的选项提示，作为防X病毒的措施，如图143所示。如果启用了带病毒的宏，程序中的病毒就会开始运行；如果禁用了该宏，工程仍然会被调入，但是该工程中的所有程序均不能执行。图143 工程加载提示14.1.3创建新工程新工程可以在任何时候创建，这时它是一个独立、完整的工程。用户可以将它保存到工程文件中，也可以将它嵌入到图形中。建立新的工程步骤如下：（1）“VBA管理器”对话框；（2）单击【新建】按钮，建立新工程。由于篇

6、幅有限卸载工程、嵌入工程、提取工程以及宏的相关知识自行学习。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编辑环境如图144所示，在VBA IDE中可以对所有已加载的工程进行编辑。图144 VBA IDE编

7、辑环境14.2.2工程元素每个工程都由许多不同的元素构成的。一个工程可以包含的元素有对象、窗体、标准模块、类模块和引用等。对象。对象元素是指VBA工程的程序代码将要存取的对象或者文件，例如，对AutoCAD VBA工程而言，ThisDrawing对象代表的是当前的AutoCAD图形；窗体。窗体元素是放置其他对象的容器，它常常用于创建工程的自定义对话框；标准模块。标准模块也称为程序代码模块，或者简称模块。程序代码模块中包含程序代码行和函数等；类模块。类模块元素是指所有包含本身的对象，这些对象被定义为类别；引用。引用元素是指对其他工程或者程序的使用参考。在VBA IDE编辑环境可以进行添加新元素、

8、导入元素和编辑元素，具体操作方法及步骤请自行学习。14.3 ActiveX基础基于AutoCAD的VBA应用程序就是高级程序语言的计算功能与AutoCAD的绘图功能结合，使有VBA程序语句来控制对AutoCAD图形的操作。要很好地使用VBA开发AutoCAD应用程序，就必须熟悉与要开发的应用程序类型相关的AutoCAD实体和对象集合、它们的属性和操作方法，以及都有哪些资源可以使用。引外还需要了解ActiveX相关语法知识。在本节学习过程中要注意理解ActiveX对象模型。14.3.1AutoCAD对象模型对象是AutoCAD ActiveX接口的主要单位，每一个开放的对象均代表一个AutoCA

9、D的明确组件，VBA应用程序就是通过AutoCAD的这些对象来控制AutoCAD图形的。AutoCAD ActiveX接口有以下五种类型的对象：AutoCAD图形实体。例如直线、椭圆、圆弧、文字与标注等；AutoCAD非图形实体。如线型、标注样式、文字样式、表格样式等；AutoCAD结构实体。如图层与图块等实体；AutoCAD视图实体。如视图和视口等；图形和AutoCAD VBA应用程序本身。AutoCAD的对象是分层的，这个分层结构就是应用程序能够操作的对象模型，其中根对象是Application对象，对对象的操作是依对象模型的分层关系进行逐级操作的，对象分层结构如图145所示。图145 对

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

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

12、AutoCAD图形的主要元素，它在AutoCAD中是可以看到的对象，如直线、圆、圆弧文字等。图147 Documents集合在VBA应用程序中创建这些图形对象，需要使用Add方法对象，例如创建一个新的直线对象，需要使用AddLine方法，创建一个圆弧对象，需要使用AddArc方法；在VBA应用程序中编辑这些图形对象，可以使用对象本身的方法和属性，每一个图形对象都有方法可以让应用程序执行大部分的AutoCAD编辑命令，例如Move、Erase和Mirror方法等。非图形对象属于AutoCAD图形的一部分，但是在绘图窗口中是不可见的，例如Layers、Linetypes和SelectionSets

13、对象等。在VBA应用程序中要创建这些非图形对象，需要使用上一级的Collection对象的Add方法。另外，每一个非图形对象均有特殊用途的方法和属性，都有可以设置及存取扩展实体数据和删除自己的方法。14.3.1.3Preferences、Plot和Utility对象Preferences集合是AutoCAD对象模型下的一个重要对象集合，它的层结构如图148所示。图148 Preferences集合Plot对象提供对AutoCAD中 “页面设置”对话框设置值的存取，应用程序还能够通过该对象以不同的方法来打印图形。Utility对象提供应用程序中使用的输入函数和转换函数，它在对象模型的层次结构如图

14、149所示。如图149 Preference、Plot和Utility对象14.3.2引用对象引用对象是开发程序必需的工作。可以直接引用对象，也可以先定义一个变量，然后通过变量来引用对象。如果是直接引用对象，需要把对象引入到方法调用语句中。例如，在模型空间中生成一条直线，需要首先定义直线的起点和终点坐标，然后调用AddLine方法来创建直线对象。Dim Spoint(0 To 2) As DoubleDim Epoint(0 To 2) As DoubleDim LineObj As AcadLineSpoint(0) = 0Spoint(1) = 0Spoint(2) = 0Epoint(0

15、) = 100Epoint(1) = 100Epoint(2) = 0Set LineObj = ThisDrawing.ModelSpace.AddLine(Spoint, Epoint)如果是通过变量来引用对象，需要把变量定义为所需的对象类型，然后将变量设置为适当的对象。它的格式一般为：Dim Variablename As ObjectTypeSet Variablename = Thisdrawing.14.3.3存取Application对象Thisdrawing对象提供了连接Document对象的功能，而根对象（Application对象）在对象模型结构层次中是位于Document对象之上的，因此如何存取根对象就成了一个主要问题。这时需要用Document对象的一个名为Application的属性，可以用该属性引用Application对象。14.3.4使用集合对象集合对象是事先已经定义好的对象，它包含类似于对象的所有引用，也就是对象的所有引用的上一级对象，具有Collection对象的集合如表141所示。表141 具有Collection对象的集合集合名称描述Documents当前AutoCAD中打开的全部图形ModelSpac