《VBA在AutoCAD和Excel中的应用》
本文是autocad和电子表格类论文范文素材与VBA方面硕士毕业论文范文.
摘 要：在电气工程设计中利用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 ses 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;
综上而言,本文是一篇可用于本科与硕士autocad和电子表格相关的毕业论文开题报告写作参考和有关优秀学术职称论文参考文献资料，免费教你怎么写VBA方面论文.
autocad和电子表格引用文献:
[1] VBA论文范文素材 关于autocad和电子表格学年毕业论文范文2万字
[2] 电子表格论文如何怎么撰写 关于电子表格相关论文范文检索2500字
[3] 软件和电子表格论文如何怎么撰写 软件和电子表格开题报告范文2000字
