1、测绘数据程序论文 VB 程序设计论文原始测绘数据在地形图自动展绘的 VB 程序设计摘要：本文通过研究常用仪器的导出数据格式，利用 VB 进行二次开发，从而达到地形图最大限度的实现自动展绘功能。关键词：自动展绘 VB 二次开发1.前言随着计算机与先进测绘仪器的有效结合，现代测绘变得简单，然后由于各个软硬件公司的设计理念不一致，数据接口及格式也存在着较大的差别。为了能够减少测绘工作者在内业处理的时间，如何实现自动展绘外业测绘成果是一项值得研究的内容。2.设计思路本文分别以徕卡和南方 Cass7.1为仪器和测绘软件作为例子，其他软硬件与此相似。首先必须研究一下徕卡仪器传输后的数据格式，由于徕卡在数据
2、导出的时候可以自定义预保留的字段及格式，而一般测量软件在地形图展绘主要是通过点号、连接属性、编码、坐标等内容实现自动展绘的功能。徕卡数据格式中针对性地物分开的最显著标识就是“$”+序号，只要将每段代码分隔就可以实现单独地物的提取。熟悉南方 Cass 的读者都知道，Cass 是通过简码识别功能，调用*.dat 文件实现地形图的自动展绘。也就是说，为了实现从徕卡数据向南方Cass 自动展绘的功能，必须将导出数据转换成 Cass 数据格式，然后保存成*.dat 格式的文件。3.程序开发由于篇幅有限，本文只对 “转换” 的主功能进行代码介绍。Private Sub Kick()Dim Codenum,
3、 Pointnum, CodeNmu_Top, NumLink_Top As IntegerDim FZ_Txt As String,Arrcode(50000) As Integer,str_FZ(50000) As StringFor i = 0 To kRd_Line(i) = Test(Rd_Line(i) 调用打开原始文件的初始行If InStr(1, Rd_Line(i), “$“) 0 Then 判断每个整体地物的行Codenum = Codenum + 1:Arrcode(Codenum) = iEnd IfNext iFor j = 1 To Codenum 循环找出每个独立
4、地物字符段If j Codenum Then 首先处理倒数第二个以上的独立地物字符段For l = Arrcode(j) To Arrcode(j + 1) - 1str_FZ(j) = str_FZ(j) & Rd_Line(l) & Chr(13) & Chr(10)Next lElseFor l = Arrcode(j) To k - 1str_FZ(j) = str_FZ(j) & Rd_Line(l) & Chr(13) & Chr(10)Next lEnd IfDotstr = Dotstr & FZ_Del(str_FZ(j), j, TSel, Ini_Para)Next jFileTxt.Text = DotstrEnd Sub通过程序处理，原始数据即可转换为新数据格式，然后在 Cass中利用简码识别功能调用保存后的*.dat 文件，即可实现自动展绘。4.结论通过基于 VB 的二次开发，短短的代码就可以轻松实现测绘原始数据向测绘软件自动展绘功能，可见程序对测绘行业的优势性十足，是测绘工作者的重要武器。参考文献：1 郝向阳,赵夫来.数字测图原理与方法.北京: 解放军出版社,20022 谢刚生,邹时林.数字化成图原理与实践.西安: 西安地图出版社,20003 杨晓明,段莉.数字地形图测绘中的几个问题探析.北京: 测绘出版社,2004
