基于Excel VBA的電力管線竣工測量內業成果處理

郭振華，薛蘭格，劉輝

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

1 引言

地下管線擔負著城市的信息傳遞、能源輸送、排澇減災、廢物排棄等功能，是城市賴以生存和發展的物質基礎，是城市基礎設施的重要組成部分，是發揮城市功能確保社會經濟和城市建設的健康、協調和可持續發展的重要基礎和保障。地下管網系統的安全關系著城市的繁榮發展，提供準確的地下管網數據是測繪工作者的職責。

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

2 執行的標準規范

《城市測量規范》CJJ/T 8－2011

《工程測量規范》GB50026－2007

《北京市工程測量技術規程》DB11/T 339－2006

《北京市基礎測繪技術規程》DB11/T 407－2007

《城市地下管線探測技術規程》CJJ61－2003

《北京市地下管線探測技術規程》DB11/T 316－2005

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

3 作業流程

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

4 基于Excel VBA的內業成果處理

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

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

4.1 設置Excel模板錄入基礎數據

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

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

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

圖2 內業成果整理技術操作流程圖

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

(2)其中井面高程、外頂高程、外底高程等需要計算的數據，也是用程序進行了設計，能夠自動鏈接“坐標.sheet!”中高程，結合作業習慣、只需要在選項處錄入外業丈量尺寸，自動輸出管外頂、管外底高程，將計算工作通過程序實現，加快了錄入速度與質量;

圖4 重復數據錄入自動填充或復制

圖5 “數據有效性”編輯下拉菜單

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

圖6 “坐標”工作表中管井坐標數據

4.2 利用VBA程序設計實現自動輸出檢查井表、管井段表和電力管線圖

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

圖7 VBA程序代碼窗口

圖8 VBA程序模塊窗體設計窗口

圖9 命令操作面板

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

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

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

圖10 檢查表參數表

圖11 竣工資料封皮

圖12 竣工資料登記表

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

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

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

圖14 測點類型與AutoCAD圖塊對照參數表

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

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

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

5 結語

綜合Excel VBA在電力管線竣工測量處理中的應用可以看出，采用Excel進行屬性錄入可以大大提高數據錄入的效率，通過對VBA二次開發可以將管線數據從錄入數據庫→成果表生成并輸出→繪制管線圖，節約了內業處理時間，優化了作業流程，實現數據處理的自動化，無需人工干預，節省了人力、物力，極大提高工作效率和成果質量。

［1］CJJ61－2003.城市地下管線探測技術規程［S］.

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

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

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

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

［6］秦洪現，崔惠嵐，孫劍.Autodesk系列產品開發培訓教程［M］.北京:化學工業出版社，2008.

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

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

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

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