在电力系统的设计和管理过程中，电气接线图是一项比较重要的管理工作，传统的电气接线图通常采用AutoCAD来绘制，保存成纸介质或电子文件的形式。在单独进行管理图纸时，没有任何问题，而当开展电力系统的电子政务管理时，由于CAD图纸不便于共享，难于实现远程操作，显示出这种方式在现代化管理中的不足。

本文介绍一种利用混合编程的方法，将电子政务管理系统和AutoCAD绘制的图纸进行统一管理，使电气接线图的管理纳入电子政务系统中。本系统可以提高管理效率，降低图纸绘制人员的工作强度。

1系统构成

本系统的整体结构如图1所示。

图1系统整体结构示意图
在电子政务系统中，利用VB实现系统的前台管理，用SQLServer进行后台的数据管理。而自动绘图软件就是利用电子政务系统对电气接线图中的各个参数进行管理比较方便的特点，通过VB对电气接线图中元器件等的位置和大小比例等进行计算，并通过对AutoCAD进行调用，自动生成CAD图。用户可在生成的CAD图的基础上再进行相应的调整工作，从而降低电子政务系统中生产系统的管理难度和工程设计人员的工作强度，提高企业的整体工作效率。

2系统实现

下面以一个变电站主接线图为例，介绍自动绘图的实现过程。

变电站主接线图中，主要的设备有变压器、母线、TV、TA、补偿电容、避雷器、开关和断路器等，相关的指标包括进线方式、母线的分段形式、出线路的条数等。

要实现自动绘图功能，需要对上面所述的设备和相关的指标进行建模，并用函数来实现相应的绘图功能。绘图函数的参数包括绘制图形的大小比例、图形的位置坐标、线宽以及图形的自身参数等，其中图形自身的参数在函数内部实现，图形的大小比例、图形的位置坐标和线宽等参数由外部相应的子程序产生，以外部参数的形式传递给函数。

2.1电气接线图中设备的图形参数的提取

在本系统的设计中，将各主要设备按照国标符号进行抽象，将其抽象成线段、矩形、圆、圆弧以及特殊的可填充图形等，并产生标准的单元，以备在自动绘图过程中进行调用。每个需要绘制设备在程序中用一个相应的函数来实现。如采用Y/△接法的变压器，可以抽象为两个圆形、一个三角形和五条直线，如图2所示。


图2　变压器图形分解示意图
在实现的过程中，还需要系统按照所生成的图的大小，传递给函数一个尺寸比例参数，使绘制的设备图形按所需的比例进行放大。

2.2电气接线图中设备位置的确定

在自动绘图过程中，需要确定各个设备的所在位置，各个设备的位置参数将作为图形绘制的参数传递给绘图函数。

各设备位置的确定，取决于系统图中图形尺寸、设备的多少以及设备的连接关系等因素。如在变电站的电气主接线图中，系统的进线方式、出线路的条数、是否进行补偿等都会影响图中设备的分布。本系统中采用先结构后器件的思路进行整体结构布局的设计，先确定进线方式，再确定主变形式，最后确定出线路的条数，采用上面进线、下面出线，进线侧设备占整幅图的1/3、主变及高低压母线占1/3、出线侧占1/3的比例进行设计。各设备再按相应的比例进行布局，力求图形界面比例适当，结构合理。

不同的电气图，要求的布局方案不近相同，在设计本系统时，分别给予了考虑，采用了不同的模型方案。在绘图完成后，设计人员还可在AutoCAD环境下，对绘制的图形进行微调，使其更加美观和实用。

2.3VB对AutoCAD的调用

可以选择在VB的LoadForm或任何其他事件中建立CAD物件，下面示例是在LoadForm时建立CAD物件，此时须将窗体的Visible属性设为TURE，否则会出现硬盘在工作，而显示器上却没有显示。

PrivateSubForm_Load()

　　OnErrorResumeNext

　　''如果目前系统中已执行CAD，则取得已执行CAD物件

SetacadApp=GetObject("AutoCAD.Application")

IfErrThen

　　Err.Clear

''如果目前系统尚未执行CAD，则建立CAD物件

SetacadApp=CreateObject("AutoCAD.Application")

EndIf

acadApp.Visible=True''将物件Visible属性设为trueEndSub

当建立acadApp物件后，就可以使用物件所提供的方法，进行CAD图的绘制了。下面范例就是利用AddLinemethod来画一条直线，其坐标为（10，10）到（10，100）。

PrivateSubDrawLine_Click()

Dimp1(0To2)AsDouble

Dimp2(0To2)AsDouble

''设定点坐标

p1(0)=10#

p1(1)=10#

p1(2)=0#

p2(0)=100#

p2(1)=10#

p2(2)=0#

SetlineObj=acadApp.ActiveDocument.ModelSpace.AddLine(p1,p2)

acadApp.Update

EndSub

其它图形元素的绘制与直线的绘制方法相同。

3结束语

本设计能够实现电力企业电气接线图的自动生成，系统通过调用电子政务系统的系统信息即可生成CAD图纸，省却了设计人员的绘图工作，降低了工作强度，提高了工作效率。电子政务的使用人员可以方便地根据需要生成相应的电子图纸，提高了管理效率，可灵活、高效地实现电气接线图的自动生成和实时的查询与系统更新工作。

本系统具有运行可靠、使用简单、易于维护的特点。