电子水准仪数据的表格输出
二等水准测量记录及计算表格
目标
前后视
标尺读数(m)
读数差/△h(mm)
高程(m)
平距d(m)/△dld
备注
后视
前视
后-前
平均高差
后视
前视
后-前
平均高差
后视
前视
后-前
平均高差
后视
前视
后-前
平均高差
后视
前视
后-前
平均高差
后视
前视
后-前
平均高差
日期：仪器：观测者：
记录者:
天气:
高差：m
返测
距离：Km
高差：m
备注
测量职业技能竞赛二等水准测量往返路线计算表
占
八、、
名
往测
返测
测段
路线 闭合差改 正
mm
改正后高差
高程
m
距离
km
高差
m
距离km
高差m
距离km
高差
m
不符值
mm
允许值mm
30.000
路线闭合差限差
fh=
计算
h
校核
路线闭合差
fh
注：按距离进行闭合差分配。
测量员技能竞赛电子水准仪二等水准测量记录表
备注测量职业技能竞赛二等水准测量往返路线计算表路线闭合差改mm改正后高差距离km高差距离km高差m距离km高差不符值mm允许值mm30000校核路线闭合差限差注
测段小结信息记录表
参赛选手号码
日期
月 日
仪器类型
仪器号
标尺号
M1:M2:
测段
往测
距离：Km
高差：m
返测
距离：Km
高差：m
电子水准仪数据处理方法
显得 尤 为必 要 。 经过 不 断探 索 ， 们 发 现 Ｅ ｃｌ 解 我 ｘｅ 是 决此 类 问题 的有效 办法 。应 用表 明 ： ｘｅ 所编 程序 圆 Ｅ ｃｌ 满解 决 了电子 水 准仪 沉 降 观 测 数 据处 理 问题 ， 大 提 大 高 了内业计 算效 率及 成果 质量 ， 程序 界面 友好 ， 宜 其 适
成” 即可 。此 时需要 对 原始 文件进 行预 处理 ， 除错误 剔
和高精度 的特 点也 获得 了测 绘 ｌ作者 的高 度认 同。近 厂 年 来随 着咸 阳市 政 府 加 大 ｒ对 建 筑 物 质 量 的 监 控 力
度 ， 阳市勘 察测 绘 院 建 筑 物 沉 降观 测 任 务 量 直线 上 咸 升， 已成 为我 院经济 收入 的一 个重 要组 成部 分 ， 时针 此
为后＿ 一 后 ， 常观测 路线 采用 附合 或 闭合线 路 。 前 前一 通
观测完毕， 利用拓普康专用下载工具下载测量数 ３ 工作表 单元格公 式和“ 程序 的编辑 宏”
据 ， Ｅ ｃｌ 开 已 下 载 的测 量 数 据 文 件 ， 意 在 “ 用 ｘｅ 打 注 文
工 程 名 称 ： 庆 石 油 ２ ＃ 沉 降 观 测 长 ８楼
般 人员掌 握利 用 。
２ 沉 降观 测 和数 据 处 理 步 骤
这 里首先 对沉 降观 测 和数据 处理 步骤 做一 简 单 描 述， 以便有 一 个整体 概 念 ， 其关 键 问题 的解 决办 法将 在 后 面 给出具体 阐述 。 咸 阳市勘 察测 绘 院所 用 仪 器 为拓 普 康 Ｄ 一 １ Ｌ １ Ｃ， １ 依据 《 建筑 变形 测量 规程 》 Ｇ — ７进 行 作业 ， ＪＪ ９ ８ 观测 前 设定 观测 限差 ， 前后 尺距 离用皮 尺 预先 丈量 ， 测顺 序 观
最新徕卡DNA03电子水准仪数据传输及处理操作步骤
.
'. 最新徕卡DNA03电子水准仪数据传输及处理操作步骤
1.用数据传输线将电脑与仪器连接好。
2.打开LEICA Geo office-Tools软件，出现一个Tips小窗口，点击关闭即可。
3.在左侧栏里，选择Tools，点击出现下拉菜单，再点“Date Exchange Manager”，再选择“Serial Ports”，点击“Com1”，水准仪自动开机，选择“Internal memory”→“Files”→“Jobs”，找到当天的文件。
4.在D盘或E盘里，新建一个文件夹，以当天观测日期命名。
5.再回到传输界面里，右侧栏里会有“我的电脑”，在里面找到刚才所建文件夹。
6.将仪器当天所测Jobs文件夹拖入所建文件夹中，此时会自动弹出“Download”小窗口，小窗口里、Format GSI，点击Start。
（为原始数据）
7.再将所测Jobs文件夹，拖入所建文件夹中一遍。
在Download小窗口里，选择20140606.mdt、Format Linelevel,再点击Start。
此份数据用于平差处理。
8.关闭此软件。
电子水准仪数据处理方法
电子水准仪数据处理方法王德成【摘要】介绍了用Excel处理电子水准仪托普康DL-111C沉降观测数据的有关方法和技巧,包括数据的传输、利用公式和宏程序进行平差及成果打印输出,其程序适合生产部门使用.【期刊名称】《城市勘测》【年(卷),期】2011(000)002【总页数】3页(P155-157)【关键词】Excel;"宏"程序;电子水准仪;建筑物沉降观测【作者】王德成【作者单位】咸阳市勘察测绘院,陕西咸阳712000【正文语种】中文【中图分类】P209目前电子水准仪已得到了广泛应用，其快捷、方便和高精度的特点也获得了测绘工作者的高度认同。
近年来随着咸阳市政府加大了对建筑物质量的监控力度，咸阳市勘察测绘院建筑物沉降观测任务量直线上升，已成为我院经济收入的一个重要组成部分，此时针对大量的数据处理工作开发出一套行之有效的办法就显得尤为必要。
经过不断探索，我们发现Excel是解决此类问题的有效办法。
应用表明:Excel所编程序圆满解决了电子水准仪沉降观测数据处理问题，大大提高了内业计算效率及成果质量，其程序界面友好，适宜一般人员掌握利用。
这里首先对沉降观测和数据处理步骤做一简单描述，以便有一个整体概念，其关键问题的解决办法将在后面给出具体阐述。
咸阳市勘察测绘院所用仪器为拓普康DL－111C，依据《建筑变形测量规程》JGJ 8－97进行作业，观测前设定观测限差，前后尺距离用皮尺预先丈量，观测顺序为后－前－前－后，通常观测路线采用附合或闭合线路。
观测完毕，利用拓普康专用下载工具下载测量数据，用Excel打开已下载的测量数据文件，注意在“文本导入向导”中选择“固定宽度”，然后直接点击“完成”即可。
此时需要对原始文件进行预处理，剔除错误的、不参与计算的行，即首先搜索文件中“Operation Error”(操作错误)、“Evaluation Error”(观测值超限)等错误行，然后选择有错误的行，单击鼠标右键，整行删除，使其他行自动向上移动，形成1221 2332 3443……序列。
电子水准仪数据传输及转换程序操作说明
电⼦⽔准仪数据传输及转换程序操作说明第1章系统菜单和⼯具栏介绍1.1 系统菜单(1) ⽂件⽂件菜单的主要功能如图1-1所⽰：新建：新建⽂本⽂件，如Trimble电⼦⽔准仪数据观测⽂件等。
打开：打开Trimble或Leica电⼦⽔准仪原始数据观测⽂件。
保存：对修改过的电⼦⽔准仪原始观测数据进⾏保存。
当未打开原始观测数据之前，该选项显⽰为灰⾊，即不可⽤。
图1-1 ⽂件菜单另存为：对电⼦⽔准仪未修改或修该过的原始观测数据另存为其它⽂件。
当未打开原始观测数据之前，该选项显⽰为灰⾊，即不可⽤。
打印：对原始观测数据进⾏页⾯设置，并将设置好的内容进⾏打印输出。
退出：退出电⼦⽔准仪数据传输及转换程序。
（2）编辑编辑菜单的主要功能如图1-2所⽰：图1-2 编辑菜单2全选：对原始观测数据进⾏全部选择。
剪切：对所选的数据进⾏切除，并将其内容放⼊剪贴板中。
复制：将当前所选的原始观测数据复制到剪贴板中去。
粘贴：将剪贴板中的内容复制到当前光标所在处。
删除：删除当前所选的原始观测数据。
查找：在原始数据⽂件中对符合要求的数据、字母或其它特殊符号进⾏查找，并将当前光标停留在查找处。
（3）数据传输数据传输菜单的主要功能如图1-3所⽰：仪器类型：当从不同类型的仪器上下传原始观测数据时，就应在仪器类型选项上选择不同的仪器。
在仪器类型菜单中，⼜有Trimble 、Leica 、Nikon 图1-3 数据传输菜单三个⼦菜单。
图1-4 通讯参数设置3通讯参数设置：单击该选项，可出现如图1-4所⽰的通讯端⼝对话框，在该对话框中，可对数据通讯端⼝、数据传输最⼤速度、数据位、奇偶位等通讯参数进⾏设置。
从仪器下传数据：当仪器类型和通讯参数设置都选择好之后，连接计算机和电⼦⽔准仪，当击该选项即可从电⼦⽔准仪上下载原始⽔准测量数据。
（4）仪器类型仪器类型菜单的主要功能如图1-5所⽰：Trimble:当⽔准测量的观测仪器为Trimble 且原始观测数据已打开，应在仪器类型菜单中选择Trimble 对原始观测数据进⾏转换整理。
EXCEL-VBA 实现徕卡 DNA03电子水准仪数据自动处理
EXCEL-VBA 实现徕卡 DNA03电子水准仪数据自动处理张卫【摘要】主要阐述怎样利用 EXCEL 宏和 VBA 语言编写程序，实现徕卡 DNA03电子水准仪数据自动化处理，以满足工程的需要。
【期刊名称】《技术与市场》【年(卷),期】2016(023)008【总页数】2页(P64-64,66)【关键词】EXCEL-VBA;电子水准仪;数据自动处理【作者】张卫【作者单位】葛洲坝测绘地理信息技术有限公司，湖北宜昌 420002【正文语种】中文徕卡DNA03电子水准仪以其高精度性和稳定性，在精密水准测量中得到广泛应用。
徕卡DNA03电子水准仪的数据格式也较为独特，其观测数据不能直接为其他软件使用，而且数据也不便于直接观察和分析。
利用EXCEL-VBA编程功能，可对徕卡DNA03电子水准仪观测数据进行自动化处理，实现内外业一体化功能。
徕卡DNA03电子水准仪有两种数据存储格式，分别为GSI-8(8位字符)格式和GSI-16(16位字符)格式。
在精密水准测量中采用的方法是“aBFFB”，奇数站BFFB、(后-前-前-后)、偶数站FBBF(前-后-后-前)。
本程序设计思路是用EXCEL-VBA编写代码实现GSI数据格式自动处理。
首先对GSI进行分割处理，将无用的索引剔除，然后将有用的测段间距和测段高差进行筛选统计，根据平差软件的要求形成标准格式，如科傻IN1水准平差数据格式。
第一步：打开EXCEL用录制宏的方法将数据进行分列和替换Private Sub CommandButton1_Click()Dim k(), xo(), yo(), ao(), zj(), r(), ls1(), ls2(), sj()Do While Cells(M + 3, 2).Value <>"" '检测表格有无数据M=M + 1LoopApplication.CutCopyMode = FalseSelection.TextToColumns Destination:=Range("B4"),DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(24, 1), Array(48, 1), Array(72, 1), Array(96, 1), _Array(120,1)),TrailingMinusNumbers:=True '数据分列Range(Cells(4,3),Cells(M+3,8)).Select '选择替换ActiveWindow.SmallScroll Down:=-222Selection.Replace What:="*+", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=FalseSelection.Replace What:="*-", Replacement:="-", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=FalseRange(Cells(4, 2), Cells(M + 3, 2)).Select '选择替换Selection.Replace What:="*+", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ReplaceFormat:=False第二步：对测段间距和测段高差进行筛选统计For N = 5 To M + 2 Step 5 '检测测段If TypeName(Cells(N, 2).Value) = "String" Then'使用 TypeName 函数返回有关变量的信息ss = ss + 1End IfNext NDim cs(ss), jl(ss), dh(ss)ii = 0For N = 5 To M + 2 Step 5 '测量每段高差gc = Cells(N, 9) + gcIf TypeName(Cells(N, 2).Value) = "String" Thenii = ii + 1cs(ii) = gcCells(N, 12).Value = Format(cs(ii)-cs(ii-1), "#####.########") End IfNext N第三步：形成标准平差数据格式Selection.CopySheets("平差格式").SelectWorksheets("平差格式").Range("A3").Select ActiveSheet.PasteSelection.SpecialCells(xlCellTypeBlanks).SelectApplication.CutCopyMode = FalseSelection.EntireRow.Delete4 结语EXCEL-VBA是微软公司在EXCEL平台上开发出来的一种通用的自动化语言。
DNA03电子水准仪原始数据编制软件使用说明书.
开始日期、结束日期:指需要编制数据的时间段。
列入上面以2011-4-20开始至2011-5-26结束,按7天一次的观测频率,结果将生成以下6个原始数据文件。
知点;z表示转点;g表示观测点,均用小写
表示,如果测段数据由多段组成可以首
位相接,如右图所示
Sheet2工作表中存储了控制点观测台账,如下图所示
在执行时会依据观测时间与台账进行
对比,将高程控制点用内插法解决控
制点区域沉降问题。如果不想将控制
点进行内插高程,将每期的高程值填
入相同的值即可,即使内插也是本身
DNA03电子水准仪原始数据编制软件使用说明书
程序的主要用途:
依据已有的点高差、距离编制成各等级水准原始观测数据*.GSI
格式数据(分8位、16位的单次读数格式和多次读数格式可选。
程序界面
数据准备
参数设置
数据编制
完成
操作步骤
点名用实际点名输入,过渡点点名不用考虑,全部用1或Z表示(如左表所示;高程栏输入转点的高程,高程尽可能保留5位小数。根据需要可以在两控制点之间内插N个高程点(即为测站数,如左表中
1,1241.985,38.7
CPI085,1242.586,15.3转点用“1”或者以“z”开头表示,形成的转点点名将会以Z1、Z2、Z3……….。依次类推形成转点点名。
如果想从已经测得的原始数据中提取测站点名、高程、距离参数可以直接在文件菜单下选择数据转换进入
数据转换界面(如下图所示,然后选择《数据形成/平差》选项即可将原始观测数据形成需要的编制数据。在执行之前请选择好测量模式,或者提取出来的数据将会出错。数据提取出来后,可以自由编辑。增加或
高程、视距长度数据都会不一样。
3_第三讲 徕卡数字水准仪格式转换及输出
2014/5/16
3
3.1徕卡数字水准仪格式
The GSI-8 block has in total 16 characters, consisting of 7 information characters (e.g. WI, sign), followed by 8 data characters and by the blank character (ASCII code 32) at the end of the data word. The GSI-16 block is similar to the GSI-8 block but the block begins with "*" and the data word contains 16 characters for large values such as UTM coordinates, large alphanumeric codes, attributes or point IDs.
2014/5/16
4
3.1徕卡数字水准仪格式
GSI-8格式 | 字1 | 字2 | 字3 | 1234567890123456 (每个字16位) 110001+0000A110 81..00+00005387 82..00-00000992 110002+0000A111 81..00+00007586 82..00-00003031 110003+0000A112 81..00+00007536 82..00-00003080 | 8位 | GSI-8 数据字结构: 1-2 位：字索引(WI) 例如 "11" 表示点号 3-6 位：数据相关信息 例如 第三个数据块第一字中的 "0003" 表示块号 7 位：符号位 例如 "+" 或 "–" 8-15位：数据(8 位) 例如 "0000A111" 为点号 16 位：空格 为字之间的分隔符
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
电子水准仪数据的表格输出
【摘要】本文主要是对拓普康数字水准仪记录数据的后期处理，利用VB6.0开发的小程序，对原始观测数据进行提取，生成水准规范中要求的观测手簿格式，提高电子水准仪一体化、自动化程度的效果。
【关键词】数字水准仪观测手簿 VB
一引言
1994年蔡司厂研制出了电子水准仪DiNi10/20，同年拓普康厂也研制出了电子水准仪DL101/102。
这意味着电子水准仪也将普及，并开始了激烈的市场竞争。
同时也说明，目前还是几何水准测量的精度高，没有其它方法可以取代。
GPS技术只能确定大地高，大地高换算成工程上感兴趣的正高，还需要知道高程异常，确定高程异常还少不了精密水准测量。
二电子水准仪的原理及数据格式
数字水准仪又称数字电子水准仪，它是在自动安平水准仪的基础上发展起来的。
数字水准仪具有能减轻作业劳动强度、测量数据便于输入计算机和容易实现水准测量内外业一体化的特点。
当前数字水准仪采用了原理上相差较大的三种自动电子读数方法：
1）相关法（徕卡NA3002/3003）
2) 几何法（蔡司DiNi10/20）
3) 相位法（拓普康DL101C/102C）
它与传统仪器相比有以下共同特点：
1)读数客观。
2)精度高。
3)速度快。
4)效率高。
本文主要以拓普康DL系列电子水准仪为例，具体的仪器设定和外业操作就不再叙述，详见说明书。
外业仪器采集的数据格式如下（本文中以“后后前前(ghij)”观测数序）：
g,A8,+92121,+8412,,,,HX72,HX72,0809,?,
h,A8,+92126,+8410,,,,HX72,HX72,0809,C,
i,A8,+257668,+6790,+36734453,,,1,HX72,0809,A,
j,A8,+257677,+6791,+36734449,,,1,HX72,0809,H,
g,A8,+56810,+5976,,,,1,HX72,0811,1,
h,A8,+56835,+5970,,,,1,HX72,0811,3,
i,A8,+232108,+8894,+36559155,,,2,HX72,0811,4,
j,A8,+232109,+8892,+36559175,,,2,HX72,0811,6,
……
此格式每连续四行记录了完整一站的观测数据，本文中我们只关心有用的数据，如：测站代码，，中丝读数，视距，，，，点号或点名，，，，
三程序实现
3.1 首先提取原始数据中可用的部分
利用VB中字符串截取函数转换其中有用的数据，生成后期程序所需要的数据格式，把四行的数据合并为一行，部分程序代码如下：
运行程序生成如下数据格式：
3.2 根据上面的数据在Excel中格式化输出
在Excel中可以打开内容被TAB符或逗号分割的文件，并且能正确的分解数据到相应的单元格中。
如果文本文件具有.csv扩展名，Excel直接打开文件而不会出现导入向导。
所以我们直接根据上面的数据文件生成后缀名为.csv的文件，并根据测站数量分页，还应在输出过程中计算高差、累计高差、视距、视距差、累计视距等数据。
对于观测手簿表头我们也进行了程序自动生成。
输出的文本文件数据格式如下：
后台运行EXCEL
Dim SZExcel As Object
Dim SZBook As Object
Dim P As Integer, DygZ As String, DygP As String
Set SZExcel = CreateObject("Excel.Application")
向EXCEL中传输数据
Set SZBook = SZExcel.Workbooks.Open("C:\观测表格.csv")
在表格中设置单元格的字体、行高、对齐方式以及格式化显示等。
如
DygZ = "A1:M" + Trim(Str(PageY * 65)) 'PageY为页码的变量
.Range(DygZ).RowHeight = 11 '行高
.Range(DygZ).Font.Size = 9 '字体大小
.Range(DygZ).HorizontalAlignment = 3 '居中
.Range(DygZ).VerticalAlignment = 2 '垂直居中
……
保存文件并退出
SZBook.SaveAs MIDfile, xlWorkbookNormal 'MIDfile变量为表格存放路径及文件 SZExcel.Quit
最后生成的观测手簿如下图：
在表格中设置了红黑读数和上下丝读数，是出于对传统表格和光学仪器观测数据转换等方面的考虑，在使用中可以根据实际情况修改表格内容。
四结束语
由于篇幅有限，本文只简单介绍了程序实现的基本方法，在实际编程中还有重测测站的筛选、闭合差计算以及高程自动配赋等工作就不一一叙述。
对于表格细节设计中一些程序代码，我们可以通过调用VBA宏的方法来查看。
具体方法是：在Excel中录制一段宏，这段宏是与所编程序的操作有关系的，然后编辑此宏，就得到Visual Basic代码，再查找相对应的属性或方法，复制下来粘贴到VB程序中去。
有了这些VBA代码，就可以在VB 程序中操作相应的Office对象了，从而使我们的程序如虎添翼。
参考文献
【1】张树兵等.VisualBasic6.0中文版入门与提高.北京:清华大学出版社，1999
【2】赵栋伟,松蕊等,Excel2000中文版速成[M].北京:机械工业出版社,1999
【3】孙敬杰,Excel VBA入门与实例演练[M].北京:中国青年出版社,2005。