賈丙普,彭喜林
(中國水電顧問集團中南勘測設計研究院有限公司,湖南 長沙410014)
DNA03是徠卡公司新一代數字水準儀,中文界面,操作更容易,速度更快,超大顯示屏,顯示的內容更豐富,測量精度達到0.3 mm/k m。
DNA03儀器默認數據輸出格式為GSI格式,可讀性較差,并且不能滿足電子手簿打印格式要求。在亭子口水利樞紐工程二等水準測量工程中,利用LEICA Geo Office軟件提供的“格式管理器”自己定制數據輸出格式,并結合EXECL表格中的VBA宏命令輸出規定格式的水準記錄手簿。
水準測量輸出數據格式應內容齊全、結構清晰,并滿足現行規范要求,需輸出作業名稱、作業時間、線路名稱、作業方法、測站前后視中絲讀數、前后視距離、線路總站數、累計視距差、累計距離、累計高差等觀測數據。
定制DNA03水準數據輸出格式首先使用格式管理器在計算機上進行。格式管理器是LEICA Geo Office軟件中的一個模塊,軟件啟動新建文件,類型選“DNA_Standar d”,啟動后界面見圖1。

圖1 格式管理器
格式文件變量輸出設置宜先在菜單 “選項”—“設置”中設長度單位為“Meter”,“選項”—“默認格式化”中設置對齊方式、長度、精度等,并選擇應用到每個新格式,以保證輸出數據整齊、美觀。
主要導出格式串如下:
Job項:導出作業名稱,作業年、月、日等,編輯區中代碼如下:
Job Name,Date(Long year 2003),Date(Month),Date(day)
Lines項:導出線路名稱、測量方法等,編輯區中代碼如下:
Line Name,Met hod
Measurement All項:導出測站全部讀數,前后視中絲讀數、距離等,編輯區中代碼如下:
Point ID,┌Staff Reading,┌Distance,┌d Ht(+),┌d Ht
Station Results項:導出測站結果,包括測站高差、累計視距差、累計距離,編輯區中代碼如下:
d Ht,┌Distance(Balance),┌┌Distance(Station)
Line Results項:導出線路結果,為便于后續處理和閱讀,前3行為說明文字和分隔符號,編輯區中代碼如下:
線路結果
==================
線路總站數:累計距離:累計視距差:總高差:
nu mber of stations,┌┌distances(Total),┌distances(Balance),┌d Ht(Total)
定制完成后保存為 TZK.frt文件,連接DNA03水準儀,采用LEICA Geo Office軟件中的“數據交換管理”將該文件上傳至儀器的格式文件組位置。
在傳輸作業數據時選擇自定義格式中的“TZK.frt”,生成 ASCII碼文本文件,一般命名為Job.asc(作業名稱加.asc)。
首先在EXCEL中新建文件,并將Sheet1表重命名為“模板”,在表中設置好電子水準測量記錄手簿標題格式,其下部觀測數據由宏命令生成。將Sheet2表重命名為“數據”。
Visual Basic f or Applications(VBA)是 Microsoft Office軟件附帶的一種Visual Basic宏語言,主要用來擴展Office的應用程式功能。
利用VBA實現從文本文件Job.asc到EXCEL工作簿的轉換,每條水準線路生成一個EXCEL工作表,觀測數據全部整理到一個工作簿中。
VBA設計思路如下:讀入作業文件到工作表“數據”中,復制“模板”工作表,并重新以線路名為名稱,寫觀測數據;一條線路完成后,重復復制、命名、寫數據等工作;繼續下一條線路,直至本作業的所有線路完成。程序流程如圖2所示。

圖2 數據轉換流程
VBA部分代碼如下:
Sub導入文本文件()
Di m f d As String
f d= Application.Get Open Filename(FileFilter:="ASC文件(*.asc),*.asc",Title:="請選擇水準ASC文件")
With ActiveSheet.Query Tables.Add(Connection:="TEXT;" &f d,Destination:=Range("A1"))
.Text File Ot her Deli miter= "," "分隔符可自己定義
.Text File Col u mn Data Types= Array(1,1,1,1,1,1)
.Refresh Background Query:=False
End With
Application.Run"mysu m" "運行子程序mysu m寫觀測數據
End Sub
在“數據”工作表中新建一文本框“水準轉換”,右鍵單擊該文本框,單擊快捷菜單中的“指定宏”進行設置,將導入文本文件宏指定給該文本框。然后將EXCEL文件另存為模板文件“徠卡水準.xlt”備用。
利用模板“徠卡水準.xlt”新建文件EXCEL并啟用宏,點擊“水準轉換”運行宏命令,按提示打開作業文件進行轉換即可。
在亭子口水利樞紐首級施工控制網二等水準測量過程中,使用本方法進行DNA03數據處理。全部測段數據統一存儲于一個EXCEL文件中,輸出數據內容齊全、結構清晰、樣式美觀、節約紙張。一個只有4個測站的線路輸出記錄手簿如圖3所示。

圖3 水準測量記錄手簿
徠卡DNA03數字水準儀讀數客觀、精度高、速度快,能夠減輕作業強度,測量結果便于輸入計算機,容易實現水準測量內外業一體化,現已廣泛應用于各等級水準測量中。但也存在數據輸出格式與我國現行水準測量規范不一致、不易讀等缺陷,利用本文提出的方法可較好地解決這一問題。在亭子口水利樞紐工程二等水準測量中,利用“格式管理器”和VBA實現了DNA觀測數據到規定格式水準手簿的快速轉換,提高工作質量和效率。
[1] 岳龍.數字水準儀的基本測量原理與使用[J].測繪與空間地理信息,2014,37(4):190-191.
[2] 王亞琳.淺談電子水準儀的特點及注意事項[J].測繪與空間地理信息,2014,37(4):214-215.
[3] 袁崢.LEICA DNA數字水準儀測量數據輸出格式研究[J].大壩與安全,2009(S1):70-71,75.
[4] 鄒進貴,余 銳,紀志剛.DINI03數字水準儀內存記錄數據轉換方法研究[J].測繪地理信息,2013(8):16-17,23.
[5] 鄺良寒,胡華興.電子水準儀數據處理系統[J].湖南水利水電,2012(1):36-37,41.
[6] 包民先,殷忠.Di Ni12數字水準儀進行基坑監測的技術指標探討及應用[J].測繪工程,2011,20(6):57-60.
[7] 付江缺,高萬柱,裴良臣.水準網自動處理模型及程序實現[J].測繪工程,2013,22(5):69-70,74.
[8] 汪平,孫雪潔,許家琨,等.基于Visual Basic實現徠卡DNA03電子水準儀數據處理[J].海洋測繪,2013(6):56-58.
[9] 易天陽,王雙洪.Di Ni03電子水準儀的數據格式轉換程序設計及實現 [J].測繪與空間地理信息,2013(11):205-207.
[10]陳小歌,余代俊,毛川.弱光線對數字水準儀測量的影響分析[J].測繪工程,2014,23(2):64-65.
[11]熊指南.國產數字水準儀溫度性能測試與研究[J].測繪工程,2014,23(7):72-75.