赵凯

摘要：在电气工程设计中利用VBA，可以帮助设计人员完成部分繁琐、重复、机械的工作，极大的节省劳动力并提高正确率。

关键词：电气设计;AutoCAD;Excel;VBA

Abstract： Using VBA in electrical engineering design can help designers’ complete part of the tedious， repetitive， and mechanical work， which greatly saves labor and improves accuracy.

Keywords： electrical design; AutoCAD; Excel; VBA

引言

在电气设计中，最常使用的办公软件就是AutoCAD和Office系列，设计人员经常需要将用电设备的数据录入Excel表格中，利用Excel完成数据的计算和处理，再根据Excel表格处理好的数据，在AutoCAD中绘制图形的工作，在数据量较小的工程中，用手工的方式就可以完成，但在大工程中，数百个设备的上千条数据，若还是用手工的方式处理，效率会非常低下，而且错误率会很高。本文就根据电气设计中的实际问题，利用VBA来实现AutoCAD和Excel之间数据的互相操作。

一、问题研究

现实中，经常需要将用电设备录入到AutoCAD中的增强属性块中，将每个设备做成一个CAD图块，再根据用电设备的不同信息来绘制低压开关柜排列图，其中在AutoCAD中录入设备数据就是将Excel表格中的设备数据复制粘贴到AutoCAD中，这种重复、机械的工作就可以交给VBA来完成。

直接利用Excel VBA代码，在含有全部用电设备的Excel表内生成新的低压柜抽屉表，再用Excel VBA代码新建AutoCAD文件，并在该文件内绘制所有用电设备的图块。该方式所有工作都是在Excel内完成，只需要建立好模板，不同项目只需要适当改变图块模板的Excel数据即可，程序的可移植性高，人工干预较少，相对简便。

二、Excel VBA生成图块

该方法只需要在excel内完成代码，前期需要用Excel VBA代码生成低压柜抽屉表，并同时在Excel内列出所有抽屉的模板数据（图1），运行代码即可生成抽屉模板和所有用电设备的图块，部分代码如下：

Call CreatBlock（AcadApp， AcadDocs， AcadDoc）

For i = 1 To NumOfUnits

UnitPoint（0） = UnitPoint（0） + 20000

nsertPoint（0） = InsertPoint（0） + 20000

InsertPoint（1） = 0

Set Unit = AcadDoc.ModelSpace.AddText（Range（“项目数据.单元号”）（i， 1）， UnitPoint， 3500）

UnitNum = Range（“项目数据.单元号”）（i， 1）

Call InsertBlock（AcadApp， AcadDocs， AcadDoc， UnitNum， InsertPoint）

For i = 1 To NumOfEquip

If CStr（Range（“生成抽屉.所属单元”）（i， 1）） = UnitNum Then

InsertPoint（1） = InsertPoint（1） - 10 * Range（“生成抽屉.抽屉高”）（i， 1）

DrawerNum = 1

EquipNum = Range（“生成抽屉.设備位号”）（i， 1）

EquipName = Range（“生成抽屉.设备名称”）（i， 1）

If Range（“生成抽屉.额定电压”）（i， 1） < 380 Then

DrawerPower = Range（“生成抽屉.开关容量”）（i， 1） & Range（“生成抽屉.容量单位”）（i， 1） & “（AC” & Range（“生成抽屉.额定电压”）（i， 1） & “V）” ‘小于380V时，特别标注

Else

DrawerPower = Range（“生成抽屉.开关容量”）（i， 1） & Range（“生成抽屉.容量单位”）（i， 1）

End If

CircuitNum = Range（“生成抽屉.回路编号”）（i， 1）

DrawerCoding = Range（“生成抽屉.抽屉编码”）（i， 1）

Set InsertBlock = AcadDoc.ModelSpace.InsertBlock（InsertPoint， DrawerCoding， 1， 1， 1， 0）

InsertBlockAtt = InsertBlock.GetAttributes

End If

Next

最终的效果如图2所示，对于较大项目，设备部数量多的情况，利用VBA可以极大的提高效率，节省劳动力和时间，同时也提高了输入的准确率。

三、结束语

在实际电气设计中，都会遇到上述类似的情况，相对比于手动录入、人工校对大量的数量，利用AutoCAD和Excel自带的Visual Basic编辑器，编写相应的代码，类处理这类问题，无疑会大大的提高我们的工作效率和设计文件的质量。VBA编程语言小巧、易读性强，很适合工科专业、具有一定编程基础的设计人员学习和掌握。

参考文献：

[1]【美】Marion Cottingham著，孔祥丰 译，AutoCAD VBA从入门到精通，北京：电子工业出版社，2001;

[2]罗刚君，Excel VBA程序开发自学宝典（第二版），北京：电子工业出版社，2011;

[3]Excel Hone，别怕，Excel VBA其实很简单，北京：人民邮电出版社，2012;