电子水准仪数据的表格输出.docVIP

电子水准仪数据的表格输出 【摘　要】　本文主要是对拓普康数字水准仪记录数据的后期处理，利用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,+座机电话号码,,,1,HX72,0809,A, j,A8,+257677,+6791,+座机电话号码,,,1,HX72,0809,H, g,A8,+56810,+5976,,,,1,HX72,0811,1, h,A8,+56835,+5970,,,,1,HX72,0811,3, i,A8,+232108,+8894,+座机电话号码,,,2,HX72,0811,4, j,A8,+232109,+8892,+座机电话号码,,,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 最后生成的观测手簿如下图： 在表格中设置了红黑读数和上下丝读数，是出于对传统表格和光学仪器观测数据转换等方面的考虑，在使用中可以根据实际情况修改表格内容。 四 结束语 由于篇幅有限，本文只简单介绍了程序实现的基本方法，在实际编程中还有重测测站的筛选、闭合差计算以及高程自动配赋等工作就不一一叙述。对于表格细节设计