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

　　關鍵詞：測繪工程 ,水準測量, Excel VBA

　　一、 概述

　　其中外業實際觀測數據為前后尺三絲讀數及其輔助分劃讀數共8個數據(即1~8)

　　其他均為依據此8個讀數計算所得，其關系式如下：

　　(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

　　每頁可記錄8站觀測數據，最后一欄將此頁作為一個小節進行合計檢核。

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

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

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

　　目前對于外業觀測的數據常用計算器進行檢查，或使用Excel中的公式進行簡單的計算檢查，檢查無誤后再對各測段進行觀測高差及視距和的推算，作為水準平差的觀測數據同已知點數據一起錄入到專業的平差軟件中進行平差計算。

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

　　在目前的各項工作過程中，很多工作還處于人工處理的方式，雖然部分工作采用計算機進行處理，但對計算機開發應用的程度還處于較低階段，顯示不出計算機自動處理的優越性。經常在平差過程中出現問題后，再反復對檢查、推算、錄入等過程進行再檢查，工作效率大大降低，工作量成倍增強。對于平差結果滿足限差要求的區段，并不能保證在檢查、推算、錄入等過程中出現小的誤差，使得成果的精度不能得到有效的保證。

　　三、 程序的功能及界面設計

　　為了解決以上的數據處理中的不足，充分發揮計算機的自動運算功能，使用Excel里集成的VBA進行二次開發，共進行了六項功能開發，設計了六個宏，界面如下：

　　在Excel中建立了5個工作表：

　　三絲原始數據：在其中錄入外業觀測原始數據，界面如下：

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

　　已知高程點：在其中錄入已知高程點及高程值，界面如下：

　　推算表：生成距離高差或站數高差統計表

　　水準記錄表：生成水準記錄表格：

　　四、 程序功能的實現及其特點

　　“水準檢核”宏程序：

　　1) 首先對三絲原始數據中的數據進行整體檢查，如果數據行數為奇數，這說明在錄入過程中出現了漏行，程序會提示“數據有缺失”。

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

　　3) 基本數據計算：除了上述基本計算外，另外增加了兩個檢核計算：上絲+下絲=2*中絲。計算過程中使用了測量中用到的奇進偶不進原則。計算每站視距和，為推算測段長做準備。

　　4) 超限部分的數據，使用紅色突出顯示。具體限差參照《GB/T 12898-2009 國家三、四等水準測量規范》。

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

　　“數據推算”宏程序：根據每站計算的高差和視距和計算每兩點間測段的高差和觀測距離及站數。推算成果存放在“三絲檢核成果”工作表的R、S、T列。

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

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

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

　　按照相應平差軟件的格式，將控制點數據和推算的每兩點間測段的高差和觀測距離或站數輸出為相應文件。(由于清華三維軟件限制，在輸出文件前注意點名的長度不能超過5個字符)

　　打開相應平差軟件，設置輸入模式，然后打開輸出的數據文件，再對軟件進行平差設置，這樣就可以進行后續的推算、平差、精度評定、成果輸出等操作。

　　如果使用其他的平差軟件，可以根據軟件的格式需求，再編寫對應的輸出文件。

　　五、 結束語

　　應用程序使用，讓計算機代替傳統的人工操作，提高了工作的自動化性能，節省了大量的人力，時間，提高內業工作的效率，保證了成果的正確性。并為測繪工作全電子作業的無紙化辦公打下基礎。

　　參考文獻：

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

　　[2] 馬維峰. Excel VBA應用開發從基礎到實踐. 北京：電子工業出版社，2006.8

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