摘 要：由于目前在進(jìn)行水準(zhǔn)測(cè)量外業(yè)觀測(cè)數(shù)據(jù)的檢查、推算、錄入、平差等一系列工作中存在許多人工處理的方式，使工作的質(zhì)量和效率受到影響。而本文正是針對(duì)這些缺陷，編制程序自動(dòng)處理，有效減少在內(nèi)業(yè)操作中的人工參與，從而提高作業(yè)自動(dòng)化的程度。為測(cè)繪工作全電子作業(yè)的無(wú)紙化辦公做準(zhǔn)備。

　　關(guān)鍵詞：測(cè)繪工程 ,水準(zhǔn)測(cè)量, Excel VBA

　　一、 概述

　　其中外業(yè)實(shí)際觀測(cè)數(shù)據(jù)為前后尺三絲讀數(shù)及其輔助分劃讀數(shù)共8個(gè)數(shù)據(jù)(即1~8)

　　其他均為依據(jù)此8個(gè)讀數(shù)計(jì)算所得，其關(guān)系式如下：

　　(9)=(4)+K-(7) (10)=(3)+K-(8)

　　(11)=(10)-(9) (12)=(1)-(2)

　　(13)=(5)-(6) (14)=(12)-(13)

　　(15)=前站(15)+本站(14) (16)=(3)-(4)

　　(17)=(8)-(7) (18)=((16)+(17)±100)/2

　　每頁(yè)可記錄8站觀測(cè)數(shù)據(jù)，最后一欄將此頁(yè)作為一個(gè)小節(jié)進(jìn)行合計(jì)檢核。

　　∑(16)=∑(3)-∑(4) ∑(17)=∑(8)-∑(7)

　　∑(11)=∑(10)-∑(9) ∑(18)=(∑(16)+∑(17))/2

　　二、 目前的處理方法及不足

　　目前對(duì)于外業(yè)觀測(cè)的數(shù)據(jù)常用計(jì)算器進(jìn)行檢查，或使用Excel中的公式進(jìn)行簡(jiǎn)單的計(jì)算檢查，檢查無(wú)誤后再對(duì)各測(cè)段進(jìn)行觀測(cè)高差及視距和的推算，作為水準(zhǔn)平差的觀測(cè)數(shù)據(jù)同已知點(diǎn)數(shù)據(jù)一起錄入到專業(yè)的平差軟件中進(jìn)行平差計(jì)算。

　　上述工作流程可簡(jiǎn)單概括為：檢查—推算—錄入—平差

　　在目前的各項(xiàng)工作過(guò)程中，很多工作還處于人工處理的方式，雖然部分工作采用計(jì)算機(jī)進(jìn)行處理，但對(duì)計(jì)算機(jī)開(kāi)發(fā)應(yīng)用的程度還處于較低階段，顯示不出計(jì)算機(jī)自動(dòng)處理的優(yōu)越性。經(jīng)常在平差過(guò)程中出現(xiàn)問(wèn)題后，再反復(fù)對(duì)檢查、推算、錄入等過(guò)程進(jìn)行再檢查，工作效率大大降低，工作量成倍增強(qiáng)。對(duì)于平差結(jié)果滿足限差要求的區(qū)段，并不能保證在檢查、推算、錄入等過(guò)程中出現(xiàn)小的誤差，使得成果的精度不能得到有效的保證。

　　三、 程序的功能及界面設(shè)計(jì)

　　為了解決以上的數(shù)據(jù)處理中的不足，充分發(fā)揮計(jì)算機(jī)的自動(dòng)運(yùn)算功能，使用Excel里集成的VBA進(jìn)行二次開(kāi)發(fā)，共進(jìn)行了六項(xiàng)功能開(kāi)發(fā)，設(shè)計(jì)了六個(gè)宏，界面如下：

　　在Excel中建立了5個(gè)工作表：

　　三絲原始數(shù)據(jù)：在其中錄入外業(yè)觀測(cè)原始數(shù)據(jù)，界面如下：

　　三絲檢核成果：在其中進(jìn)行各項(xiàng)計(jì)算及檢查，并將超限部分用紅色醒目表示，界面如下：

　　已知高程點(diǎn)：在其中錄入已知高程點(diǎn)及高程值，界面如下：

　　推算表：生成距離高差或站數(shù)高差統(tǒng)計(jì)表

　　水準(zhǔn)記錄表：生成水準(zhǔn)記錄表格：

　　四、 程序功能的實(shí)現(xiàn)及其特點(diǎn)

　　“水準(zhǔn)檢核”宏程序：

　　1) 首先對(duì)三絲原始數(shù)據(jù)中的數(shù)據(jù)進(jìn)行整體檢查，如果數(shù)據(jù)行數(shù)為奇數(shù)，這說(shuō)明在錄入過(guò)程中出現(xiàn)了漏行，程序會(huì)提示“數(shù)據(jù)有缺失”。

　　2) 確定尺常數(shù)：根據(jù)首站后視觀測(cè)數(shù)據(jù)確定尺常數(shù)，使兩尺常數(shù)確定為4687和4787。

　　3) 基本數(shù)據(jù)計(jì)算：除了上述基本計(jì)算外，另外增加了兩個(gè)檢核計(jì)算：上絲+下絲=2*中絲。計(jì)算過(guò)程中使用了測(cè)量中用到的奇進(jìn)偶不進(jìn)原則。計(jì)算每站視距和，為推算測(cè)段長(zhǎng)做準(zhǔn)備。

　　4) 超限部分的數(shù)據(jù)，使用紅色突出顯示。具體限差參照《GB/T 12898-2009 國(guó)家三、四等水準(zhǔn)測(cè)量規(guī)范》。

　　5) 每頁(yè)合計(jì)計(jì)算：對(duì)“三絲原始數(shù)據(jù)”工作表中每8站進(jìn)行一次合計(jì)。當(dāng)需要合計(jì)少于8站的數(shù)據(jù)時(shí)，在“三絲原始數(shù)據(jù)”工作表中將無(wú)數(shù)據(jù)的測(cè)站空出，程序任然按照8站數(shù)據(jù)(有效數(shù)據(jù)小于8站)合計(jì)。這樣就可以和外業(yè)觀測(cè)手簿相一致。

　　“數(shù)據(jù)推算”宏程序：根據(jù)每站計(jì)算的高差和視距和計(jì)算每?jī)牲c(diǎn)間測(cè)段的高差和觀測(cè)距離及站數(shù)。推算成果存放在“三絲檢核成果”工作表的R、S、T列。

　　“生成推算表”宏程序：根據(jù)需要可生成距離高差推算表或站數(shù)高差推算表。

　　“生成記錄表”宏程序：根據(jù)需要可生成原始記錄手簿的電子表格。

　　“輸出清華三維格式數(shù)據(jù)”及 “輸出南方平差易格式”宏程序：

　　按照相應(yīng)平差軟件的格式，將控制點(diǎn)數(shù)據(jù)和推算的每?jī)牲c(diǎn)間測(cè)段的高差和觀測(cè)距離或站數(shù)輸出為相應(yīng)文件。(由于清華三維軟件限制，在輸出文件前注意點(diǎn)名的長(zhǎng)度不能超過(guò)5個(gè)字符)

　　打開(kāi)相應(yīng)平差軟件，設(shè)置輸入模式，然后打開(kāi)輸出的數(shù)據(jù)文件，再對(duì)軟件進(jìn)行平差設(shè)置，這樣就可以進(jìn)行后續(xù)的推算、平差、精度評(píng)定、成果輸出等操作。

　　如果使用其他的平差軟件，可以根據(jù)軟件的格式需求，再編寫對(duì)應(yīng)的輸出文件。

　　五、 結(jié)束語(yǔ)

　　應(yīng)用程序使用，讓計(jì)算機(jī)代替?zhèn)鹘y(tǒng)的人工操作，提高了工作的自動(dòng)化性能，節(jié)省了大量的人力，時(shí)間，提高內(nèi)業(yè)工作的效率，保證了成果的正確性。并為測(cè)繪工作全電子作業(yè)的無(wú)紙化辦公打下基礎(chǔ)。

　　參考文獻(xiàn)：

　　[1] 趙志東. Excel VBA基礎(chǔ)入門. 北京：人民郵電出版社，2006.6

　　[2] 馬維峰. Excel VBA應(yīng)用開(kāi)發(fā)從基礎(chǔ)到實(shí)踐. 北京：電子工業(yè)出版社，2006.8

　　[3] 希望圖書創(chuàng)作室. 中文Visual Basic 6.0教程. 北京：宇航出版社，1999.5