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

激光切割烟雾净化器

122

0 引言

AutoCAD是现在使用人数最多的CAD软件，其交互菜单和命令行的设计使得很多非计算机专业人员也能很快入门这个软件，从而提高工作效率。在我们平时的工作中，每个行业都有其特殊的一些重复工作，这时就可以利用AutoCAD的二次开发，快速而准确的完成这些重复工作。

1 准备数据与图形模板

先按照Excel表格中的字段名称A列序号,B列为设备名称,C列为规格型号,D列为制造厂家,E列为出厂日期,F列为出厂编号。在CAD中绘制一个示例模板，以为之后的批量制作提供参考[1-3]。表格中共有5个制作铭牌使用的相关信息，即设备名称，规格型号，制造厂家，出厂日期和出厂编号，据此画出图1所示的模板。绘制此模板需要注意，模板边框是多段线，方便之后复制时设置选择条件。

2 编写程序

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

激活要与之通信的Excel应用程序，通过定位获取表格的最后行数，将表中数据放入数组中。主要程序如下:

Set ExcelApp = CreateObject("excel.application")lj = ExcelApp.Application.GetOpenFileName _

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

ExcelApp.Workbooks.Open (lj)ExcelApp.Visible = 1

ExcelApp.ScreenUpdating = False

Set excelsheet = ExcelApp.ActiveWorkbook.sheets("数据

表格")

endA = excelsheet.usedrange.Rows.Count

10658154

arrex = ExcelApp.ActiveWorkbook.sheets("数据表格").range("A2:F" & endA)

2.2 过滤目标多段线

由于一个图纸中可能会出现多种规格的铭牌，所以针对目标铭牌模板，可以建立一个选择集，由用户在屏幕框选，目标是获取其选择内容中多段线，同时获取到该多段线的外边框最大最小坐标。主要程序如下:

Set SSetbh = ThisDrawing.SelectionSets.Add("K_SSET")fType1(0) = 0: fData1(0) = "LWPOLYLINE"SSetbh.SelectOnScreen fType1, fData1Set Ent = SSetbh.Item(0)

Ent.GetBoundingBox minExt, maxExt 2.3 批量绘制铭牌

利用获取到数组中的数据，结合步骤1中提供的铭牌模板，由用户指定排图的起点坐标从而确定排图位置，实现将获取的数据批量绘制到图形文件中。在本例中设置的参数为图纸间隔是20，插入文件距离底边是10，每行间距都是10，文字高度是3，写文字的框宽度是55。需要注意的是Y向是间距加文字高度。主要程序如下:

For i = 1 To UBound(arrex)Sbmc = arrex(i, 2)’ '设备名称Ggxh = arrex(i, 3) '规格型号Zzcj = arrex(i, 4) '制造厂家Ccrq = arrex(i, 5) '出厂日期Ccbh = arrex(i, 6) '出厂编号For Each sset1Entity In SSetyd

Set CopyEntity = sset1Entity.Copy()

HDPE多孔加筋缠绕波纹管point1(0) = minExt(0): point1(1) = minExt(1)If i = 1 Then

nfj金属防静电不发火point2(0) = ptget(0): point2(1) = ptget(1)End If

CopyEntity.Move point1, point2Next

根据模板的文字高度与间距设置插入点的横向与纵向坐标。需要将其x向,y向,z向的坐标全部写出，其中y向坐标需要根据文字高

收稿日期:2020-01-03

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

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

张培媛1 秦少东2

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

摘要：针对工作实际中批量制作设备铭牌的需要，采用Excel与AutoCAD相结合的方法，利用Visual Basic将两个软件建立连接。Excel表格中列出需要制作铭牌的各项信息,AutoCAD利Visual Basic编写的程序将用Excel中内容放在指定的位置，从而实现批量制作铭牌。

关键词：批量制作铭牌；AutoCAD；Visual Basic；二次开发中图分类号:TP391.7文献标识码:A 文章编号:1007-9416(2020)02-0122-02

DOI:10.19695/jki12-1369.2020.02.68

设计开发

图1 铭牌模板

2020年第 2 期

123

度和间距进行递减，本例中递减量是10。以设备名称与型号为例，主要程序如下:

Sbmc_insertPt(0) = point2(0) + 30Sbmc_insertPt(1) = point2(1) + 50Sbmc_insertPt(2) = 0

Ggxh_insertPt(0) = point2(0) + 30Ggxh_insertPt(1) = point2(1) + 40Ggxh_insertPt(2) = 0

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

Set textObj = ThisDrawing.ModelSpace.AddMText (Sbmc_insertPt, 55, Sbmc)

3 绘制结果确认

kkaaa

核对批量绘制的结果，若是第一次运行程序需要仔细核对五种信息对应的位置，字体的大小与间距，每个铭牌之间的间距，排列的总长度是否超出要求的尺寸以及铭牌上内容的书写是否美观等[4]。如果有大批量的铭牌需要绘制，可以在第2.3步设置横坐标的程序部分按需要进行改动，例如每25个位于一行。

4 结语

上述代码除了对铭牌的批量绘制，还可用于其他类似用表格数据批量绘制CAD图形的情况。调试程序到符合自己的工作需要后，可以将文件存储为.d v b 文件，别的电脑使用时在命令行输入vbaload将此文件加载后，输入vbarun，在出现的界面中选择本程序，然后运行即可。通过对AutoCAD的二次开发，可以高效准确的完成平时工作中的批量重复工作，提高人员的工作效率。参考文献

[1] 张帆，郑立楷，卢择临，等.AutoCAD VBA 二次开发教程[M].北京：清华大学出版社,2006.

反光道钉

[2] 张帆，郑立楷，王华杰.AutoCAD VBA 开发精彩实例教程[M].北京：清华大学出版社,2004.

[3] Excel Home.别怕,Excel VBA 其实很简单[M].北京：人民邮电出版社,2012.

[4] 罗刚君.Excel VBA 程序开发自学宝典(第2版)[M].北京：电子工业出版社,2011.

Batch Drawing Equipment Nameplates Based on AutoCAD Secondary Development

ZHANG Pei-yuan 1, QIN Shao-dong 2

(1.Zhongwang(Liaoyang) Aluminum Formwork Manufacturing Co., Ltd., Liaoyang Liaoning 111000;

2.Liaoning Zhongwang Group Co., Ltd., Liaoyang Liaoning 111000)

Abstract:To meet the needs of batch production of equipment nameplates in practice, the method of combining Excel and AutoCAD is used, and Visual Basic is used to connect the two software. The Excel table lists all the information needed to make nameplates. Programs written in AutoCAD and Visual Basic will use the contents of Excel to be placed in designated locations, so as to make batches of nameplates.

Key words:nameplate production in batches; AutoCAD; Visual Basic; secondary development

备和资料的采集，要重点采集城市地图的海量数据，利用多种分辨率遥感影像数据进行城市规划等，并对地形数据进行高质量的影像正射校正，实现专题地图数据的三维可视化、分类处理、分级处理。(

2)数据分析。基于GIS的数字化专题地图数据分析要进行投影格式的转换，提出制图要素，进行制图数据的有效编辑，如：图幅拼接、数据编辑、数据现状更新等。(3)专题地图设计。要进行地理底图的制作和专题图的制作，进行专题信息的存贮、表达、传递、提取，并进行地图的整饰，使之具有良好的表现力和视觉阅读效果。(4)地图输出。输

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

。

4 结语

综上所述，数字化专题地图采用GIS软件进行设计和制作，利用计算机进行数字化专题地图的专题显示、查询、分析和编辑，反映不

Research on the Design and Production of Digital Thematic Map

DOU Hua-jun

(The Chinese People's Liberation Army Unit 61243, Urumqi Xinjiang 830006)

Abstract:The traditional manual method of making maps shows lag, in the context of the continuous advancement of brand-new information engineering, the "digital land project" is gradually implemented as a land management information project, This article studies and analyzes the design and production of digital thematic maps using GIS technology and methods.

Key words:digital thematic map; 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页

张培媛秦少东：基于A u t o C A D 二次开发批量绘制设备铭牌

本文发布于:2024-09-22 15:24:33，感谢您对本站的认可！

本文链接：https://www.17tex.com/tex/2/281445.html

上一篇：电路抗干扰设计——非常详细

下一篇：单位铭牌标准(一)

标签：数据铭牌制作进行批量专题地图

留言与评论（共有 0 条评论）