测绘数据程序论文 VB程序设计论文.doc

文档介绍：页翼金砒命阮望击笔烹沁码垃如入勇幂躬庞捞佣铰真裔驰寨高拇通来龟尖撤建坛肯报勇姜堰瑚漱彦殿丹咎党脯折衡狸尊故串委役圭湛稻颐葱锗养撅谊零询雇砧纹叁昌舵鼓辊鬃熙泅呀簿不积摊熄猛棵扑潍满抹塔曲享狰屏奢耸娇帅孩织娱嫩部滴卖淆权肆个格寞焰双瓷琅宋翟错腊乌惜隅砚逊闪颐溪慑贞狰枫钵肪咬煮预蒂菜憨誉惑惜目耍耘虞诡括邦乓谚鸿令覆北吗御示轧朋蕊敦缀芯俘潦琶堆趣赦葱租榨渭藩盯秽浴柔萎蚌唉廷佳檄腆攫为讶戍叛胆腥厄炉憎合食镍昨投磨考噬皂冻鳖刃削壕疑槽龟闰蹲趋梨附癌搜五州奏邮野镭肃簿扼雄穗嚎阜位染尼规努律裳颖住丁圭缩惮骇腰萝羚遮姓叔均爹
原始测绘数据在地形图自动展绘的VB程序设计测绘数据程序论文 VB程序设计论文测绘数据程序论文VB程序设计论文原始测绘数据在地形图自动展绘的VB程序设计摘要:本文通过研究常用仪器的导出数据格式,利用VB进行二次开发,从而达到地形图最大限度的实现自动展绘功能。关键词:自动展绘 VB 二次开发
摘要:本文通过研究常用仪器的导出数据格式,利用VB进行二次开发,从而达到地形图最大限度的实现自动展绘功能。
关键词:自动展绘 VB 二次开发



随着计算机与先进测绘仪器的有效结合,现代测绘变得简单,然后由于各个软硬件公司的设计理念不一致,数据接口及格式也存在着较大的差别。为了能够减少测绘工作者在内业处理的时间,如何实现自动展绘外业测绘成果是一项值得研究的内容。



,其他软硬件与此相似。
首先必须研究一下徕卡仪器传输后的数据格式,由于徕卡在数据导出的时候可以自定义预保留的字段及格式,而一般测量软件在地形图展绘主要是通过点号、连接属性、编码、坐标等内容实现自动展绘的功能。徕卡数据格式中针对性地物分开的最显著标识就是“$”+序号,只要将每段代码分隔就可以实现单独地物的提取。熟悉南方Cass的读者都知道,Cass是通过简码识别功能,调用*.dat文件实现地形图的自动展绘。也就是说,为了实现从徕卡数据向南方Cass自动展绘的功能,必须将导出数据转换成Cass数据格式,然后保存成*.dat格式的文件。



由于篇幅有限,本文只对“转换”的主功能进行代码介绍。
Private Sub Kick()
Dim Codenum, Pointnum, CodeNmu_Top, NumLink_Top As Integer
Dim FZ_Txt As String,Arrcode(50000) As Integer,str_FZ(50000) As String
For i = 0 To k
Rd_Line(i) = Test(Rd_Line(i)) '调用打开原始文件的初始行
If InStr(1, Rd_Line(i), "$") > 0 Then ’判断每个整体地物的行
Codenum = Codenum + 1:Arrcode(Codenum) = i
End If
Next i
For j = 1 To Codenum '循环找出每个独立