【摘要】本文是在介紹測(cè)量監(jiān)理開(kāi)挖抽檢資料和VBA編程技術(shù)的基礎(chǔ)上，結(jié)合監(jiān)理工作實(shí)際，利用Excel和VBA編程模型編制監(jiān)理測(cè)量抽檢數(shù)據(jù)的處理程序，實(shí)現(xiàn)監(jiān)理開(kāi)挖抽檢資料的快速完成，并對(duì)程序細(xì)節(jié)作了必要說(shuō)明。結(jié)果表明，應(yīng)用該程序可大大縮短開(kāi)挖抽檢資料制作時(shí)間，提高工作效率。

【關(guān)鍵詞】VBA編程、工程測(cè)量、監(jiān)理、抽檢資料

引言

測(cè)量監(jiān)理是代表業(yè)主對(duì)施工過(guò)程中的測(cè)量工作進(jìn)行監(jiān)督、管理的一種專業(yè)監(jiān)理，對(duì)于開(kāi)挖施工，在工程部位開(kāi)挖至設(shè)計(jì)線后，測(cè)量監(jiān)理需對(duì)該部位進(jìn)行驗(yàn)收抽檢。而在大中型工程的前中期，往往含有大量的進(jìn)場(chǎng)道路、地下洞室、結(jié)構(gòu)物基礎(chǔ)等開(kāi)挖施工，測(cè)量監(jiān)理將進(jìn)行大量的開(kāi)挖抽檢工作，進(jìn)而需要大量時(shí)間來(lái)制作抽檢資料。結(jié)合工程實(shí)際，還需保證開(kāi)挖測(cè)量抽檢資料完成的及時(shí)性，因此，導(dǎo)致測(cè)量監(jiān)理的工作強(qiáng)度很大。若有一種能對(duì)測(cè)量數(shù)據(jù)進(jìn)行自動(dòng)處理、成圖的程序，便可大大減少監(jiān)理的開(kāi)挖測(cè)量抽檢資料制作時(shí)間，提高工作效率。因此決定設(shè)計(jì)出這種程序，首先對(duì)市場(chǎng)上各種編程軟件進(jìn)行調(diào)研，調(diào)研后發(fā)現(xiàn)，電子表格軟件Excel界面簡(jiǎn)單、操作方便， 同時(shí)Excel本身具有快捷方便的數(shù)據(jù)輸入方式和強(qiáng)大的數(shù)據(jù)計(jì)算、分析處理能力，以及豐富多彩的圖表和圖形工具，且內(nèi)置的VBA開(kāi)發(fā)環(huán)境，編寫簡(jiǎn)單，通過(guò)錄制宏代碼即可獲得。故利用VBA 編程語(yǔ)言來(lái)實(shí)現(xiàn)監(jiān)理開(kāi)挖測(cè)量抽檢資料的快速完成。

1、VBA介紹

VBA（Visual Basic For Application）是微軟公司提供的對(duì)應(yīng)用程序（Word 、Excel、Access 等）進(jìn)行二次開(kāi)發(fā)的技術(shù)，利用它不僅可實(shí)現(xiàn)數(shù)據(jù)的自動(dòng)化處理， 定制適應(yīng)客戶需要的程序，而且可將支持VBA開(kāi)發(fā)的不同應(yīng)用集成在一起。

VBA 提供了一套基于 VB 的面向?qū)ο蟮南到y(tǒng)開(kāi)發(fā)工具，很多語(yǔ)法繼承于VB語(yǔ)言，可以像編寫VB程序那樣來(lái)編寫VBA程序，實(shí)現(xiàn)特定的功能。支持VBA二次開(kāi)發(fā)的應(yīng)用程序都內(nèi)建許多對(duì)象，這些對(duì)象都具有方法和屬性。VBA 通過(guò)改變這些對(duì)象的屬性，調(diào)用相應(yīng)的方法訪問(wèn)這些對(duì)象，實(shí)現(xiàn)編程目的。利用VBA二次開(kāi)發(fā)首先選擇合適的客戶端程序，然后在該程序提供的VBA開(kāi)發(fā)環(huán)境中編寫程序模塊，程序編譯通過(guò)后，被保存在該程序中，相關(guān)可視化界面通過(guò)在客戶端應(yīng)用程序中添加菜單、按鈕等界面要素實(shí)現(xiàn)。

Excel電子表格軟件是微軟開(kāi)發(fā)的強(qiáng)大電子表格處理系統(tǒng)，它不僅具有易于使用的用戶界面，而且包含許多圖形圖表處理模塊，可以大大簡(jiǎn)化數(shù)據(jù)的最終表達(dá)。同時(shí)內(nèi)置的VBA面向?qū)ο蟮木幊棠Ｐ蜆O大地方便了對(duì) Excel 內(nèi)部對(duì)象的調(diào)用，從而可以較容易地實(shí)現(xiàn)對(duì)監(jiān)理抽檢測(cè)量數(shù)據(jù)進(jìn)行處理的功能。

2、VBA程序設(shè)計(jì)及應(yīng)用實(shí)例

實(shí)現(xiàn)監(jiān)理開(kāi)挖測(cè)量抽檢資料快速完成的VBA程序，其實(shí)質(zhì)有兩點(diǎn)，第一是對(duì)監(jiān)理抽檢測(cè)量數(shù)據(jù)進(jìn)行一系列處理，最終生成可直接用于AutoCAD（下文簡(jiǎn)稱為CAD）的一種特定數(shù)據(jù)格式，通過(guò)對(duì)該數(shù)據(jù)進(jìn)行簡(jiǎn)單的復(fù)制、粘貼，就可自動(dòng)生成監(jiān)理開(kāi)挖測(cè)量抽檢斷面圖（CAD圖），第二，對(duì)監(jiān)理抽檢測(cè)量數(shù)據(jù)自動(dòng)摘取、排版，直接輸出《監(jiān)理測(cè)量抽檢數(shù)據(jù)成果表》。

2.1數(shù)據(jù)處理

測(cè)量數(shù)據(jù)根據(jù)施工坐標(biāo)系的不同，分為施工坐標(biāo)數(shù)據(jù)和大地坐標(biāo)數(shù)據(jù)。為直觀、方便的顯示監(jiān)理開(kāi)挖抽檢測(cè)量數(shù)據(jù)，程序處理的數(shù)據(jù)采用施工坐標(biāo)數(shù)據(jù)。

程序?qū)崿F(xiàn)流程為：打開(kāi)含有VBA程序的Excel軟件，輸入某開(kāi)挖驗(yàn)收部位的測(cè)量數(shù)據(jù)后，輸入該部位的設(shè)計(jì)圖紙參數(shù)和CAD成圖參數(shù)。設(shè)計(jì)圖紙參數(shù)為開(kāi)挖的坡比、起坡樁號(hào)、高程、高度等設(shè)計(jì)參數(shù)；CAD成圖參數(shù)則為CAD圖中，圖框行間距、列間距、監(jiān)理抽檢斷面間距、斷面圖的標(biāo)注位置等參數(shù)。參數(shù)輸入完成并經(jīng)檢查無(wú)誤后，選擇程序界面的“計(jì)算成果”按鈕，程序?qū)⒆詣?dòng)計(jì)算出監(jiān)理開(kāi)挖測(cè)量抽檢的CAD成圖數(shù)據(jù)，包含開(kāi)挖斷面線、測(cè)量點(diǎn)、超欠挖值、數(shù)據(jù)統(tǒng)計(jì)表、樁號(hào)和高程標(biāo)注位置等成圖數(shù)據(jù)，打開(kāi)CAD軟件，將此數(shù)據(jù)成果依次復(fù)制、粘貼，就可自動(dòng)生成監(jiān)理開(kāi)挖測(cè)量抽檢斷面圖。

2.2程序應(yīng)用實(shí)例

為方便對(duì)程序的介紹，下面以安徽省金寨縣抽水蓄能電站工程地下廠房排水洞（設(shè)計(jì)開(kāi)挖洞型為城門洞型）洞身的開(kāi)挖抽檢為例。

2.2.1 功能模塊說(shuō)明

2.2.1.1 參數(shù)輸入模塊

參數(shù)輸入模塊包含四種參數(shù)，分別是線路參數(shù)、斷面參數(shù)、CAD圖參數(shù)和標(biāo)注位置，主要分為設(shè)計(jì)圖紙參數(shù)和CAD成圖參數(shù)兩大類。參數(shù)是VBA進(jìn)行數(shù)據(jù)運(yùn)算的基礎(chǔ)，是將測(cè)量實(shí)測(cè)數(shù)據(jù)轉(zhuǎn)換成特定格式數(shù)據(jù)的關(guān)鍵。

2.2.1.2 測(cè)量數(shù)據(jù)計(jì)算模塊

通過(guò)對(duì)設(shè)計(jì)參數(shù)的引用，VBA程序?qū)⒆詣?dòng)對(duì)測(cè)量數(shù)據(jù)進(jìn)行處理，生成可用于AutoCAD繪圖的特定格式數(shù)據(jù)（數(shù)據(jù)格式見(jiàn)圖3。共含有5種，依次為開(kāi)挖斷面線、測(cè)量點(diǎn)、超欠挖值、斷面標(biāo)注和統(tǒng)計(jì)數(shù)據(jù)表）。此類數(shù)據(jù)可直接應(yīng)用于CAD軟件，自動(dòng)生成監(jiān)理測(cè)量抽檢斷面圖。

（2）監(jiān)理測(cè)量抽檢斷面圖

AutoCAD軟件繪制排水洞設(shè)計(jì)斷面圖圖框陣列圖，確定圖框行間距、列間距。使用UCS命令，以CAD圖框陣列中的第一個(gè)斷面圖的洞軸線與底板交點(diǎn)為施工坐標(biāo)原點(diǎn)，以此定義為相對(duì)坐標(biāo)系，在此基礎(chǔ)上，對(duì)原始測(cè)量數(shù)據(jù)進(jìn)行轉(zhuǎn)化，來(lái)確定斷面圖各元素的相對(duì)位置，最終生成可應(yīng)用于AutoCAD軟件的數(shù)據(jù)格式，實(shí)現(xiàn)監(jiān)理測(cè)量抽檢斷面圖的自動(dòng)成圖。

2.2.1.3 成果導(dǎo)出模塊

1）導(dǎo)出監(jiān)理抽檢數(shù)據(jù)表

監(jiān)理抽檢數(shù)據(jù)表是特定格式的監(jiān)理抽檢資料，通過(guò)VBA語(yǔ)言的編程可實(shí)現(xiàn)對(duì)測(cè)量數(shù)據(jù)的處理，自動(dòng)生成相應(yīng)格式的數(shù)據(jù)表，減小了人為輸入錯(cuò)誤概率以及資料完成時(shí)間，提高了監(jiān)理工作效率。

2）測(cè)量斷面圖成果導(dǎo)出

通過(guò)Excel“開(kāi)發(fā)工具”任務(wù)欄，選擇插入窗體控件（按鈕），添加宏代碼，以按鈕的形式即可復(fù)制對(duì)應(yīng)的數(shù)據(jù)，對(duì)應(yīng)數(shù)據(jù)導(dǎo)入CAD，將自動(dòng)生成抽檢CAD斷面圖成果，實(shí)現(xiàn)監(jiān)理測(cè)量抽檢資料的快速完成。

3、結(jié)論

3.1 未開(kāi)發(fā)此程序前，制作完成含四條斷面的監(jiān)理開(kāi)挖測(cè)量抽檢資料，從測(cè)量數(shù)據(jù)轉(zhuǎn)化到完成最終成果，大概需要30分鐘，而利用本程序，完成同樣的工作，總時(shí)間只需2分鐘。由此可見(jiàn)，利用VBA可大大縮短測(cè)量監(jiān)理完成開(kāi)挖抽檢資料的時(shí)間，減少勞動(dòng)強(qiáng)度。

3.2 按照監(jiān)理抽檢資料的原制作方式，數(shù)據(jù)計(jì)算過(guò)程中易出錯(cuò)，計(jì)算錯(cuò)誤不易發(fā)現(xiàn)；打印成圖后，如需修改，不得不重新修改、打印。而利用本程序，實(shí)現(xiàn)測(cè)量數(shù)據(jù)的自動(dòng)處理計(jì)算和統(tǒng)計(jì)數(shù)據(jù)、高程、樁號(hào)等各項(xiàng)標(biāo)注位置的自動(dòng)生成，可使出錯(cuò)幾率大大降低。

3.3 基于Excel軟件，程序界面友好，操作簡(jiǎn)單，使用方便，初學(xué)者易于掌握。

3.4 待處理的測(cè)量數(shù)據(jù)批量導(dǎo)入程序中，對(duì)于全站儀激光打在障礙物上的點(diǎn)，或者由于測(cè)量環(huán)境影響，導(dǎo)致測(cè)取誤差較大的點(diǎn)，本程序不能自動(dòng)識(shí)別，這也是本程序尚需改進(jìn)的地方。

參考文獻(xiàn)：

[1]羅國(guó)發(fā)，周慶麟.別怕，Excel VBA其實(shí)很簡(jiǎn)單[M].人民郵電出版社.2012

[2]張永成，王洪輝，段新國(guó).Excel VBA在測(cè)井?dāng)?shù)據(jù)標(biāo)準(zhǔn)化中的應(yīng)用[J].成都理工大學(xué)學(xué)報(bào)，2009

[3]李曉玟，楊小平.Excel中的VBA程序設(shè)計(jì)[J].四川師范大學(xué)學(xué)報(bào)，2004

[4]韓小良，韓舒婷.Excel VBA從入門到精通[M].中國(guó)鐵道出版社，2006

作者簡(jiǎn)介：

王永賀（1988-），男，中級(jí)工程師，主要研究方向：抽水蓄能數(shù)字化電站建設(shè)以及BIM在施工管理中的應(yīng)用等；