VB6.0程序在全站仪图根导线测量中的应用吴吕稳摘要：充分利用全站仪的各种功能，用“VB6.0”编写的程序直接对全站仪观测的记录数据进行分析处理，并生成平差文件和观测手簿，达到内外业一体化图根导线测量。关键词：全站仪；VB6.0；图根导线观测；数据格式处理；数据检查处理：C37文献标识码：A1前言全站仪在地形、地籍测量中的广泛应用，使图根导线观测更加准确、快捷，但大部分的导线平差软件还不支持与全站仪直接进行数据交换，平差计算还需要人工对全站仪的观测数据进行整理计算、手工录入，不仅费时费力，还容易产生粗差。全站仪具有测距测角自动记录及传输数据的自动化的功能，本文以topcon系列全站仪为例，利用“VB6.0”编写的程序，对观测数据进行分析处理，并进行转换、检查，最终生成清华山维nasew95格式的平差文件及Word格式的导线平差文件。2全站仪观测数据格式topcon全站仪以测量模式输出的原始观测数据文件一般有两种，见表1，表2。表1斜距(SD)模式？+01178481m0852030+1203040d01174572IDSDm/fVHd/g/mHD数据识别符斜距距离单位垂直角水平角角度单位平距t00+00+25099EXT(CRLF)t/*LPOBCC倾斜改正(t打开，*关闭)0值大气改正数棱镜常数块较验符结束符表2平距/高差（HD/VD）模式R+01174572m0852030+1203040d01174572IDHDm/fVHd/g/mHD数据识别符平距距离单位垂直角水平角角度单位平距t00+00-30099EXT(CRLF)t/*LPOBCC倾斜改正(t打开，*关闭)0值大气改正数棱镜常数块较验符结束符3程序模块设计思想程序分为“数据预处理”、“中间数据检查处理”和“平差文件、导线观测手簿”三部分。“数据预处理”模块：利用VB程序读取全站仪观测数据文件，根据数据识别符对每测站的字符串进行分解，来获取各测站及观测方向点（点名、仪器高、方向名、水平角、垂直角、距离、目标高）信息，生成后缀为.ELE的中间文件（*.ELE文件为清华山维nasew95平差软件的外业数据观测格式）。*.ELE以文本格式保存，生成速度快、存取方便，生成的数据格式内容整齐、便于人工辩读及除去多余观测量。表3中间文件数据格式*A003,1.610测站名，仪器高004,HZS,000.0000,090.2454,00083.671,1.194测站,模式，水平角，垂直角，距离，目标高002,HZS,244.0324,090.0415,00084.636,1.194----盘左盘右分隔符A002,HZS,064.0307,269.5542,00084.636,1.194A004,HZS,179.5943,269.3453,00083.671,1.194“中间数据检查处理”：调用MicrosoftAccess软件将*.ELE文件导入到数据库中，计算2C、指标差、高差等计算量，使用SQL语言对测站的盘左盘右方向名是否相同、2C、指标差、对向边长、对向高差等精度进行检查并生成报表；“平差文件、导线观测手簿”：对通过“中间数据检查处理”的*.ELE文件，从Access数据库中提取所需数据，在已知点数据文件中提取已知点生成*.MSM文件，直接调用清华山维nasew95程序打开进行平差计算。平差文件直接加载了已知点数据，减少了人为输入产生的错误。提取Access中的观测数据，在Word软件中生成导线观测手簿（表四），便于后期资料整理。表四图根导线观测手簿4程序代码4.1数据预处理（1)导线参数设定LoadDialog1Dialog1.ShowvbModal‘调用参数设置对话窗体OpenApp.Path"daoxian.lyb"ForRandomAs#1Len=Len(DaoXian)‘将导线设置参数写入到二进制文件中,方便调用。Put#1,1,DaoXian（2)读取原始观测数据CommonDialog1.ShowOpen‘调用打开对话框RichTextBox1.LoadFileCommonDialog1.Filename,rtfText‘打开原始观测文件,读取文件内容到文本框内（3）数据转换(生成*.ELE文件)TempStr=QuWei(TempStr)‘调用函数去掉文本中的CRLF、EXT和块较验符利用循环语句对每测站进行读取Cz=StrHead(TempStr,"_'")‘测站信息IfInStr(ch,"_?+")>0Then‘判断边长测量模式………对字符串进行分解，根据设置的参数重新组合得到测站的方向点点名、距离、垂直角、水平角、目标高。EndIfRichTextBox1.Text=“”‘清空文本框中的内容RichTextBox1.Text=NewTempStr‘将处理好的文本写入到文本框中CommonDialog1.ShowSave‘弹出保存对话框RichTextBox1.SaveFileCommonDialog1.Filename,rtfText4.2中间数据检查处理读取*.ELE文...