基于VBA的電氣二次電纜清冊統(tǒng)計軟件的開發(fā)

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

【關鍵詞】VBA Excel 電纜清冊

引言：

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

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

設計思路：

為保證軟件的可用性高及方便推廣，首先應該盡可能保留設計人員原有的作圖習慣；同時為可靠的實現功能，需選取能高效操控Excel和AUTOCAD的編程語言。

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

程序編寫

1、前期工作

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

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

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

2、軟件實現

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

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

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

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

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

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

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

e對有問題的電纜進行人工干預糾錯（該部分錯誤為圖紙的問題，無法實現軟件糾錯）。

總結：

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

參考文獻

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