浅谈Excel VBA在地形图精度统计上应用.docVIP

浅谈Excel VBA在地形图精度统计上应用 　　摘要：在地形图的生产过程中质量检查是保证地形图产品质量的重要环节，对数字化地形图的数学精度统计中平面位置精度通常采用野外实测或室内套和采集同名点的方式获取检测点，与地形图上的同名点比较，计算较差，统计平面位置的中误差；高程精度采用野外实测的方式，获取特征点的点位高程，与地形图上的同名点比较或内插比较，计算较差，统计高程中误差。人工填写数据计算中误差不但工作量大工作量大、繁琐，计算还容易出错；利用程序自动化处理这个过程，能准确快速的计算出中误差，大大减轻了检查员的工作量。 　　关键词：Excel VBA精度统计中误差 　　 　　概述 　　 地形图（topographic map）是表示地表上的地物、地貌平面位置及基本的地理要素且高程用等高线表示的一种普通地图。在地形图的生产过程中质量检查是保证地形图产品质量的重要环节，测绘成果质量通过二级检查一级验收方式进行控制，即测绘成果应依次通过测绘单位作业部门的过程检查、测绘单位质量管理部门的最终检查和委托验收。检验内容包括：数学精度、地理精度、数据及结构正确性、整饰质量和和附件质量等。对数字化地形图的数学精度统计中平面位置精度通常采用野外实测或室内套和采集同名点的方式获取检测点，与地形图上的同名点比较，计算较差，统计平面位置的中误差；高程精度采用野外实测的方式，获取特征点的点位高程，与地形图上的同名点比较或内插比较，计算较差，统计高程中误差。由此可见计算平面与高程中误差成为统计地形图的数学精度中的一项重要的工作。人工填写数据计算中误差不但工作量大工作量大、繁琐，计算还容易出错；利用程序自动化处理这个过程，能准确快速的计算出中误差，大大减轻了检查员的工作量。在众多的开发程序中，Excel VBA因其高效率简单易学功能强大被广泛用于不同的行业中，它提供了强大的二次开发环境VBAIDE，VBA作为一种新一代的标准宏语言，具有跨越多种应用软件并且具有控制应用软件对象的能力，它可以实现的功能包括：（1）使重复性的任务自动化。（2）自定义Excel中工具栏菜单和窗体的界面。（3）简化模板的使用。（4）为Excel环境添加额外的功能。（5）创建报表。（6）对数据执行复杂的操作和分析。使用Excel VBA来解决上面所提到的问题，就非常容易了。 　　程序设计思路 　　 本程序设计以全数字化地形图为例。在对全数字化地形图进行精度统计的过程中，首先进行检查数据的野外采集，形成文本格式的检查数据文件；其次利用数字化地形图进行原始观测值的内业采集，形成文本格式的观测数据文件，检查文件和观测文件中的数值为一一对应关系；第三进行数据格式转换及文件合并，将检查文件观测文件合并为一定格式的文本文件；第四将合并后的文本文件以一定的表格形式导入Excel中，利用Excel良好的处理数据的功能进行平面及高程中误差的计算。从而完成了数据自动填入表格，并进行中误差计算的自动化过程。设计思路见下图2-1： 　　 2-1地形图精度自动化统计流程图 　　 　　地形图精度统计自动化实现过程 　　程序界面设计 　　 程序界面是一切具有实用价值的VBA程序所需要的基本组成部分，是程序与用户沟通的桥梁。由于本程序所要解决的问题较为单纯，所以仅使用了用户窗体进行程序界面设计，窗体中包含四个VBA公共控件，即一个文本标签控件，三个按钮控件，真正实现一键解决中误差计算问题。程序界面见下图： 　　 　　 3-1程序界面 　　文本文件数据格式转换及合并 　　 本程序进行精度统计计算所使用的文本文件均为CASS数据格式，其它格式文本文件可参照本程序进行修改。 　　 检查文件数据格式： 　　 1, , 102961.869 , 52448.511 , 2448.511 　　 2, , 102966.922 , 52469.571 , 2469.571 　　 3, , 102971.228 , 52480.457 , 2480.457 　　 4, , 102974.581 , 52494.419 , 2494.419 　　 5, , 103074.957 , 53091.875 , 2491.875 　　 …… 　　 观测文件数据格式： 　　 1, , 102961.893 , 52448.484 , 2448.484 　　 2, , 102966.923 , 52469.529 , 2469.529 　　 3, , 102971.236 , 52480.438 , 2480.438 　　 4, , 102974.571 , 52494.389 , 2494.389 　　 5, , 103074.939 , 53091.886 , 2491.886