設備銘牌

第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.