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

天宝 dini03 电子水准仪数据格式转换Conversion of Data Format of Timble Dini03 Electroni 天宝 dini03 电子水准仪数据格式转换 Conversion of Data Format of Timble Dini03 Electronic Level 吴克胜，雷顺文 （安徽二水测绘院 ，安徽 芜湖 241000） 摘 要：天宝 dini03电子水准仪以精度高、方便快捷等优点正被广泛用于工程测量工作中，但随机软件传输的数据格式不适合水准规范要求。文章 以 Microsoft Visual Basic 06(VB06)语言编程来读取文件数据，生成文本格式和清华三维平差的数据格式，以便于数据处理，并自动生成满足规范要 求的水准记录手簿。 关键词：天宝 dini03 电子水准仪；格式转换；VB06 程序设计；水准手簿；清华三维平差格式 中图分类号：P 631.1+3 文献标识码：A 文章编号：1007- 7359(2011)06- 0184- 02 1 概 述 Trimble 的 DiNi03 电子水准仪是集光学技术、电子技术、 数字图像处理技术以及计算机技术于一体的高新技术产品，是 一款方便、易用、精确高效的水准测量工具。虽然其有诸多优 点，但美中不足的是随机软件下载的原始数据格式不适合水准 规范要求和数据处理。鉴于此，笔者利用 VB06 可视化程序设 计语言对数据通讯软件下载的数据进行格式转换，可转换成数 据成果的文本格式，适用于清华三维平差软件直接读入的数据 格式，并利用 Micorsoft Excel 生成标准的水准手簿格式。 检 测 试 验 与 测 量 技 术 图 3 程序运行界面 天宝 dini03 电子水准仪原始数据格式 2 天宝 dini03 电子水准仪原始数据格式（见图 1）共有二种， 水准测量中主要使用天宝的 REC E 原始数据格式。REC E 原 始数据格式一行记录中共包含有 118 个字符，共分为六个部 分，其中：第一部分 1~6 字符为文件头，用来说明文件格式；其 余五部分为数据块，第一数据块 8~16 字符用来记录数据行存 储地址；第二数据块 18~48 字符用来记录点名、测量时间和测 量次数以及测量时情况等；第三数块 50~71 字符用来记录前后 视标识、计数、单位等；第四数据块 73~94 字符用来记录视距、 单位等；第五数据块 96~117 字符用来记录高程和单位等。各部 分用一个字符“｜”来表示分割标识符。 图 4 超限显示 编程思路 3 打开文件 N 逐行读取数字，并存入数组 Y 预处理 点名信息处理 安 徽 建 筑 图 5 水准手簿 生成水准手簿 生成文本文件和平差格式数据文件 程序基本编写思路如图 2 所示。 预处理主要是除去水准测量工作中测错等所记录下来的 数据；点名信息是当已知点和未知点的编号前辍分别只是单一 的情况时，采用前辍按钮功能；当已知点或未知点编号不是单 图 2 程序设计框图 收稿日期：2011- 08- 28 作者简介：吴克胜（1962- ），男，高级工程师，主要从事工程测量工作。 184 、 图 1天宝 dini03 电子水准仪原始数据格式CommonDialog1.Filter 图 1 天宝 dini03 电子水准仪原始数据格式 CommonDialog1.Filter = all files(*.*) CommonDialog1.ShowOpen 打开有判断功能，当打开的不是天宝水准数据格式时，提 示您重新打开文件。 4.2 预处理 将数据文件按行读入数组 TB(n,0~5)，数组中第二维的下 标 0~5 表示数据一行的六个部分，并从第二数据块中提取点名 部分，形成一个点名字符串。 4.3 生成水准手簿 ①Execl 对象的建立： Dim ObjExl As Excel.Application Dim ObjBook As Excel.Workbook Dim ObjSheet As Excel.Worksheet Set ObjExl = CreateObject(Excel.Application) Set ObjBook = ObjExl.Workbooks.Open(str1) Set ObjSheet = ObjExl.Worksheets(1) ②Execl 单元格的数据写入： ObjSheet.Cells (Lenum * 53 + j * 3 + 1, 5) = Format(TBrb1, #0.00000)。 通过循环将数据写入 Excel 表格的相应单元格中。 Format(TBrb1, #0.00000)保证格式的统一。 ③限差检查： 如果超限则将单元格字