2022年电子水准仪数据的表格输出 .pdf

《2022年电子水准仪数据的表格输出 .pdf》由会员分享，可在线阅读，更多相关《2022年电子水准仪数据的表格输出 .pdf（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1 电子水准仪数据的表格输出【摘要】本文主要是对拓普康数字水准仪记录数据的后期处理，利用VB6.0 开发的小程序，对原始观测数据进行提取，生成水准规范中要求的观测手簿格式，提高电子水准仪一体化、自动化程度的效果。【关键词 】数字水准仪观测手簿 VB 一 引言1994年蔡司厂研制出了电子水准仪DiNi10/20 ，同年拓普康厂也研制出了电子水准仪DL101/102。这意味着电子水准仪也将普及，并开始了激烈的市场竞争。同时也说明，目前还是几何水准测量的精度高，没有其它方法可以取代。GPS技术只能确定大地高，大地高换算成工程上感兴趣的正高，还需要知道高程异常，确定高程异常还少不了精密水准测量。二 电

2、子水准仪的原理及数据格式数字水准仪又称数字电子水准仪，它是在自动安平水准仪的基础上发展起来的。数字水准仪具有能减轻作业劳动强度、测量数据便于输入计算机和容易实现水准测量内外业一体化的特点。当前数字水准仪采用了原理上相差较大的三种自动电子读数方法：1）相关法（徕卡 NA3002/3003 ）2) 几何法（蔡司 DiNi10/20 ）3) 相位法（拓普康 DL101C/102C ）它与传统仪器相比有以下共同特点：1)读数客观。2)精度高。3)速度快。4)效率高。本文主要以拓普康DL系列电子水准仪为例，具体的仪器设定和外业操作就不再叙述，详见说明书。外业仪器采集的数据格式如下（本文中以“后后前前(g

3、hij)”观测数序）：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,

4、+36559175,2,HX72,0811,6, ,此格式每连续四行记录了完整一站的观测数据，本文中我们只关心有用的数据，如：测站代码，中丝读数，视距， ， ，点号或点名， ， ，三 程序实现3.1 首先提取原始数据中可用的部分利用 VB 中字符串截取函数转换其中有用的数据，生成后期程序所需要的数据格式，把四行的数据合并为一行，部分程序代码如下：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 3 页 - - - - - - - - - 2 运行程序生成如下数据格式：3.2

5、 根据上面的数据在Excel 中格式化输出在 Excel 中可以打开内容被TAB符或逗号分割的文件，并且能正确的分解数据到相应的单元格中。如果文本文件具有.csv 扩展名， Excel 直接打开文件而不会出现导入向导。所以我们直接根据上面的数据文件生成后缀名为.csv 的文件，并根据测站数量分页， 还应在输出过程中计算高差、累计高差、视距、视距差、累计视距等数据。对于观测手簿表头我们也进行了程序自动生成。输出的文本文件数据格式如下：后台运行 EXCEL Dim SZExcel As Object Dim SZBook As Object Dim P As Integer, DygZ As St

6、ring, DygP As String Set SZExcel = CreateObject(Excel.Application) 向 EXCEL 中传输数据名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 3 页 - - - - - - - - - 3 观测表格 .csv) 在表格中设置单元格的字体、行高、对齐方式以及格式化显示等。如 DygZ = A1:M + Trim(Str(PageY * 65) PageY为页码的变量 .Range(DygZ).RowHeigh

7、t = 11 行高 .Range(DygZ).Font.Size = 9 字体大小 .Range(DygZ).HorizontalAlignment = 3 居中 .Range(DygZ).VerticalAlignment = 2 垂直居中,保存文件并退出 SZBook.SaveAs MIDfile, xlWorkbookNormal MIDfile变量为表格存放路径及文件 SZExcel.Quit 最后生成的观测手簿如下图：在表格中设置了红黑读数和上下丝读数，是出于对传统表格和光学仪器观测数据转换等方面的考虑，在使用中可以根据实际情况修改表格内容。四 结束语由于篇幅有限，本文只简单介绍了程

8、序实现的基本方法，在实际编程中还有重测测站的筛选、闭合差计算以及高程自动配赋等工作就不一一叙述。对于表格细节设计中一些程序代码，我们可以通过调用VBA宏的方法来查看。具体方法是：在Excel 中录制一段宏，这段宏是与所编程序的操作有关系的，然后编辑此宏，就得到Visual Basic代码，再查找相对应的属性或方法，复制下来粘贴到VB程序中去。有了这些VBA代码，就可以在VB程序中操作相应的Office对象了，从而使我们的程序如虎添翼。参考文献【1】张树兵等 .VisualBasic6.0中文版入门与提高. 北京 : 清华大学出版社，1999 【2】赵栋伟 , 松蕊等 ,Excel2000中文版速成 M. 北京: 机械工业出版社,1999 【3】孙敬杰 ,Excel VBA入门与实例演练M. 北京 : 中国青年出版社,2005 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 3 页 - - - - - - - - -