探讨新的测绘数据操作方法与技巧.doc

探讨新的测绘数据操作方法与技巧 ［摘　要］ 随着测绘技术的日新月异和测绘范畴的不断扩展，数据信息急速膨胀。如何科学的获取信息和管理、处理、维护、分发数据及共享成果已成为业界共同关注的课题。本文以“广州市高压走廊数据采集”工程中的数据运作为例，与广大读者一起探讨在测绘生产过程中数据操作技术。由于内容较抽象，本文使用大量图片及程序代码加以辅助说明。“广州市高压走廊数据采集”工程是广州市城市规划局为对市内电力资源经行全面勘察而实施的一项基础工程。其数据采集的内容包括高压线路的平面位置、高程、线路属性及各塔位属性。试验区工程线路长度二百多公里，参与计算数据点二万多点。 ［关键词］ VBA(Microsoft Visual BASIC for application) Microsoft Access Microsoft Excel 高压走廊 三维信息化图 “广州市高压走廊数据采集”工程中的数据比较分散，涉及面广、相关关系比较复杂，所以数据的前期处理使用Microsoft Access来完成；在处理数据过程中又有大量数据计算工作，这一部分功能借助了Microsoft Excel的优点。Excel同时完成生成所提交的几个数据表单，将电子表格数据输出到AutoCAD的任务。在整个作业过程中大量应用了VBA技术和Microsoft Office集成功能。对于本文中涉及的VBA技术和Microsoft Access及Microsoft Excel功能请参考相关科目的书籍。 Access主要负责数据导入、数据管理的功能。在数据库中首先定义三个表：线路属性表、塔位信息和塔位坐标表。线路属性表包含了高压走廊的线路信息；塔位信息表记录线路中各个塔位的塔位资料；塔位坐标表收集了隶属于各塔位的一系列坐标集。在Access中定义出各表的关系见图1。 反映在Access数据表中的关系如图2所示。数据库中有多条线路，一条线路包含若干塔位，每个塔位用多个坐标数据反映它的外观特性。即均为严格的一对多的关系。 在建立数据库的框架后就可以导入原始观测数据了。将全站仪下载的数据加载到数据库中是我们每天都需要做的工作。利用VBA代码来读入数据到坐标数据表中，可以简化操作、确保数据完整、安全的添加到塔位坐标表。这部分代码比较简单，但其功能相对手动录入或导入数据要安全高效很多。导入数据VBA部分代码如下： Ncount = 0 Dim Rst As New ADODB.Recordset 定义数据库对象 Rst.Open Select * From 坐标数据库, CurrentProject.Connection, _ adOpenKeyset, adLockOptimistic 打开义数据库对象 With Rst Close #1 Open tempFile For Input As #1 从文件中读取数据 Do While Not EOF(1) Input #1, Dm, Bm, X, Y, H, Bz .AddNew 将数据添加到Access坐标数据 .Fields(点名) = Dm .Fields(编码) = Bm . . . . . . . Rst.Update Ncount = Ncount + 1 Loop End With Me.Refresh 利用Access向导可以很方便的建立数据管理窗体。在窗体中管理数据是件很轻松的事情，见图3。点击导航按钮可以在多条线路中切换，在塔位信息部分显示当前线路的塔位列表。点击塔位信息中的某个塔位，你就可以在塔位坐标中选择该塔位的相关坐标。所有的线路对象关系明了、大量所需录入的数据可以在下拉列表中选取，对一些特定的数据设置了有效性规则……应用了数据库技术，你会觉得很多繁琐的数据处理工作原来都可以很简单的实现。  Access和Excel间交换数据是件非常容易的事情。打开线路属性表，在文件菜单下选取输出，在保存类型中选Microsoft Excel 97-2