基于VB外业数据到内业初步数据处理的研究
开篇：润墨网以专业的文秘视角，为您筛选了一篇基于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）
Close #GG（0）
TermText = Replace（TermText.Text，Chr（34），""）
经过VB读取数据后，就可以存成EPS2008读取的数据格式，和EPS2008调入数据格式一致，调入EPS2008会连接成线。如下数据所示：
1B，9387.767，24865.421，25.2
F3，9388.911，24852.634，25.25
F3.1，9397.811，24882.070，25.23
2.3EPS2008数据调入及对照表
我们了解EPS2008软件所调入的数据格式为点号，X坐标，Y坐标，H高程。具体数据格式如下所示：
F3，9388.911，24852.634，25.25
F3.1，9397.811，24882.070，25.23
F3.1，9378.666，24887.858，9999
F3.1，9369.767，24858.421，25.20
点号信息不单只是点号，字母F表示全站仪使用的简码即外部编码，3为所测的第3个连线的地物，EPS2008编码为3103013表示建成房屋，1为辅助码，表示与前点连接。
3实用性对比
使用带外业编码记录观测数据，到了内业就减少识别各种地物的时间，可以快速地对照上各种地物。以往调入单点的数据多，手动把每一个点连接起来，不但担误工程进度，同时也加重了每一个作业组的工作量。通过VB小程序可以把复杂的工作简单化，提高成图的速度，可以把省出来的时间去做其他的工作。
4总结
本文研究如何利用VB程序处理外业数据及内业初步处理，虽然在工程测量行业中有很多其它软件和技巧，但满足各地方实际需求是最重的，即使用不同仪器及软件使用的数据不同，但只要找到一定的规律性就可以用VB编程语言完成大部分繁琐的工作，从而把我们的生产效率提高。
参考文献：
[1]看实例学VBScript /（美）霍尼卡特（Honeycutt，J.）著；王友希[等]译，出版：北京清华大学出版社，1997.11
[2]EPS2008地理信息工作站VBS脚本技术（内部资料）