- 1、本文档共3页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第3期
第3期 矿 山 测 量 No.3
2015年6月 MINE SURVEYING Jun.2015
doi:10.3969/j.issn.1001—358X.2015.03.01
南方CASS测量数据向纬地横断面数据 转换方法的研究
谢爱萍
(甘肃林业职业技术学院,甘肃天水712020)
摘要:文中通过分析南方CASS测量数据和纬地横断面数据的文本格式特点,研究了应用VB实现横 断面数据从南方CASS向纬地转换的方法,可供同行参考。 关键词:南方CASS;纬地;数据格式;转换
中图分类号:TB22 文献标识码:B 文章编号:1001—358X(2015)03—0001—03
在公路建设的勘测设计阶段,测绘单位一般在 右距离2,高程2 地形图测绘中使用南方CASS软件,而许多公路设计 右距离1,高程1 单位在设计中使用纬地软件。由于测图软件和公路 第一行的BEGIN为一个断面的起始标志,桩号 设计软件采用不同的空间数据格式,在数据的组织 指的是该断面的中桩编号i下面每行为断面点到中 上有很大差异,这使得二者之间数据交换存在困难。 桩的距离和高程,其中距离为0的点是中桩。 因此,实现有效数据转换和共享成为公路勘测设计 1.2纬地横断面数据格式 的迫切需要。南方CASS是基于AutoCAD平台开发 纬地(HintCAD)的文件扩展名也为“.hdm”,可以 的数字地形测图软件,具有完善的地形绘图和编辑 存为txt文本导入应用。文件一般手工输入完成,有两 功能,可以进行多种图形格式的转换和数据交换,适 种形式,分别是相对中桩和相对前点,下面以相对前点 用于各类用户,是我国一款优秀的测图软件。纬地 作以说明,文本格式如下:对于每一个断面:第一行为桩 (HintCAD)是基于AutoCAD平台开发的道路辅助设 号;第二行为左边断面,第一个数据为左边断面点数,后 计系统,能够直接在计算机上动态交互式完成公路 面每一对数据为相对前点的距离和高差;第三行为右边 路线的平面设计、纵横断面设计、绘图和出表;能够 断面,后面表示和左边断面一样。一个文件可以记录多 建立三维数模,具有强大的公路设计功能,广泛应用 个断面数据,如下图1所示。 于我国公路设计单位。本文主要讨论应用VB实现
横断面数据从南方CASS向纬地转换的方法。
1 南方CASS和纬地横断面数据格式
1.1 南方CASS横断面数据格式
南方CASS横断面数据文件的扩展名是“. 图1 纬地横断面数据文本格式 hdm”,该文件可生成横断面图和土方计算。内容包 括桩号、断面顺序号、断面点到中桩的距离和高程 2断面格式数据转换的方法
等,其数据格式如下:
利用VB新建一个标准EXE工程,打开“部件”
BEGIN,桩号:断面顺序号
对话框,找到Microsoft RichText Box 6.0和公共对话 左距离1,高程1
框Microsoft Common Dialog 6.0并选中它们,单击 左距离2,高程2
“确定”按钮。这时左边的工具栏上出现了新添的两
个控件。 0.000,高程(中桩)
2.1界面设计
在VB系统下建立Form窗体,绘制RichText
】
万方数据
第3期
第3期 矿 山 测 量 2015年6月
Box、Commn Dialogl和三个按钮(打开、转换和保 ’CASS横断面文件转换为纬地横断面文件 存)。打开按钮是装入CASS横断面文件,转换按钮 Private Sub zhuanhuan—Click() 是将装入的CASS横断面数据文件转换为纬地数据 Dim BEGEN,LICHENG As String’定义起始标 文件,保存按钮是将转换的数据输出,文本显示框为 志、里程变量
RichText Box控件o Dim pjd As String’定义平距、高程变量
2.2属性定义 Dim k,n,m As String’记录位置、横断面上的 控件的属性设置如下表1所示。 总点数、左断面的测点数变量
表1控件属性设置 Open CommonDial091.FileName For Input As样1
Open”c:\横断面线.txt”For Output As舵
Do While Not EOF(1)
Input#1,BEGEN,LICHENG’读人起始标 志、里程、横断面数
k=Seek(1)’记录指针位置
2.3代码编写 测算一个横断面的总点数
在Form窗体下编写如下代码: n=0 Do
Dim sFind As String
’声明文件类型 Line Input#1,pjd’读入平距、高程
If Left(pjd,5)=”BEGIN”Then Exit Do Dim FileTyp
文档评论(0)