天宝dini03电子水准仪数据格式转换.pdf

《天宝dini03电子水准仪数据格式转换.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、2011年第6期(总181期)安徽建筑天宝dini03电子水准仪数据格式转换ConversionofDataFormatofTimbleDini03ElectronicLeve吴克胜，雷顺文(安徽二水测绘院，安徽芜湖241000)摘要：天宝dini03子水准仪以精度高、方便快捷等优点正被广泛用于工程测量工作中，但随机软件传输的数据格式不适合水准规范要求。文章以MicrosofcVisualBasicO6B06)语言编程来读取文件数据，生成文本格式和清华三维平差的数据格式，以便于数据处理，并自动生成满足规范

2、要求的水准记录手簿。关键词：天宝dini03电子水准仪；格式转换；VB06程序设计；水准手簿；清华三雏平差格式中图分类号：P631．1文献标识码：A文章编号：1007—7359(2011)06—0184—021概述Trimble的DiNi03电子水准仪是集光学技术、电子技术、数字图像处理技术以及计算机技术于一体的高新技术产品，是一款方便、易用、精确高效的水准测量工具。虽然其有诸多优点，但美中不足的是随机软件下载的原始数据格式不适合水准规范要求和数据处理。鉴于此，笔者利用VB06可视化程序设计语言对数据通讯

3、软件下载的数据进行格式转换，可转换成数据成果的文本格式，适用于清华三维平差软件直接读人的数据格式，并利用MicorsoftExcel生成标准的水准手簿格式。图3程序运行界面2天宝dini03电子水准仪原始数据格式天宝dini03电子水准仪原始数据格式(见图1)共有二种，水准测量中主要使用天宝的RECE原始数据格式。RECE原始数据格式一行记录中共包含有118个字符，共分为六个部分，其中：第一部分1~6字符为文件头，用来说明文件格式；其余五部分为数据块，第一数据块8～16字符用来记录数据行存储地址；第二数据

4、块l8～48字符用来记录点名、测量时间和测量次数以及测量时情况等；第三数块50—71字符用来记录前后视标识、计数、单位等；第四数据块73～94字符用来记录视距、单位等；第五数据块96117字符用来记录高程和单位等。各部分用一个字符“J”来表示分割标识符。图4超限显示3编程思路圈5水准手簿程序基本编写思路如图2所示。图2程序设计框图预处理主要是除去水准测量工作中测错等所记录下来的数据；点名信息是当已知点和未知点的编号前辍分别只是单一-■收作稿者简日期介：2011—08—28的情况时，采用前辍按钮功能；当已知

5、点或未知点编号不是单：昊克胜(1962一)，男，高级工程师，主要从事工程测量工作。安徽建筑2011年第6期(总181期)F_钟--．·1·’-，‘⋯··r，-一t一，一，rr一，-·-一．1_k49792一-蚓llRf‘O。8嘻O51’豫-‘i}r⋯l哇'7l8·蔼‘一l’·一，，r打妇打胁打胁打’’’’‘、毽l64014强⋯，’。’=．强l_·、一。t⋯。‘lllib’一’O,64021舶’‘l髓’t’‘。‘l。235一嚣⋯，t·⋯，⋯，‘’一。1、馘’’’64085瓠⋯。。⋯氢．弧’氮‘。～。⋯一。‘

6、∞能荡i§髓l髓lt肋。^1l主jl硒天宝dini03电子水准仪原始数据格式_二一一CommonDialog1．Filter=“allfiles(*．1”S嚣CommonDialog1．ShowOpen巧喝—●—I打开有判断功能，当打开的不是天宝水准数据格式时，提f-一10—!!lll-．^il示您重新打开文件。OnvO0蘑．难．4．唾4．2预处理8毒SSS将数据文件按行读人数组TB(n，0—5)，数组中第二维的下地l睨l勰l弧∞‘11图标0～5表示数据一行的六个部分，并从第二数据块中提取点名部分，形成一

7、个点名字符串。4．3生成水准手簿(~)Exeel对象的建立：DimObjExlAsExce1．ApplicationDimObjBokAsExce1．WorkbookDimObjSheetAsExce1．WorksheetSetObjExl=CreateObject(”Exce1．Application”、图6点名信息编辑界面SetObjBok=ObjEx1．Workboks．Open(strl1SetObjSheet=ObjEx1．Worksheets(1)@)Execl单元格的数据写入：检测ObjSh

8、eet．CellsLenum53+j3+1，5)=Format(TBrb1，、”柏．00000”)。试验通过循环将数据写入Excel表格的相应单元格中。与Format(TBrb1，”#0．00000”)保证格式的统一。测量③限差检查：技如果超限则将单元格字体设为红色，且将这一站的超限术信息写入程序界面的文本框内，如图4所示。如视线高检查代码：IfTBrbl<0．55OrTBrbl>2．8Then图7文本格式ObjSheet．C