摘 要：文章介绍了以excel 2003、autocad 2008为平台，通过vba程序自动完成电力变压器的结构设计的应用方法。
关键词：vb6.0；excel vba；autocad vba；电力变压器；结构设计；应用
中图分类号：tp391.72 文献标识码：a 文章编号：1006-8937（2012）20-0036-02
近年来，随着变压器产品结构的不继改进，以及企业间竞争的日趋激烈，传统的产品设计方法已经很难满足企业当前生存和发展的需要。企业为了能在市场竞争中处于有利位置，实现产品设计数字化、自动化势在必行。计算机辅助技术（cad/capp/cam/erp等）在企业产品开发和生产过程中日益得到广泛的应用，广大设计人员对cad系统的功能要求也越来越高，他们已经不再满足于利用cad系统达到“甩图板”的目的，而是希望从根本上减轻大量简单、重复和烦琐的工作量，使自己能集中精力于那些富于创造力的高层次创新设计活动中去。
为例便于理解，首先介绍一下vba（visual basic for application）。vba将autocad、excel与visual basic的功能结合在一起，能够快速地创建出符合用户要求的程序，大大提高用户的工作效率。对于快速开发小规模的应用程序更是一种最好的选择。autocad vba的开发使用autocad activex技术，这种技术使用户能够从autocad的内部或外部以编程形式操作autocad。在autocad中使用activex接口具有两个优点：其一，更多的编程环境可以编程访问autocad。WWw.11665.coM其二，与其他windows应用程序（例如：microsoft office excel、word）共享数据变得更加容易。
1 应用内容
电力变压器设计包括电磁计算和结构设计。目前，绝大多数设计人员都使用microsoft office excel 2003和autodesk autocad 2008，它们强大的vba二次开发能力成为设计人员的最理想工具。在实际的电力变压器结构设计过程中，有时希望能够将autocad中的一些图形信息提取出来生成一个excel文件，以便打印和管理；有时又需要从一个excel文件中读取数据，用来绘制图形。为此，必须实现autocad与excel间的通信。microsoft office excel 2003和autodesk autocad 2008中都集成了基于vb6.0的vba开发工具，为开发autocad应用程序，实现autocad与excel的数据交换提供了一个强大、方便、快捷的手段。
在本文中选取了电力变压器铁心截面结构设计来详述excel vba和autocad vba在电力变压器结构设计中的应用。
2 实例分析
应用程序的开发一般包括参数的确定、建立有关库表、程序的编制和调试等几个阶段。具体过程如下：
①在microsoft office excel 2003 中建立铁心计算参数表格，如图1所示。
②在“设计模式”下，双击activex控件“自动自成铁心截面图”，进入microsoft office excel vba编程界面，单击“工具”选项里的“引用”，在“autocad 2008 type library”前面勾选。实现autocad与excel间通过vba的通信。
根据我公司变压器结构设计原则，变压器铁心的结构形式为采用横向五级阶梯、45°斜接缝形式。需要确定了铁心直径，窗高，中心距，其它尺寸：如片长、片宽、叠厚、封片及绑扎带的尺寸等，这一步我们通过对excel 2003进行添加函数进行自动计算。
本文中vba程序编制的主要工作是：从excel表格中获取相关尺寸，如铁心直径、窗高、中心距、片长、片宽、叠厚等基础尺寸，插入典型子图、标注尺寸、绘制铁心截面图、填写各级铁心数据和明细表等。在excel vba编程界面里编程，代码如下：
const pi = 3.14159265358979
private sub commandbutton1_click()
dim pt(0 to 2) as double
dim p0(0 to 2) as double
dim ho as integer
dim mo as integer
dim lo as integer
set ho = cells(i, 32).value
set mo = cells(i, 31).value
set lo = cells(i, 30).value
表示excel中第i列32行的值等于ho（窗高）
表示excel中第i列31行的值等于ho（中心距）
表示excel中第i列30行的值等于lo（最大片宽）
下面的代码用于连接autocad，注意：autocad软件必须打开并且已经新建了一个绘图界面，否则当单击“自动自成铁心截面图”时将出现错误。
dim plinea as acadlwpolyline
dim plineb as acadlwpolyline
dim dimrotate as acaddimrotated
dim thapp as acadapplication
dim doc as acaddocument
dim text as acadtext
set thapp = getobject(, "autocad.application")
set doc = thapp.activedocument
for i=58 to 18 step -2
pt(1)=(i - 18) *15.085
pt(0)=0
call doc.modelspace.addtext("4x"&round(ho,pt, 21)
pt(0)=-100
call doc.modelspace.addtext("4x"&round(mo, 1), pt, 21)
pt(0)=-200
call doc.modelspace.addtext(round(lo,1), pt, 21)
.
下面的代码用于从文件名为“mydesign.dwg”的文件中拷取典型子件图。
dwgname = "g:\tank\mydesign.dwg" '返回文件名
blkname = "downtr" '返回块名
thisdrawing.setvariable "ltscale", 1
objdbx.open dwgname '打开图形
set blkobj(0) = objdbx.blocks(blkname)
objdbx.copyobjects blkobj, thisdrawing.modelspace '复制对象
.
end sub
3 程序运行与总结
程序运行在autocad环境下，生成如图2所示的铁心截面图。
由此可见，通过实现autocad与excel间vba的通信，设计人员可免除大量的重复设计工作，借助于excel强大的计算功能和autocad的绘图功能，可方便快速地设计出结构图纸。因为大多数设计人员熟悉vb6.0、excel和autocad，很容易编写出适于自己产品的应用程序，实现产品图纸的参数化。
参考文献：
[1] 路长柏,朱英浩,张怀灵,等.电力变压器计算[m].哈尔滨:黑龙江科学技术出版社,1990.
[2] 谢毓城.电力变压器手册[m].北京:机械工业出版社,2003.
[3] 张帆.autocad vba开发精彩实例教程[m].北京:清华大学出版社,2004.
