测绘数据程序论文VB程序设计论文（页）

《测绘数据程序论文VB程序设计论文（页）》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、测绘数据程序论文VB程序设计论文原始测绘数据在地形图自动展绘的VB程序设计摘要：木文通过研究常用仪器的导出数据格式，利用VB进行二次开发，从而达到地形图最大限度的实现自动展绘功能。关键词：口动展绘VB二次开发1•刖吕随着计算机与先进测绘仪器的有效结合，现代测绘变得简单，然后由于各个软硬件公司的设计理念不一致，数据接口及格式也存在着较大的差别。为了能够减少测绘工作者在内业处理的时间，如何实现自动展绘外业测绘成果是一项值得研究的内容。2•设计思路本文分别以探卡和南方Cass7.1为仪器和测绘软件作为例子，其他软硬件与此相似。首先必须研究

2、一下探卡仪器传输后的数据格式，由于探卡在数据导出的时候可以自定义预保留的字段及格式，而一般测量软件在地形图展绘主要是通过点号、连接属性、编码、坐标等内容实现自动展绘的功能。探卡数据格式屮针对性地物分开的最显著标识就是爲"+序号，只要将每段代码分隔就可以实现单独地物的提取。熟悉南方Cass的读者都知道，Cass是通过简码识别功能，调用*・dat文件实现地形图的自动展绘。也就是说，为了实现从裸卡数据向南方Cass自动展绘的功能，必须将导出数据转换成Cass数据格式，然后保存成屯dat格式的文件。3•程序开发由于篇幅有限，本文只对“转换"

3、的主功能进行代码介绍。PrivateSubKick()DimCodenum,Pointnum,CodeNmu_Top,NumLink_TopAsIntegerDimFZ_TxtAsString,Arrcode(50000)AsInteger,str_FZ(5OOOO)AsStringFori=0TokRd_Line(i)=Test(Rd_Line(i))调用打开原始文件的初始行IfInStr(1,Rd_Line(i),H$H)>0Then'判断每个整体地物的行Codenum=Codenum+1:Arrcode(Codenum)=iE

4、ndIfNextiForj=1ToCodenum彳盾环找出每个独立地物字符段Ifj

5、Sel,Ini_Para)NextjFileTxt.Text=DotstrEndSub通过程序处理，原始数据即可转换为新数据格式，然后在Cass屮利用简码识别功能调用保存后的*・dat文件，即可实现自动展绘。4•结论通过基于VB的二次开发，短短的代码就可以轻松实现测绘原始数据向测绘软件自动展绘功能，可见程序对测绘行业的优势性十足，是测绘工作者的重要武器。参考文献：[1]郝向阳，赵夫来•数字测图原理与方法•北京:解放军出版社,2002[2]谢刚生，邹时林•数字化成图原理与实践•西安:西安地图出版社,2000[3]杨晓明，段莉•数字地形

6、图测绘中的几个问题探析•北京:测绘出版社,2004