纵横断面计算及检查方法改进.docVIP

纵横断面计算及检查方法改进 　　摘要：由于目前在进行纵横断面计算及检查的常用方法上面存在一些缺陷，使工作的质量和效率受到影响，需要进行改进。而本文正是针对这些缺陷，使用Excel VBA对这些缺陷进行有效的处理，从而减少在纵横断面计算中出现的错误，加强检查效果。 　　关键词：测绘工程 纵横断面 Excel VBA 　　Abstract: Because of the existence of some defects in the above methods of cross section calculation and check, it makes the work quality and efficiency is affected, and need to be improved. This paper is aimed at these defects, the use of Excel VBA to deal effectively with these defects, thereby reducing appear in the cross section of the error in the calculation, to strengthen the inspection effect. 　　Key words: surveying and mapping engineering; cross section; Excel VBA 　　中图分类号：J935 文献标识码：A 文章编号： 　　概述 　　目前为了外业纵横断面数据采集时方便快捷，采集的数据格式同设计一般要求的纬地格式不同，以下为两种横断数据格式： 　　外业采集数据格式： 　　桩号 零点高程 　　左侧断面点个数 距零点距离 高程 距零点距离 高程…… 　　右侧断面点个数 距零点距离 高程 距零点距离 高程…… 　　纬地数据格式： 　　桩号 　　左侧断面点个数 距零点距离 与零点高差 距前一断面点距离 与前一断面点高差 距前一断面点距离 与前一断面点高差…… 　　右侧断面点个数 距零点距离 与零点高差 距前一断面点距离 与前一断面点高差 距前一断面点距离 与前一断面点高差…… 　　 而对纵断面来说，两种格式相同，只不过外业采集时，纵横断面产生在同一个文件中，而纬地格式需要单独的纵断面文件，其格式为： 　　桩号 零点高程 　　桩号 零点高程 　　…… 　　 对于两种数据格式就需要进行数据转换。 　　 由于原始数据采集时数据是记录在记录表中的，需要将记录表中的数据录入到计算机中，再转换为纬地格式，在此过程中就有可能产生录入错误，需要对原始记录数据和录入数据进行校对、检核。而常规的人工检查方法费时，费力，效率低，并且，对一些不合理的断面不能进行直观的检查，使得此项工作十分的繁重。所以需要对常规的人工检查进行改进。 　　目前的处理方法及不足 　　目前对于数据转换，一种常用的方式是直接使用Excel中的公式进行计算。在Excel工作簿中建立有3个工作表，分别命名为“原始数据”、“横断”、“纵断”，在“原始数据”工作表中进行采集数据的录入，在“横断”、“纵断”工作表中对原始数据进行处理，转换为纬地格式。在这两个工作表中，在足够范围内的每个单元格中都有对应的公式，这就使得整个工作簿很大，占用许多资源，并且要求每个单元格中的公式必须正确，如果某一单元格中的公式有误，则计算结果就会发生错误，而这一问题，在检查时则很难发现。 　　虽然，在SCS中，提供了一项绘制断面图的功能，这就提供了一种对断面进行直观检查的方法，其要求的数据格式如下： 　　断面点个数 　　000000 　　桩号 　　高程 　　000000 　　桩号 　　高程 　　…… 　　 然而在每次绘制断面图时都要求用户指定文件位置及文件名，确定断面图的绘制位置。由于借助CAD的强大功能，这对于纵断面检查来说很方便；但是对于横断面来说，由于断面数太多，要用户对每个断面的数据进行一次转换，绘制时都需要交互指定一次，就显得有些繁琐。这就需要一种新的途径处理这些问题。 　　改进的处理方法及优势 　　由于数据录入一般是在Excel中进行，并且提供设计的纬地格式数据一般也是Excel文件格式，而且Excel不仅仅具有一般电子表格软件的数据处理、统计分析、图表功能，还集成了VBA环境，所以使用Excel进行数据转换就成为首选的一种方式。 　　为了解决以上的数据处理中的不足，共进行了四项功能开发，设计了四个菜单项，对应设计了四个自定义按钮，界面如下： 　　 　　 　　在横断计算中，不但具有以前一样的横断数据转换功能，还添加了一些纠错功能。比如：当某