设备铭牌

第38卷数字技术与应用

122

0引言

AutoCAD是现在使用人数最多的CAD软件,其交互菜单和命

令行的设计使得很多非计算机专业人员也能很快入门这个软件,从

而提高工作效率。在我们平时的工作中,每个行业都有其特殊的一

些重复工作,这时就可以利用AutoCAD的二次开发,快速而准确的

完成这些重复工作。

1准备数据与图形模板

先按照Excel表格中的字段名称A列序号,B列为设备名称,C列

为规格型号,D列为制造厂家,E列为出厂日期,F列为出厂编号。在

CAD中绘制一个示例模板,以为之后的批量制作提供参考[1-3]。表格

中共有5个制作铭牌使用的相关信息,即设备名称,规格型号,制造

厂家,出厂日期和出厂编号,据此画出图1所示的模板。绘制此模板

需要注意,模板边框是多段线,方便之后复制时设置选择条件。

2编写程序

2.1编写Excel与AutoCAD连接程序,获取铭牌内容

激活要与之通信的Excel应用程序,通过定位获取表格的最后

行数,将表中数据放入数组中。主要程序如下:

SetExcelApp=CreateObject("ation")

lj=nFileName_

(FileFilter:="制作铭牌的数据,*.xlsx;*.xlsm;*.xlsb;

*.xls")

(lj)

e=1

Updating=Fal

Setexcelsheet=("数据

表格")

endA=

arrex=("数据表格").

range("A2:F"&endA)

2.2过滤目标多段线

由于一个图纸中可能会出现多种规格的铭牌,所以针对目标铭

牌模板,可以建立一个选择集,由用户在屏幕框选,目标是获取其选

择内容中多段线,同时获取到该多段线的外边框最大最小坐标。主

要程序如下:

SetSSetbh=("K_SSET")

fType1(0)=0:fData1(0)="LWPOLYLINE"

OnScreenfType1,fData1

SetEnt=(0)

ndingBoxminExt,maxExt

2.3批量绘制铭牌

利用获取到数组中的数据,结合步骤1中提供的铭牌模板,由用

户指定排图的起点坐标从而确定排图位置,实现将获取的数据批量

绘制到图形文件中。在本例中设置的参数为图纸间隔是20,插入文

件距离底边是10,每行间距都是10,文字高度是3,写文字的框宽度

是55。需要注意的是Y向是间距加文字高度。主要程序如下:

Fori=1ToUBound(arrex)

Sbmc=arrex(i,2)’'设备名称

Ggxh=arrex(i,3)'规格型号

Zzcj=arrex(i,4)'制造厂家

Ccrq=arrex(i,5)'出厂日期

Ccbh=arrex(i,6)'出厂编号

ForEachst1EntityInSSetyd

SetCopyEntity=()

point1(0)=minExt(0):point1(1)=minExt(1)

Ifi=1Then

point2(0)=ptget(0):point2(1)=ptget(1)

EndIf

int1,point2

Next

根据模板的文字高度与间距设置插入点的横向与纵向坐标。需

要将其x向,y向,z向的坐标全部写出,其中y向坐标需要根据文字高

收稿日期:2020-01-03

作者简介:张培媛(1992—),女,山西吕梁人,本科,助理工程师,研究方向:工艺与CAD二次开发、Excel二次开发。

基于AutoCAD二次开发批量绘制设备铭牌

张培媛1秦少东2

(1.忠旺(辽阳)铝模板制造有限公司,辽宁辽阳111000;2.辽宁忠旺集团有限公司,辽宁辽阳111000)

摘要:针对工作实际中批量制作设备铭牌的需要,采用Excel与AutoCAD相结合的方法,利用VisualBasic将两个软件建立连接。Excel表

格中列出需要制作铭牌的各项信息,AutoCAD利VisualBasic编写的程序将用Excel中内容放在指定的位置,从而实现批量制作铭牌。

关键词:批量制作铭牌；AutoCAD；VisualBasic；二次开发

中图分类号:TP391.7文献标识码:A文章编号:1007-9416(2020)02-0122-02

DOI:10.19695/12-1369.2020.02.68

设计开发

图1铭牌模板

第38卷第2期

2020年2月

数字技术与应用

DigitalTechnology&Application

Vol.38No.2

February2020

Copyright©博看网htsRerved.

2020年第2期

123

度和间距进行递减,本例中递减量是10。以设备名称与型号为例,主

要程序如下:

Sbmc_inrtPt(0)=point2(0)+30

Sbmc_inrtPt(1)=point2(1)+50

Sbmc_inrtPt(2)=0

Ggxh_inrtPt(0)=point2(0)+30

Ggxh_inrtPt(1)=point2(1)+40

Ggxh_inrtPt(2)=0

定好坐标后,可以插入文字,以设备名称为例,程序如下:

SettextObj=xt

(Sbmc_inrtPt,55,Sbmc)

3绘制结果确认

核对批量绘制的结果,若是第一次运行程序需要仔细核对五种

信息对应的位置,字体的大小与间距,每个铭牌之间的间距,排列的

总长度是否超出要求的尺寸以及铭牌上内容的书写是否美观等[4]。

如果有大批量的铭牌需要绘制,可以在第2.3步设置横坐标的程序

部分按需要进行改动,例如每25个位于一行。

4结语

上述代码除了对铭牌的批量绘制,还可用于其他类似用表格数

据批量绘制CAD图形的情况。调试程序到符合自己的工作需要后,

可以将文件存储为.dvb文件,别的电脑使用时在命令行输入

vbaload将此文件加载后,输入vbarun,在出现的界面中选择本程

序,然后运行即可。通过对AutoCAD的二次开发,可以高效准确的完

成平时工作中的批量重复工作,提高人员的工作效率。

参考文献

[1]张帆,郑立楷,卢择临,等.AutoCADVBA二次开发教程[M].北京:

清华大学出版社,2006.

[2]张帆,郑立楷,王华杰.AutoCADVBA开发精彩实例教程[M].北京:

清华大学出版社,2004.

[3]ExcelHome.别怕,ExcelVBA其实很简单[M].北京:人民邮电出

版社,2012.

[4]罗刚君.ExcelVBA程序开发自学宝典(第2版)[M].北京:电子工

业出版社,2011.

BatchDrawingEquipmentNameplatesBadonAutoCADSecondaryDevelopment

ZHANGPei-yuan1,QINShao-dong2

(ang(Liaoyang)AluminumFormworkManufacturingCo.,Ltd.,LiaoyangLiaoning111000;

ngZhongwangGroupCo.,Ltd.,LiaoyangLiaoning111000)

Abstract:Tomeettheneedsofbatchproductionofequipmentnameplatesinpractice,themethodofcombiningExcelandAutoCADisud,and

mswritteninAutoCADand

VisualBasicwilluthecontentsofExceltobeplacedindesignatedlocations,soastomakebatchesofnameplates.

Keywords:nameplateproductioninbatches;AutoCAD;VisualBasic;condarydevelopment

备和资料的采集,要重点采集城市地图的海量数据,利用多种分辨

率遥感影像数据进行城市规划等,并对地形数据进行高质量的影像

正射校正,实现专题地图数据的三维可视化、分类处理、分级处理。

(2)数据分析。基于GIS的数字化专题地图数据分析要进行投影格式

的转换,提出制图要素,进行制图数据的有效编辑,如:图幅拼接、数

据编辑、数据现状更新等。(3)专题地图设计。要进行地理底图的制作

和专题图的制作,进行专题信息的存贮、表达、传递、提取,并进行地

图的整饰,使之具有良好的表现力和视觉阅读效果。(4)地图输出。输

出用于打印的数据格式和用于GIS系统的地图数据[5]。

4结语

综上所述,数字化专题地图采用GIS软件进行设计和制作,利用

计算机进行数字化专题地图的专题显示、查询、分析和编辑,反映不

RearchontheDesignandProductionofDigitalThematicMap

DOUHua-jun

(TheChinePeople'sLiberationArmyUnit61243,UrumqiXinjiang830006)

Abstract:Thetraditionalmanualmethodofmakingmapsshowslag,inthecontextofthecontinuousadvancementofbrand-newinformation

engineering,the"digitallandproject"isgraduallyimplementedasalandmanagementinformationproject,Thisarticlestudiesandanalyzesthedesign

andproductionofdigitalthematicmapsusingGIStechnologyandmethods.

Keywords:digitalthematicmap;design;production

同现象的空间几何、属性特征,实现不同图层间的叠加、数据更新、

共享和调用,极大地提高专题地图设计制作的精准度和效率。

参考文献

[1]任若菡,豁辉.基于数据库的专题地图集编制问题分析[J].民营

科技,2018(04):151.

[2]严薇,张佩英,阚映红.基于AI环境下专题地图的编辑与制作[J].

测绘与空间地理信息,2011(01):238-241.

[3]王磊,续玉萍,严薇.基于Microstation的专题地图编辑与出版[J].

测绘与空间地理信息,2013(02):176-178+180.

[4]吴涛,戚铭尧,祝国瑞.网络数字专题地图的制作与发布研究[J].

测绘科学技术学报,2006(04):261-264.

[5]刘利红,杜静,付粉娥.浅谈专题地图的编辑与制作[J].内蒙古科

技与经济,2011(15):104-105+107.

······上接第121页

张培媛秦少东:基于AutoCAD二次开发批量绘制设备铭牌

Copyright©博看网htsRerved.