Excel VBA和AutoCAD VBA在电力变压器设计中的应用

1、Excel VBA和AutoCAD VBA在电力变压器方案中的应用摘要：文章先容了以exel2022、autad2022为平台，通过vba步伐主动完成电力变压器的布局方案的应用要领。关键词：vb6.0；exelvba；autadvba；电力变压器；布局方案；应用中图分类号：tp391.72文献标识码：a文章编号：1006-8937202220-0036-02比年来，随着变压器产物布局的不继革新，以及企业间竞争的日趋猛烈，传统的产物方案要领已经很难满意企业当前保存和生长的必要。企业为了能在市场竞争中处于有利位置，实现产物方案数字化、主动化势在必行。盘算机帮助技能ad/app/a/erp等在企业产

2、物开拓和消费历程中日益得到普及的应用，宽大方案职员对ad体系的成效要求也越来越高，他们已经不再满意于利用ad体系到达“甩图板的目的，而是盼望从底子上减轻大量简朴、重复和啰嗦的事情量，使本身能会合精神于那些富于制造力的高条理创新方案运动中去。为例便于明白，起首先容一下vbavisualbasifrappliatin。vba将autad、exel与visualbasi的成效结合在一起，可以或许快速地创立出切适用户要求的步伐，大大进步用户的事情服从。对付快速开拓小范围的应用步伐更是一种最好的选择。autadvba的开拓利用autadativex技能，这种技能利用户可以或许从autad的内部或外部以编

3、程情势操纵autad。在autad中利用ativex接口具有两个长处：其一，更多的编程情况可以编程拜候autad。其二，与其他inds应用步伐比方：irsftffieexel、rd共享数据变得越发轻易。1应用内容电力变压器方案包罗电磁盘算和布局方案。如今，绝大多数方案职员都利用irsftffieexel2022和autdeskautad2022，它们强盛的vba二次开拓本领成为方案职员的最抱负东西。在现实的电力变压器布局方案历程中，偶然盼望可以或许将autad中的一些图形信息提取出来天生一个exel文件，以便打印和办理；偶然又必要从一个exel文件中读取数据，用来绘制图形。为此，必需实现aut

4、ad与exel间的通讯。irsftffieexel2022和autdeskautad2022中都集成了基于vb6.0的vba开拓东西，为开拓autad应用步伐，实现autad与exel的数据互换提供了一个强盛、便利、快捷的本领。在本文中拔取了电力变压器铁心截面布局方案来详述exelvba和autadvba在电力变压器布局方案中的应用。2实例阐发应用步伐的开拓一样平常包罗参数简直定、创立有关库表、步伐的体例和调试等几个阶段。详细历程如下：在irsftffieexel2022中创立铁心盘算参数表格，如图1所示。在“方案形式下，双击ativex控件“主动自成铁心截面图，进入irsftffieexel

5、vba编程界面，单击“东西选项里的“引用，在“autad2022typelibrary前面勾眩实现autad与exel间通过vba的通讯。按照我公司变压器布局方案原那么，变压器铁心的布局情势为接纳横向五级途径、45歪接缝情势。必要确定了铁心直径，窗高，中央距，别的尺寸：如片长、片宽、叠厚、封片及绑扎带的尺寸等，这一步我们通过对exel2022举行添加函数举行主动盘算。本文中vba步伐体例的重要事情是：从exel表格中猎取相干尺寸，如铁心直径、窗高、中央距、片长、片宽、叠厚等底子尺寸，插入典范子图、标注尺寸、绘制铁心截面图、填写各级铁心数据和明细表等。在exelvba编程界面里编程，代码如下：p

6、rivatesubandbuttn1_lik()dipt(0t2)asdubledip0(0t2)asdubledihasintegerdiasintegerdilasintegerseth=ells(i,32).valueset=ells(i,31).valuesetl=ells(i,30).value表现exel中第i列32行的值即是h窗高表现exel中第i列31行的值即是h中央距表现exel中第i列30行的值即是l最大片宽下面的代码用于毗连autad，留意：autad软件必需翻开而且已经新建了一个画图界面，不然当单击“主动自成铁心截面图时将出现错误。diplineaasaadlplyli

7、nediplinebasaadlplylinedidirtateasaaddirtateddithappasaadappliatindidasaadduentditextasaadtextsetthapp=getbjet(,autad.appliatin)setd=thapp.ativeduentfri=58t18step-2pt(1)=(i-18)*15.085pt(0)=0pt(0)=-100pt(0)=-200.下面的代码用于从文件名为“ydesign.dg的文件中拷取典范子件图。dgnae=g:tankydesign.dg返回文件名blknae=dntr返回块名thisdraing.setvariableltsale,1bjdbx.pendgnae翻开图形setblkbj(0)=bjdbx.blks(blknae)bjdbx.pybjetsblkbj,thisdraing.delspae复制东西.endsub3步伐运行与总结步伐运行在autad情况下，天生如图2所示的铁心截面图。由此可见，通过实现autad与exel间vba的通讯，方案职员可免去大量的重复方案事情，借助于exel强盛的盘算成效和autad的画图成效，可便利快速地方案出布局图纸。由于大多数方案职员认识vb6.0、exel和autad，很轻易编写出适于本身产物的应用步伐，