基于Excel VBA的電力管線竣工測量內(nèi)業(yè)成果處理

郭振華，薛蘭格，劉輝

(1.北京新興華安測繪有限公司，北京石景山 100040;2.北京鼎春德正測繪中心，北京朝陽 100029)

1 引言

地下管線擔(dān)負(fù)著城市的信息傳遞、能源輸送、排澇減災(zāi)、廢物排棄等功能，是城市賴以生存和發(fā)展的物質(zhì)基礎(chǔ)，是城市基礎(chǔ)設(shè)施的重要組成部分，是發(fā)揮城市功能確保社會經(jīng)濟(jì)和城市建設(shè)的健康、協(xié)調(diào)和可持續(xù)發(fā)展的重要基礎(chǔ)和保障。地下管網(wǎng)系統(tǒng)的安全關(guān)系著城市的繁榮發(fā)展，提供準(zhǔn)確的地下管網(wǎng)數(shù)據(jù)是測繪工作者的職責(zé)。

北京市地下綜合管線竣工測量成果的驗(yàn)收工作有嚴(yán)格的檢查驗(yàn)收備案程序。電力管線專項(xiàng)竣工測量工作，從2011年起，北京華商電力管道公司作為管理單位推廣應(yīng)用北京市電力公司GIS、PMS生產(chǎn)管理系統(tǒng)，該系統(tǒng)對于基礎(chǔ)數(shù)據(jù)格式和成果樣式進(jìn)行了設(shè)定，對所有新建的電力管線竣工測量工作需要統(tǒng)一錄入該系統(tǒng)。北京新興華安測繪有限公司作為該系統(tǒng)的主要測量單位之一，為了提高工作效率，基于Excel VBA自主研發(fā)了電力管線竣工測量內(nèi)業(yè)成果處理工具，實(shí)現(xiàn)測繪成果的自動處理，有效節(jié)省人力物力，提高了工作效率，為電力竣工測量工作提供了一種簡單而高效的處理方法。

2 執(zhí)行的標(biāo)準(zhǔn)規(guī)范

《城市測量規(guī)范》CJJ/T 8－2011

《工程測量規(guī)范》GB50026－2007

《北京市工程測量技術(shù)規(guī)程》DB11/T 339－2006

《北京市基礎(chǔ)測繪技術(shù)規(guī)程》DB11/T 407－2007

《城市地下管線探測技術(shù)規(guī)程》CJJ61－2003

《北京市地下管線探測技術(shù)規(guī)程》DB11/T 316－2005

《1∶5001∶10001∶2000地形圖圖式》GB/T 20257.1－2007

3 作業(yè)流程

電力管線竣工測量主要作業(yè)流程如圖1所示。

4 基于Excel VBA的內(nèi)業(yè)成果處理

利用VBA處理平臺，設(shè)置錄入模板、編程設(shè)計(jì)，完成各管線數(shù)據(jù)(包括空間數(shù)據(jù)和屬性數(shù)據(jù))的錄入，管井段表、檢查井表的輸出，繪制電力管線成果圖。

Excel電力管線數(shù)據(jù)庫錄入表包括管線的連接方向、坐標(biāo)、高程、規(guī)格、測點(diǎn)類型、埋設(shè)類型等，在錄入的過程中按管線的走向，先主干線后支線的方式錄入。管段、直埋的高程應(yīng)錄入于管外頂下方，隧道段、溝槽的高程錄入于溝內(nèi)底下方，注意是否有管偏，檢查井的測點(diǎn)類型為電力井，折點(diǎn)、邊坡點(diǎn)、變電室等的測點(diǎn)類型為連接點(diǎn)。

4.1 設(shè)置Excel模板錄入基礎(chǔ)數(shù)據(jù)

針對電力管線數(shù)據(jù)屬性項(xiàng)多的特點(diǎn)，利用Excel“檢查井記錄.sheet!”預(yù)先設(shè)定錄入表格模板，如圖1所示，將所有管線可能出現(xiàn)的屬性項(xiàng)融合在一起，錄入時(shí)根據(jù)屬性項(xiàng)選擇性輸入，方便檢查數(shù)據(jù)錄入的正確與否。

(1)數(shù)據(jù)錄入過程中自動設(shè)計(jì)了下拉菜單，快速選擇輸入項(xiàng)，也可以自動填充序列，加快錄入速度;如圖2所示為針對重復(fù)錄入數(shù)據(jù)的填充界面;圖3所示為利用Excel的“數(shù)據(jù)”選項(xiàng)中設(shè)置“數(shù)據(jù)有效性”編輯下拉菜單，減少文字錄入工作，快速進(jìn)行屬性錄入;

圖1 電力管線竣工測量工作流程

圖2 內(nèi)業(yè)成果整理技術(shù)操作流程圖

圖3 “檢查井記錄”工作表設(shè)置錄入模板

(2)其中井面高程、外頂高程、外底高程等需要計(jì)算的數(shù)據(jù)，也是用程序進(jìn)行了設(shè)計(jì)，能夠自動鏈接“坐標(biāo).sheet!”中高程，結(jié)合作業(yè)習(xí)慣、只需要在選項(xiàng)處錄入外業(yè)丈量尺寸，自動輸出管外頂、管外底高程，將計(jì)算工作通過程序?qū)崿F(xiàn)，加快了錄入速度與質(zhì)量;

圖4 重復(fù)數(shù)據(jù)錄入自動填充或復(fù)制

圖5 “數(shù)據(jù)有效性”編輯下拉菜單

(3)外業(yè)測量完成的管井坐標(biāo)數(shù)據(jù)，按照圖6的格式進(jìn)行編輯，整理在“坐標(biāo).sheet!”工作表中;

圖6 “坐標(biāo)”工作表中管井坐標(biāo)數(shù)據(jù)

4.2 利用VBA程序設(shè)計(jì)實(shí)現(xiàn)自動輸出檢查井表、管井段表和電力管線圖

在Excel模板中，分別設(shè)置了“測繪成果.sheet!”、“坐標(biāo).sheet!”、“檢查井記錄.sheet!”、“當(dāng)前井.sheet!”、“檢查井表.sheet!”、“檢查井模板.sheet!”、“參數(shù).sheet!”等幾個工作表，后期又根據(jù)新要求增加了“管段.sheet!”、“通風(fēng)亭.sheet!”“隧道段.sheet!”等工作表;通過Excel VBA2010程序進(jìn)行了設(shè)計(jì)，(程序從略，以下同)，設(shè)置了關(guān)聯(lián)關(guān)系，分別進(jìn)行管井處理和管段處理，實(shí)現(xiàn)自動輸出檢查井表、管段表、電力管線圖等。

圖7 VBA程序代碼窗口

圖8 VBA程序模塊窗體設(shè)計(jì)窗口

圖9 命令操作面板

(1)自動輸出檢查井表、管井段表

數(shù)據(jù)錄入完畢中，在Excel中“啟用宏”，自動彈出命令面板，點(diǎn)擊命令面板中的管井處理“檢查井坐標(biāo)匹配”“成果表坐標(biāo)匹配”，結(jié)束后自動彈出對話框“坐標(biāo)匹配完成”;然后點(diǎn)擊“生成word檢查井”“生成excel檢查井”，通過VBA程序按照北京華商電力管道有限公司設(shè)計(jì)好的檢查井參數(shù)，自動輸出每個檢查井的檢查井表;同理點(diǎn)擊管井段處理“邊長高程重算”，自動輸出管井段記錄表、隧道段記錄表等等。

根據(jù)成果樣式的要求不同，設(shè)計(jì)了可以自動生成Excel版本、Word版本檢查井表、管段表，實(shí)現(xiàn)了Word與Excel的交互功能、完成表格自動輸出，有效提高內(nèi)業(yè)數(shù)據(jù)處理工作量。

圖10 檢查表參數(shù)表

圖11 竣工資料封皮

圖12 竣工資料登記表

圖13 批量輸出的電力管井段檢查井表預(yù)覽

(2)自動生成電力管線圖

在Excel錄入表格中將所有成果錄入完成后，程序設(shè)計(jì)了Excel與AutoCAD的關(guān)聯(lián)，如圖14:測點(diǎn)類型與AutoCAD圖塊對照參數(shù)表所示，可以將管線井、管井段依照參數(shù)自動展繪至AutoCAD中。AutoCAD中編輯了“讀取電力管線文件”菜單，自動成圖，可以檢查檢查井的連接情況是否正確，根據(jù)設(shè)計(jì)關(guān)系來比較所測管線點(diǎn)的位置是否正確。

圖14 測點(diǎn)類型與AutoCAD圖塊對照參數(shù)表

圖15 AutoCAD中讀取電力管線文件

由于各個檢查井是帶有屬性的數(shù)據(jù)，通過屬性編輯操作，可以批量將各個檢查井的坐標(biāo)、編碼自動標(biāo)注，自動連接管線走向、管偏等相關(guān)工作，極大提高工作效率;其中斷面圖的繪制工作未在此程序中進(jìn)行開發(fā)，尚需要手工完成，最后將管線數(shù)據(jù)圖形套合至地形圖中，形成的電力管線成果圖16所示，滿足竣工驗(yàn)收要求。

圖16 整理完畢的電力管線圖樣圖

5 結(jié)語

綜合Excel VBA在電力管線竣工測量處理中的應(yīng)用可以看出，采用Excel進(jìn)行屬性錄入可以大大提高數(shù)據(jù)錄入的效率，通過對VBA二次開發(fā)可以將管線數(shù)據(jù)從錄入數(shù)據(jù)庫→成果表生成并輸出→繪制管線圖，節(jié)約了內(nèi)業(yè)處理時(shí)間，優(yōu)化了作業(yè)流程，實(shí)現(xiàn)數(shù)據(jù)處理的自動化，無需人工干預(yù)，節(jié)省了人力、物力，極大提高工作效率和成果質(zhì)量。

［1］CJJ61－2003.城市地下管線探測技術(shù)規(guī)程［S］.

［2］DB11/T 316－2005.北京市地下管線探測技術(shù)規(guī)程［S］.

［3］孔勇平，朱娟.基于AutoCAD二次開發(fā)技術(shù)的研究［J］.計(jì)算機(jī)工程應(yīng)用技術(shù)，2008(12):549～550.

［4］John Walkenbach.中文版Excel 2010高級VBA編程寶典［M］.清華大學(xué)出版社，2012(10).

［5］北京市電力公司電力管道竣工測量技術(shù)要求［R］.1～25.

［6］秦洪現(xiàn)，崔惠嵐，孫劍.Autodesk系列產(chǎn)品開發(fā)培訓(xùn)教程［M］.北京:化學(xué)工業(yè)出版社，2008.

［7］孔勇平，朱娟.基于AutoCAD二次開發(fā)技術(shù)的研究［J］.計(jì)算機(jī)工程應(yīng)用技術(shù)，2008(12):78～82.

［8］賀軍政.羅凌燕 Excel與C#在地下管線數(shù)據(jù)處理中的應(yīng)用［J］.城市勘測，2011(1):116～119.

［9］許春培.利用VBA建立AutoCad2000與Excel通信.電腦編程技巧與維護(hù)，2001(06)CN 11—3411.

［10］黃海濤，尹言軍，劉玉春.LISP和VBA程序在土地勘測定界內(nèi)業(yè)處理中的應(yīng)用分析［J］.城市勘測，2008(3):123～126.