基于VB外业数据到内业初步数据处理研究.docVIP

基于VB外业数据到内业初步数据处理研究 　　摘要：利用程序设计语言VB处理外业测量数据，在成图软件EPS2008中通过对照表把外业数据转换为相对应的内业编码连接成断线，并且利用VBS脚本把数据量大的断线连接成连续的带编码的地物，减少了成图工作量，提高了成图的速度。 　　关键词：工程测量；VB；EPS2008；外业编码；辅助码；自动边线 　　1前言 　　工程测量（engineering survey）在测绘界，人们把工程建设中的所有测绘工作统称为工程测量。实际上它包括在工程建设勘测、设计、施工和管理阶段所进行的各种测量工作。它是直接为各项建设项目的勘测、设计、施工、安装、竣工、监测以及营运管理等一系列工程工序服务的。把VB应用于工程测量中，可以大大简化我们的工作量，得到很好的工作效果。 　　2作业简化与实现 　　2.1外业测量数据格式 　　下面就以拓普康全站仪为例，为了能够与对照表对应得上，测量的数据要按照EPS2008外业带编码模式进行储存。否则所测数据调入EPS2008软件时是单点的形式，那样所测点数越多，手工连接单点的工作量就越大。因此，依一定的规律格式进行外业数据储存是必要的。 　　2.2数据转换格式 　　外业任务测量完成后，到内业数据入数。我们可以采用拓普康专用入数软件T_COM V1.5 中文版把全站仪数据导入电脑中，得出数据文件如下所示： 　　GTS-700 v3.0 　　STN 1A，1.430， 　　STN 1A，1.460， 　　BS 1B，1.355， 　　XYZ 24865.421，9387.767，25.20 　　SS F3，1.355， 　　XYZ 24852.634，9388.911，25.25 　　SS F3.1，1.355， 　　XYZ 24882.070，9397.811，25.23 　　从调入电脑的观测数据，可以看出有一定的规划律性，这样只要有规律性，就通过VB程序把大量观测数据中是我们所需要的数据提取出来。第一行表头，省略，第二至三行是摆站点信息，可以省略，第四行是测得的后视点号及杆高，第五行为X坐标、Y坐标及Z高程，下面的数据都是循环第四及第五行的数据格式，其信息数据是规律性的，可以让VB程序从第五行开始判断读取X坐标、Y坐标及Z高程，然后读第五行坐标数据的前一行的点号数据。VB程序如下： 　　Dim s（）As String，ss（）As String，i As Long 　　Dim yy$??GG（10） 　　TermText = 　　CommonDialog1.DialogTitle = 打开拓普康数据文件 　　CommonDialog1.InitDir = c：＼ 　　CommonDialog1.Filter = 拓普康文件（*.txt）|*.txt 　　CommonDialog1.FileName = 　　CommonDialog1.ShowOpen 　　On Error Resume Next 　　If CommonDialog1.FileName = Then Exit Sub 　　Open CommonDialog1.FileName For Binary As #1 　　Open c：＼bada.bada For Output As #2 　　s = Split（Input（LOF（1），#1），vbCrLf） 　　Close #1 　　For i = 0 To UBound（s） 　　ss1 = Split（s（i - 1），，） 　　If UBound（ss1）= 2 Then 　　ss = Split（s（i），，） 　　If UBound（ss）= 2 Then 　　If IsNumeric（ss（2））Then Write #2，Trim（Mid（ss1（0），4，13））；CDbl（ss（1））；Trim（Mid（ss（0），4））；CDbl（ss（2）） 　　End If 　　End If 　　Next 　　Close #2 　　GG（0）= FreeFile 　　Open c：＼BADA.BADA For Binary As #GG（0） 　　TermText = 　　TermText.SelStart = Len（TermText.Text） 　　TermText.SelLength = 0 　　TermText.SelText = use$ 　　TermText.SelStart = Len（TermText.Text） 　　TermText = StrConv（InputB（LOF（GG（0）），#GG（0）），vbUnicode）