【摘要】電纜清冊是電氣二次專業(yè)設(shè)計(jì)產(chǎn)品，主要用于控制電纜的敷設(shè)及采購，本文介紹了一種自動生成電纜清冊的軟件的設(shè)計(jì)思路、編寫說明及使用時的注意事項(xiàng)，軟件實(shí)現(xiàn)了電纜清冊統(tǒng)計(jì)的繁瑣工作，避免了人工統(tǒng)計(jì)過程中的錯誤，縮短了設(shè)計(jì)周期，提高了工作效率。

【關(guān)鍵詞】VBA Excel 電纜清冊

引言：

如圖 1所示，在電氣二次專業(yè)的設(shè)計(jì)過程中，需先設(shè)計(jì)原理圖，通過原理圖及廠家配線圖繪制端子圖，在端子圖的基礎(chǔ)上提取電纜的起點(diǎn)、終點(diǎn)以及電纜型號，得到初步的電纜清冊。在布置圖和電纜通道相關(guān)圖紙的基礎(chǔ)上，量取各電纜的長度，從而得到完整的電纜清冊。不帶電纜長度的電纜清冊的手動提取過程全部都是復(fù)制、粘貼之類的重復(fù)工作，需要耗費(fèi)大量的人力和時間，且人工統(tǒng)計(jì)的過程容易出現(xiàn)錯漏。手動統(tǒng)計(jì)平均200根電纜/人日，錯誤率約為2～3%，一個中小型電站按1000根電纜算，統(tǒng)計(jì)及糾錯至少需要耗費(fèi)5個人日，在現(xiàn)場又要為清冊里的錯漏電纜進(jìn)行重新敷設(shè)，造成原材料的浪費(fèi)。

VBA 和Visual Basic 都是一種面向?qū)ο蟮?、可視化的、事件?qū)動的高級語言，VBA 是在Visual Basic的框架建立起來的標(biāo)準(zhǔn)宏語言，專門用于Office 的各應(yīng)用程序。通過使用VBA 程序，用戶可以更加隨心所欲操作文檔中的文本，而且可以使這些操作自動化，通用化和交互化[1]。本文利用Excel強(qiáng)大的數(shù)據(jù)處理功能，通過VBA對Excel的操作及對AUTOCAD通過ActiveX接口進(jìn)行操控，實(shí)現(xiàn)AUTOCAD中有效數(shù)據(jù)的提取并寫入EXCEL，同時在EXCEL中對電纜清冊進(jìn)行初步的數(shù)據(jù)處理，從而得到不帶長度的電纜清冊。

設(shè)計(jì)思路：

為保證軟件的可用性高及方便推廣，首先應(yīng)該盡可能保留設(shè)計(jì)人員原有的作圖習(xí)慣；同時為可靠的實(shí)現(xiàn)功能，需選取能高效操控Excel和AUTOCAD的編程語言。

電纜清冊統(tǒng)計(jì)過程中，需要從端子圖提取的信息有電纜編號、電纜的起點(diǎn)、終點(diǎn)以及電纜型號，且需體現(xiàn)各組數(shù)據(jù)之間一一對應(yīng)的關(guān)系。在提取電纜清冊的過程中，上述信息就是有效信息，必須將其用軟件能快速、可靠識別的方式繪制并用某種方式保證其相關(guān)性[2]。電纜的各種信息在端子圖中均以文字形式表示，圖框中包含電纜起點(diǎn)信息，而在電纜出線位置包含了電纜的編號、型號以及去向。如何將該部分信息變得可識別并使之相關(guān)聯(lián)，是軟件實(shí)現(xiàn)電纜清冊提取的第一步；而有效數(shù)據(jù)的提取以及對Excel的數(shù)據(jù)寫入和數(shù)據(jù)處理是第二步。

程序編寫

1、前期工作

為保證數(shù)據(jù)能被可靠的提取，有效信息需做成屬性塊（以中英文對照版圖紙為例）。

首先，為能夠成功提取電纜起點(diǎn)信息，應(yīng)在圖紙中放置電纜起點(diǎn)塊，常規(guī)設(shè)計(jì)的端子圖在同一套圖紙中只有一個起點(diǎn)，所以整套圖紙中可以只放置一個電纜起點(diǎn)，實(shí)例中將該塊命名為標(biāo)題欄，帶有兩個屬性，分別是中文的電纜起點(diǎn)和英文的CABLE_TITLE。

在同一套圖中電纜的終點(diǎn)可能有多個，且每根電纜的電纜編號、型號和去向必須一一對應(yīng)，因此將這幾個數(shù)據(jù)作為同一個塊的多個屬性。如圖1所示，實(shí)例中將塊命名為電纜塊_中英，帶有四個屬性，電纜型號、電纜去向、電纜編號、CABLE_DESTINATION。

2、軟件實(shí)現(xiàn)

電纜清冊統(tǒng)計(jì)軟件界面如圖2：

因本軟件用AUTOCAD自帶的VBA編譯器編寫，故操控AUTOCAD沒有問題，但讀寫Excel時必須先獲取Excel的句柄，要求統(tǒng)計(jì)清冊前保持Excel為運(yùn)行狀態(tài)。

電纜清冊統(tǒng)計(jì)的步驟如下：

a選取需統(tǒng)計(jì)的文件/文件夾；

b遍歷文件夾中所有圖紙并打開，在圖紙中提取有效信息，進(jìn)行刪減分類；

c將有效信息按一定格式寫入Excel表格；

d將Excel表格中的電纜數(shù)據(jù)進(jìn)行核對和篩查，刪除重復(fù)電纜[3]（因電纜多數(shù)存在于兩套端子圖中，均被統(tǒng)計(jì)了兩次）并對有問題的電纜進(jìn)行重點(diǎn)標(biāo)注（電纜編號相同但其他信息不同或電纜編號重號）；

e對有問題的電纜進(jìn)行人工干預(yù)糾錯（該部分錯誤為圖紙的問題，無法實(shí)現(xiàn)軟件糾錯）。

總結(jié)：

該軟件已在多個工程中應(yīng)用，其生成結(jié)果通過和手動統(tǒng)計(jì)的電纜清冊進(jìn)行比對，正確性和高效性已得到驗(yàn)證。該軟件的推廣有利于做到圖紙的規(guī)范化、模板化，將端子圖中的有效信息用統(tǒng)一的方式繪制，圖紙的繪制更為高效和便捷；通過軟件操作代替人工的重復(fù)勞動，可以節(jié)省人力和時間，并避免統(tǒng)計(jì)過程中人為導(dǎo)致的錯誤；通過Excel強(qiáng)大的數(shù)據(jù)處理功能對電纜進(jìn)行篩查并對圖紙進(jìn)行復(fù)核，將有問題的電纜進(jìn)行標(biāo)注，在一定程度上減少了端子圖校核的工作量。

參考文獻(xiàn)

（1）王美瓊，用VBA Excel 編制試卷自動評分[J]，福建電腦，2012（12）.