电力系统设计软件：AutoCAD Electrical二次开发_6. ActiveX自动化接口.docx

PAGE1

PAGE1

6.ActiveX自动化接口

6.1ActiveX自动化接口概述

ActiveX自动化接口是AutoCADElectrical提供的一种强大的编程接口，允许开发者通过编程语言（如VBA、C#、C++等）来控制AutoCADElectrical的功能和操作。通过ActiveX自动化接口，开发者可以实现自定义的功能、自动化任务、数据交换等，极大地提高了设计效率和灵活性。

AutoCADElectrical的ActiveX自动化接口基于COM（ComponentObjectModel）技术，通过COM对象模型，开发者可以访问和操作AutoCADElectrical的各种对象和属性。这些对象包括图形对象、图层、标注、块等，以及AutoCADElectrical特有的电力系统设计对象，如导线、连接点、设备等。

6.1.1ActiveX对象模型

AutoCADElectrical的ActiveX对象模型层次结构如下：

Application：代表AutoCADElectrical应用程序，是所有操作的起点。

Document：代表当前打开的图形文档。

ModelSpace：代表模型空间，可以添加和操作图形对象。

PaperSpace：代表图纸空间，可以添加和操作图纸对象。

Layer：代表图层，可以控制图形对象的显示和编辑。

Block：代表块，可以创建和插入复用图形。

Wire：代表导线，可以创建和编辑导线对象。

ConnectionPoint：代表连接点，可以创建和编辑连接点对象。

Device：代表电力设备，可以创建和编辑设备对象。

6.1.2ActiveX对象的属性和方法

每个ActiveX对象都有其特定的属性和方法，通过这些属性和方法，开发者可以获取对象的信息、修改对象的属性或执行特定的操作。例如：

Application对象：

属性：

Name：返回应用程序的名称。

Version：返回应用程序的版本号。

方法：

Quit：关闭AutoCADElectrical应用程序。

OpenDocument：打开一个新的图形文档。

Document对象：

属性：

Name：返回当前文档的名称。

Path：返回当前文档的路径。

方法：

Save：保存当前文档。

Close：关闭当前文档。

ModelSpace对象：

属性：

Objects：返回模型空间中的所有对象集合。

方法：

AddLine：在模型空间中添加一条直线。

AddCircle：在模型空间中添加一个圆。

Layer对象：

属性：

Name：返回图层的名称。

Color：返回图层的颜色。

方法：

SetCurrent：将图层设置为当前图层。

Create：创建一个新的图层。

Block对象：

属性：

Name：返回块的名称。

BasePoint：返回块的基点。

方法：

Insert：插入块到指定位置。

Explode：分解块。

Wire对象：

属性：

StartPoint：返回导线的起始点。

EndPoint：返回导线的结束点。

方法：

Create：创建一条导线。

Connect：连接导线。

ConnectionPoint对象：

属性：

Position：返回连接点的位置。

Type：返回连接点的类型。

方法：

Create：创建一个连接点。

Move：移动连接点。

Device对象：

属性：

Name：返回设备的名称。

Type：返回设备的类型。

方法：

Create：创建一个设备。

Update：更新设备的属性。

6.2使用VBA进行二次开发

VisualBasicforApplications(VBA)是AutoCADElectrical中常用的二次开发语言，通过VBA可以轻松地调用AutoCADElectrical的ActiveX自动化接口，实现复杂的设计任务自动化。

6.2.1创建和引用ActiveX对象

在VBA中，首先需要创建和引用AutoCADElectrical的ActiveX对象。以下是一个简单的示例，展示如何创建一个Application对象并打开一个文档：

创建一个Application对象

DimappAsObject

Setapp=CreateObject(AutoCAD.Application)

打开一个文档

DimdocAsObject

Setdoc=app.Documents.Open(C:\path\to\your\document.dwg)

6.2.2操作模型空间

通过ModelSpace对象，可以在模型空间中添加和操作图形对象。以下是一个示例，展示如何在模型空间中添加一条直线：

创建一个ModelSp