VB6．0物探线平面坐标推算程序设计.pdfVIP

第36卷 第9期 山 西 建 筑 V0I_36No．9 · 352 · 2010年 3月 SHANXI ARCHITBCTURE Mar． 2010 文章编号：1009：6825(2010)09—0352—02 VB6．0物探线平面坐标推算程序设计 王 宝 江 摘 要：通过实例用VB6．0编程分析了物探线平面坐标数据的推算方法，结合加载在CAD基础上的南方CANS成图系 统实现了大量数据坐标的快速提取和展绘，总结了该类程序的设计、使用方法，检核了软件精度。 关键词：物探线，NOTPAD．axe，VB6．0软件，南方CASS成图系统 中图分类号：TU198 文献标识码：A 1 问题的提出 Dem“以下为将测量的方位角：度、分、秒 (北东格式)装换为 地质部门的测量任务中有许多是关于物探线的测量定线问 VB6．0要求的弧度格式。” cc= (Int(fwj．Text)*3600+ Int((fwj．Text— Int(fwj． 题 ，按测量学分类属于直线的测设问题。该类问题放样点、线数 据量很大，如何提取每条线的平面放样数据就成为摆在地质测量 Text))*100)*60+ (fwj．Text* 100一 Int(fwj．Text* 100))* 100)／206264．81 人员面前急需解决的问题。 现在地质及测量部门经常使用的成图软件有MAPGIS和加 Dem “以下为测量方位角转换为数学方位角。” C=3．14159265358979 ／2 一 CC 载在CAD基础上的南方CASS成图系统，都不具备按线的方向和 Dem“进行坐标增量计算，如Xzl对应于线上点的X增量。” 间距提取大量坐标数据的功能，为此本人用VB6．0软件编制了一 个推算物探线平面坐标数据的应用程序，推算后生成的数据文件 Form1．Xz1．Text=Co~(c)*Form2．dig 为南方CASS数据的．DAT格式，可以在南方 CASS成图软件中 Form1．Yz1．Text=Sin(c)*Form2．dig 直接展绘。 Form／．Xjg．Text= Cos((C+ 3．14159265358979 ／2))* Form2．xjg 2 处理思路 Form1．Yjg．Text= Sin((e+ 3．14159265358979 ／2))* 物探线一般要求5m，10m的点距，长度可达几千米，假定一 Form2．xjg ， 条 1km的物探线点距 5m，则要测设201个点位。线距一般有 Form1．jsz1．Value=0 50m，100m不等。而直线由起点和终点唯一确定直线的方向和 EndSub 距离。有了线的起点坐标和方位角就可以按下式计算间隔点的 主表单的程序相对简单，故不赘述。 坐标：问隔点的x(或 y)坐标=起始