1、徠卡DNA03電子水準(zhǔn)儀數(shù)據(jù)處理探討馮傳勇 米秀玲 魏 猛 （長(zhǎng)江水利委員會(huì)水文局長(zhǎng)江中游水文水資源勘測(cè)局）摘 要：通過Visual Basic編程語(yǔ)言調(diào)用EXCEL，對(duì)電子水準(zhǔn)儀的原始數(shù)據(jù)進(jìn)行處理，自動(dòng)將原始數(shù)據(jù)轉(zhuǎn)化成常規(guī)樣式的水準(zhǔn)記錄電子手簿，同時(shí)具備對(duì)超限測(cè)量數(shù)據(jù)進(jìn)行智能識(shí)別、報(bào)警等功能。關(guān)鍵詞： Visual Basic；EXCEL；記錄手簿；電子水準(zhǔn)儀1 概述 隨著測(cè)繪科學(xué)和技術(shù)的發(fā)展,電子電子水準(zhǔn)儀以其高精度、使用方便、速度快等優(yōu)點(diǎn)正被廣泛用于測(cè)繪生產(chǎn)當(dāng)中。目前國(guó)內(nèi)常用的電子水準(zhǔn)儀包括徠卡、天寶、拓普康等，各種品牌電子水準(zhǔn)儀都有其自己的一套數(shù)據(jù)格式，雖然大多數(shù)水準(zhǔn)儀的原始數(shù)據(jù)格式都

2、具有固定、易讀等特點(diǎn)，但這種原始的數(shù)據(jù)記錄還不能直接作為成果提交。因而必需把水準(zhǔn)儀原始數(shù)據(jù)轉(zhuǎn)換成通常的水準(zhǔn)記錄手薄形式。本文以徠卡DNA03電子水準(zhǔn)儀為例,說明電子水準(zhǔn)儀的數(shù)據(jù)存儲(chǔ)文件的格式,內(nèi)外業(yè)數(shù)據(jù)一體化的實(shí)現(xiàn),闡明如何使用VB語(yǔ)言來讀取電子水準(zhǔn)儀原始數(shù)據(jù),并結(jié)合Microsoft Excel軟件自動(dòng)生成電子水準(zhǔn)記錄手簿。2 徠卡 DNA03電子水準(zhǔn)儀數(shù)據(jù)格式 DNA03電子水準(zhǔn)儀的數(shù)據(jù)格式包括兩種：一種為其基礎(chǔ)格式GSI格式，徠卡GSI數(shù)據(jù)記錄格式是徠卡儀器的專用記錄格式，它是由字索引+測(cè)量數(shù)據(jù)構(gòu)成一個(gè)測(cè)量數(shù)據(jù)塊，一行記錄由一個(gè)或多個(gè)數(shù)據(jù)塊組成。下面通過示例簡(jiǎn)單闡述其數(shù)據(jù)格式：41000

3、3+?.2 110014+00999952 571.8-00000007 572.8-00000008 573.0-00000070 574.0+00045040 83.06-00000941 以上數(shù)據(jù)中，410003+？.2表示一個(gè)測(cè)段開始，其中41是字索引，用于標(biāo)識(shí)該數(shù)據(jù)塊，如果是410013+!.332，則表示重測(cè)332（前視讀數(shù)）。110004+00999906中的前兩位11代表點(diǎn)號(hào)的字索引，00999906為點(diǎn)號(hào)，83.16+00000000中的83是該點(diǎn)的高程的字索引，其高程為00000000，其它的內(nèi)容類推。32是視距的字索引，331為后視1的字索引， 332前視1的字索引，33

4、5前視2的字索引，336后視2的字索引，571為測(cè)站標(biāo)準(zhǔn)差、572為累計(jì)測(cè)站差、573距離差、574線路總長(zhǎng)。3 徠卡 DNA03電子水準(zhǔn)儀的數(shù)據(jù)處理DNA03電子水準(zhǔn)儀自帶嚴(yán)密平差功能，可在儀器中對(duì)測(cè)量數(shù)據(jù)進(jìn)行平差計(jì)算，平差后的數(shù)據(jù)將覆蓋原來的數(shù)據(jù)并保存在PCMCIA卡上，有兩種方法可將數(shù)據(jù)轉(zhuǎn)移到計(jì)算機(jī)中。一是通過通信接口，設(shè)置好通信參數(shù)，使用專門的通信軟件傳輸?shù)接?jì)算機(jī)上：二是使用筆記本電腦的讀卡功能，直接拷貝測(cè)量數(shù)據(jù)。由于使用儀器的平差功能對(duì)數(shù)據(jù)進(jìn)行平差，平差后的數(shù)據(jù)將覆蓋原來的數(shù)據(jù)，因此不推薦采用儀器平差的方法，最好將原始數(shù)據(jù)完整導(dǎo)出，再通過平差軟件進(jìn)行后處理。目前， 已有專業(yè)軟件能將電

5、子水準(zhǔn)儀測(cè)量數(shù)據(jù)轉(zhuǎn)換成傳統(tǒng)的“測(cè)量記錄手簿”形式，但通用軟件的特點(diǎn)就是專門性、針對(duì)性不強(qiáng)。為了使數(shù)據(jù)處理自動(dòng)化程度更高，我們可以設(shè)計(jì)自己的算法，通過程序來處理數(shù)據(jù)。考慮到Microsoft Excel軟件是目前世界上最優(yōu)秀的表格處理軟件，方案是采用Microsoft Visual Basic60設(shè)計(jì)可視化界面，使用VB語(yǔ)言并結(jié)合Microsoft Excel對(duì)象來處理數(shù)據(jù)。4 程序的具體實(shí)現(xiàn)4.1程序流程圖4.2 數(shù)據(jù)提取 在程序中首先根據(jù)線路標(biāo)識(shí)按線路對(duì)數(shù)據(jù)進(jìn)行分離，并提取線路信息：即線路名稱、線路測(cè)量方法等。然后根據(jù)線路分化標(biāo)識(shí)逐站提取測(cè)量數(shù)據(jù)。 由于水準(zhǔn)測(cè)量中不同等級(jí)的水準(zhǔn)測(cè)量觀測(cè)順序不

6、同，如后前前后或后后前前，觀測(cè)方法不同，除常規(guī)觀測(cè)方法外還有可能采用單程雙轉(zhuǎn)點(diǎn)的方法，為了方便后期數(shù)據(jù)處理，在此針對(duì)各種觀測(cè)順序各種觀測(cè)方法，都將數(shù)據(jù)轉(zhuǎn)換成同一順序、同一格式的數(shù)據(jù)文件。4.3 在VB中引用Excel對(duì)象在VB中要想調(diào)用Excel，需要打開VB編程環(huán)境“工程”菜單中的“引用”項(xiàng)目，并選取項(xiàng)目中的“Microsoft Excel 11.0 object library”項(xiàng)。由于電腦中Excel版本不同，所以這個(gè)選項(xiàng)的版本號(hào)也是不同的。為EXCEL是以層次結(jié)構(gòu)組織對(duì)象的，其對(duì)象模型中含有許多不同的對(duì)象元素。 第一層：Application對(duì)象，即Excel本身； 第二層：workb

7、ooks對(duì)象集，指Excel的工作簿文件； 第三層：worksheets對(duì)象集，表示的是Excel的一個(gè)工作表；第四層：Cells和Range對(duì)象，指向Excel工作表中的單元格。4.4 Excel對(duì)象的創(chuàng)建及常用代碼Set   xlApp   =   CreateObject( "Excel.Application ")   '創(chuàng)建EXCEL對(duì)象 Set   xlBook   =   xlApp.Workbooks.Open( "文件名 ")   '打開已經(jīng)

8、存在的EXCEL工件簿文件 xlApp.Visible   =   True   '設(shè)置EXCEL對(duì)象可見（或不可見） Set   xlSheet   =   xlBook.Worksheets( "表名 ")   '設(shè)置活動(dòng)工作表 xlSheet.Cells(row,   col)   =值   '給單元格（row,col）賦值 xlSheet.PrintOut   '打印工作表 xlBook.Close   (True)

9、   '關(guān)閉工作簿 xlApp.Quit   '結(jié)束EXCEL對(duì)象 Set   xlApp   =   Nothing   '釋放xlApp對(duì)象 xlBook.RunAutoMacros   (xlAutoOpen)   '運(yùn)行EXCEL啟動(dòng)宏 xlBook.RunAutoMacros   (xlAutoClose)   '運(yùn)行EXCEL關(guān)閉宏4.5 采用模板技術(shù) 由于不同等級(jí)的水準(zhǔn)測(cè)量觀測(cè)方法略有差別，并且不同項(xiàng)目的水準(zhǔn)測(cè)量對(duì)記錄手簿都有不同的要求，為保

10、證在今后的使用中，用戶能夠方便的改變測(cè)量手簿的樣式、增添觀測(cè)內(nèi)容，在此針對(duì)不同等級(jí)的水準(zhǔn)測(cè)量制作不同的EXCEL模板，程序根據(jù)用戶輸入的觀測(cè)方法選擇對(duì)應(yīng)的模板。4.6 通過本程序?qū)崿F(xiàn)的水準(zhǔn)觀測(cè)手簿電子水準(zhǔn)測(cè)量記錄手簿測(cè)自：湯溪9 至：棲基2日期：10.14觀測(cè)順序：BFFB天氣：陰 呈像：清晰土質(zhì)：硬質(zhì)黃土儀器：DNA03336854測(cè)站視準(zhǔn)點(diǎn)視距讀數(shù)標(biāo)尺讀數(shù)讀數(shù)差(mm)測(cè)站高差(m)累計(jì)高差(m)備注后視后距1后距2后尺1后尺2前視前距1前距2前尺1前尺2累積差(m)視距差(m)高差1(m)高差2(m)1A16.1 6.1 0.5478 0.5479 0.0 17.1 7.0 1.6048 1.6049 0.0 -1.0570 -1.0570 -1.0 -1.0 -1.0570 -1.0570 0.0 213.8 3.8 1.4071 1.4071 0.0 23.6 3.6 1.7522 1.7523 -0.1 -0.3451 -1.4021 -0.8 0.1 -0.3451 -0.3451 0.0 5 總結(jié)5.1 當(dāng)前電子水準(zhǔn)儀技術(shù)比較成熟，具有操作簡(jiǎn)單、讀數(shù)客觀、自動(dòng)記錄等很多優(yōu)點(diǎn)，電子水準(zhǔn)儀越來越多的應(yīng)用于水準(zhǔn)測(cè)量中，為保證按要求提供規(guī)范的水準(zhǔn)測(cè)量手簿，了解水準(zhǔn)儀數(shù)據(jù)文件格式、開發(fā)擁有自主專利的數(shù)據(jù)處理軟件非常有必要。5.2 由于本程序采用模板技術(shù)，