６２装备园地 测绘技术装备季刊第１２卷２０１０年第３期 全站仪数据传输与处理技术研究 原星陈雷 （宝鸡市勘察测绘院摘陕西宝鸡７２１０００） 要：介绍了采用Ｖｉ ｓｕａｌ Ｂａｓｉｃ研究开发全站仪数据传榆与处理软件的经过和方法，实现了全站仪内存 数据快速传输和处理，发挥了全站仪自动存储功能、提高了测绘生产的效率、减轻了外业人员的工作量。 关键词：全站仪数据传输处理程序 １引言 文件，这样，就不再受超级终端的缓存大小影响， 随着数字化测绘技术的发展，全站仪的应用已 所以本程序采用Ｖｉｓｕａｌ Ｂａｓｉｃ中ＭＳＣｏｍｍ控件，其 十分普及，因此全站仪内存数据传输和处理技术也 输入模式为文本模式并将其输入数据存放在ｏｕｔｐｕｔ 倍受关注。我院近几年购卖了数台带内存全站仪 模式方式打开的文本文件中，形成的文本文件用 （如：拓普康３１２、３１３、２２５、７１１等系列全站仪）， Ｖｉｓｕａｌ Ｂａｓｉｃ语言的读写将其转换成所需格式。 由于原厂数据传输方式存在一些不足，影响了数据 ３编程过程 处理的效率。其主要问题是：①传输过程烦琐。首 ３．１用户界面建立 先通过超级终端传出坐标文件，然后复制、粘贴到 首先运行Ｖｉｓｕａｌ Ｂａｓｉｃ６．０，新建工程文件拓普 记事本保存成文本格式，最后再通过测图软件转换 康通讯，将其默认窗体名改为ＴＯＰＣＯＮ，建立如图１ 成所需成图格式，过程烦琐且易出错，特别是在复 的界面，并在其界面下添加ＭＳＣｏｍｍｌ、Ｔｉｍｅｒｌ、 制对象选择中，如果起点选择不合适时，则会在格 ＣｏｍｍｏｎＤｉａｌｏｇｌ控件。将ＭＳＣｏｍｍｌ控件的协议设为 式转换时出错。②传输量小，超级终端传输量一般 ｃｏｍＸｏｎＸｏｆｆ，ｓｅｔｔｉｎｇｓ值设为９６００，ｅ，７，１（此为 １型号通讯参数）和 为５００行（传输拓普康坐标点约５００多个），需多次 拓普康仪器３１２、３１３、２２５、７１传输才可传完一天测的点。为解决以上问题，笔者 ｉｎｐｕｔｍｏｄｅ值设为ｃｏｍｉｎｐｕｔｍｏｄｅＴｅｘｔ。Ｔｉｍｅｒｌ的 采用Ｖｉｓｕａｌ Ｂａｓｉｃ研究开发了拓普康全站仪数据传 ｉｎｅｒｖａｌ值设为１０００。 输和处理软件，可一次性传输完所有内存数据，并 同时对数据进行处理，将测量点坐标转换为测图软 件所需格式（我院使用武汉瑞得测图软件，本软件 仅存点文件，即★．ｅｂｐ格式），现将软件研究开发过 程作以介绍，相互共鉴。 ２开发思路 任何编程语言与全站仪通讯都离不开超级终端 的核心控件ＭＳＣｏｍｍ，要解决超级终端传输量的问题， 只有将其传输数据存储成其它格式的文件，如文本 图１用户界面图 ３．２传输 双击ｓｔａｒｔ按纽，添加如下代码 Ｃｏ￣ｏｎＤｉａｌｏｇ１．Ｆｉｌｔｅｒ＝ Ｔｅｘｔ ｆｌｉｅ（￥．ｔｘｔ） ｔｘｔ Ｊ ＣｏｍｍｏｎＤｉａｌｏｇ１．ＳｈｏｗＯｐｅｎ‘打开“打开文件”对话框 ｔｅｍｐｆｉｌｅ＝ＣｏｍｍｏｎＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ 、输入文件名 Ｉｆ ｔｅｍｐｆｉｌｅ＝～Ｔｈｅｎ Ｅｘｉｔ Ｓｕｂ Ｅｎｄ Ｉｆ ‘设置文件类型 判断文件名是否为空 Ｉｆ Ｃｏｍｂｏ１．Ｔｅｘｔ＝ １ＣＯＭ Ｔｈｅｎ ＭＳＣｏｍｍ１．ＣｏｍｍＰｏｒｔ＝１，‘判断通讯端口是否为ＩＣＯＭ Ｉｆ Ｃｏｍｂｏ１．Ｔｅｘｔ＝ ２ＣＯＭ Ｔｈｅｎ ＭＳＣｏｍｍ１．ＣｏｍｍＰｏｒｔ＝２‘判断通讯端口是否为２ＣＯＭ ＭＳＣｏｍｍ１．ＩｎｐｕｔＬｅｎ：０‘输入长度 测绘技术装备季刊第１２卷２０１０年第３期 装备园地６３ ＭＳＣｏｍｍ１．ＰｏｒｔＯｐｅｎ：Ｔｒｕｅ‘打开端口 ＭＳＣｏｍｍ１．ＩｎｐｕｔＭｏｄｅ＝ｃｏｍＩｎｐｕｔＭｏｄｅＴｅｘｔ‘设置输入模式 Ｏｐｅｎ Ａｐｐ．ｐａｔｈ＋ ａ１．ｔｘｔ Ｆｏｒ Ｏｕｔｐｕｔ Ａｓ＃１ 打开当前目录下ａ１．ｔｘｔ文件 Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ‘运行Ｔｉｍｅｒｌ控件 双击Ｔｉｍｅｒｌ，添加下面代码 Ｔｅｘｔ１．Ｔｅｘｔ＝ａＭＳＣｏｍｍ１．Ｉｎｐｕｔ‘文本框中显示传输数据 Ｉｆ Ｔｅｘｔ１．Ｔｅｘｔ＜＞～Ｔｈｅｎ‘如果文本框中有数据则写文本框内容到文本文件ａ１．ｔｘｔ中 Ｐｒｉｎｔ＃１，Ｔｅｘｔ１．Ｔｅｘｔ Ｅｎｄ Ｉｆ Ｉｆ Ｃｏｍｂｏ１．Ｔｅｘｔ＝ １ＣＯＭ Ｔｈｅｎ ＭＳＣｏｍｍ１．ＣｏｍｍＰｏｒｔ＝ｌ， 判断通讯端口是否为１ＣＯＭ Ｉｆ Ｃｏｍｂｏ１．Ｔｅｘｔ： ２ＣＯＭ Ｔｈｅｎ ＭＳＣｏｍｍ１．ＣｏｍｍＰｏｒｔ＝２‘判断通讯端口是否为２ＣＯＭ ＭＳＣｏｍｍ１．ＩｎｐｕｔＬｅｎ＝０‘输入长度 ＭＳＣｏｍｍ１．ＰｏｒｔＯｐｅｎ＝Ｔｒｕｅ‘打开端口 ＭＳＣｏｍｍ１．ＩｎｐｕｔＭｏｄｅ：ｃｏｍＩｎｐｕｔＭｏｄｅＴｅｘｔ‘设置输入模式 Ｏｐｅｎ Ａｐｐ．ｐａｔｈ＋ ａ１．ｔｘｔ Ｆｏｒ Ｏｕｔｐｕｔ Ａｓ＃１‘打开当前目录下ａ１．ｔｘｔ文件 Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ‘运行Ｔｉｍｅｒｌ控件 双击Ｔｉｍｅｒｌ，添加下面代码 Ｔｅｘｔ１．Ｔｅｘｔ＝ａＭＳＣｏｍｍ１．Ｉｎｐｕｔ‘文本框中显示传输数据 Ｉｆ Ｔｅｘｔ１．Ｔｅｘｔ＜＞～Ｔｈｅｎ‘如果文本框中有数据则写文本框内容到文本文件ａ１．ｔｘｔ中 Ｐｒｉｎｔ＃１，Ｔｅｘｔ１．Ｔｅｘｔ Ｅｎｄ Ｉｆ 其传输结果如下： Ｎ＋２１３ｘ１００１２１ １６７ｙ＋０９９３５３２７６ｚ＋０００９６５０８４＋１０１ｘ＋１００１９８１２３Ｙ ＋０９９４０１６９５ｚ＋０００９７２４５６２１４ ｘ＋１００１３６１４７ ００１７口 口ｙ＋０９９５２２９８６ｚ＋０００９７０２１４＋ｌ ｘ＋ｌＯ０１１５２１３ ｙ＋０９９５５２７４０ｚ＋０００９６９７８４＋２ ｘ＋１０００１４３５７ ｙ＋０９９４Ｏ６０６８ ｚ＋００９５５８８７ ｌ０５３口 口＋３ ｘ＋１０００１２７２９ｙ＋ ｙ＋０９９４３８８０３ｚ＋０００９５５９８３十４ ｘ＋１０００１２２８３０９９４５３５０５ ｚ＋０００９５６Ｏ３Ｏ＋５ ｘ＋１０００１１２５３ ２ｌＯ８口 口ｙ＋Ｏ９９４６７７ｌ７ｚ＋０００９５６１４３＋６ ｘ＋１００００３２４７ｙ＋０９９４９９６６１ｚ＋０００９５６２３２十７ ｘ＋０９９９９４９７２ ｙ＋０９９５３０８３３ ｚ＋ＯＯ０９５６３７７＋３０５０口 ［３８ ｘ＋１０００６６８８０ｙ＋０９９５３７１７２ｚ＋０００９５６９１８＋９ ｘ＋１０００６６６８６ｙ＋Ｏ ９９５１５０７５ ｚ＋０００９５６８８８＋１０ ｘ＋ｉ００１０３３３６ ｙ４０４５口 ］［＋０９９４８１１５９ｘ＋ｉ００１０３０５７ｚ＋０００９５７１３７十ｌ１ ｙ＋０９９４８４２４８ ｚ＋０００９５８５３５＋１２ ｘ＋１００１０４６５９ｙ＋０９９４８４２６５ｚ＋０００９５８５４６＋ｌ５ｌ２４口 ［３３ ｘ＋１００００９９１４８ｙ＋０９９５２２３７９ｚ＋０００９５８５５３＋１４ ｘ＋１０ＯＯ９７６５８ｙ＋Ｏ９ ９５２２２１６ ｚ＋０００９５８５１３＋１５ ｘ＋１０００９７９８８ ｙ＋６０５５口 Ｄ０９９５１９２３４ｚ＋０００９５７０１０＋１６ｘ＋１０００９６６７３ｙ＋０９９５２２１４３ｚ＋０００９５８６１７＋１７ ｘ＋１０００９６０８１ ｙ＋Ｏ９９５２４４４７ ｚ＋Ｏ０Ｏ９５８６５７＋１８７１ ｌ １口 ３．３转换 为空时后为点号，前为“ｘ”、 Ｙ”、 ｚ 时后分别为 根据上面传输结果，我们可以看出，①每段数 ｘ坐标、Ｙ坐标和高程ｚ。所以我们首先应取掉每段 据在两个 口 符号中间，且第二个 口 符号前四付 数据前后 口 符号和第二个 口 符号前四位数字， 数字是附加无用数据。②坐标值均为９位数字组成 再对数据分行即每ｌ３位数分成一个数据并记入文本 ③每个点名和坐标数据（包含空格）为１３个字符。 文件，不足１３位时与上一个数据合并，且在“ｘ” ④“＋”前字符是判断“＋”后数字性质的关键，前 前ｌ３位时换行，这样将形成如下格式文本文件： ６４装备园地 ＋２１３ ＋１０１１Ｌ 测绘技术装备季刊第ｌ２卷２０１０年第３期 Ｘ＋１００１２１１６７ Ｙ＋０９９３５３２７６Ｚ＋０００９６５０８４ ——Ｘ＋１００１９８１２３ Ｙ＋０９９４０１６９５Ｚ＋０００９７２４５６ ——Ｘ＋ｌＯＯ１１５２１３Ｙ＋０９９５５２７４０Ｚ＋０００９６９７８４ 一＋２ Ｘ＋ｌＯＯＯ１４３５７ Ｙ＋０９９４０６０６８ Ｚ＋０００９５５８８７ 然后取掉“＋”、“～”、ｘ”、 ｙ”、 ｚ”和空格，并每行数据分成四个数据与代表点号、Ｘ坐标、Ｙ坐标 和高程ｚ四个数据的数组对应，且将代表Ｘ坐标、Ｙ坐标和高程ｚ的数组转换为数字类型，并除以ｉ０００将 得到ｘ坐标、Ｙ坐标和高程ｚ值，以瑞得点文件格式输出，其结果如下： 、 ２１３， １００１２１．１６７， ９９３５３．２７６， ９６５．０８４， １０１， １００１９８．１２３，９９４０１．６９５， ９７２．４５６， １， １００１１５．２１３， ９９５５２．７４０， ９６９．７８４， ２， １０００１４．３５７， ９９４０６．０６８， ９５５．８８７， 编程代码如下： Ｏｐｅｎ Ａｐｐ．ｐａｔｈ＋ ａ１．ｔｘｔ Ｆｏｒ Ｉｎｐｕｔ Ａｓ＃２‘打开文件 Ｄｏ Ｗｈｉｌｅ Ｎｏｔ ＥＯＦ（２）‘判断文件是否结束 Ｉｎｐｕｔ＃２，ａ‘读文件 ｅ（０）＝Ｒｉｇｈｔ（ａ，５） Ｉｆ Ｌｅｆｔ（ａ，１）＝ ］ Ｔｈｅｎ ａ＝Ｔｒｉｍ（Ｍｉｄ（ａ，２，Ｌｅｎ（ａ）一１））‘取掉前 １ 符号 Ｉｆ Ｒｉｇｈｔ（ａ， １）＝ Ｔｈｅｎ ａ＝Ｔｒｉｍ（Ｍｉｄ（ａ， Ｉ，Ｌｅｎ（ａ）一５）） ］ 前符号前四位数字和 ］ 符号 Ｃａｌ１ ｓｔｒｄａｔａ（ａ）‘调用ｓｔｒｄａｔａ（ａ）函数 Ｌｏｏｐ Ｃｌｏｓｅ＃２‘关闭文件 Ｃａ１１ ｓｔｒｄａｔａｌ‘调用ｓｔｒ ｄａｔａｌ函数 Ｋｉｌｌ Ａｐｐ．ｐａｔｈ＋ ａ１．ｔｘｔ 删除文件 Ｋｉｌｌ Ａｐｐ．ｐａｔｈ＋ ａ２．ｔｘｔ 删除文件 自定义函数ｓｔｒ—ｄａｔａ（ａ）的代码（分行处理） Ｉｆ ａ＝～Ｔｈｅｎ Ｃｌｏｓｅ＃３ Ｅｘｉｔ Ｓｕｂ Ｅｎｄ Ｉｆ ｈ：０ Ｆ０ｒ ｉ＝１ Ｔｏ Ｌｅｎ（ａ） Ｏｐｅｎ Ａｐｐ．ｐａｔｈ＋ ａ２．ｔｘｔ Ｆｏｒ Ａｐｐｅｎｄ Ａｓ＃３ Ｉｆ ｉ＜＞１ｌ Ｔｈｅｎ Ｉｆ ｉ＝ｈ＋１１ Ｔｈｅｎ Ｐｒｉｎｔ＃３。 Ｅｎｄ Ｉｆ Ｉｆ Ｍｉｄ（ａ， ｉ， ｉ）＝ ＋ Ａｎｄ Ｍｉｄ（ａ， ｉ＋１３， １）＝ Ｘ Ｔｈｅｎ Ｐｒｉｎｔ＃３， Ｉｆ Ｍｉｄ（ａ，ｉ，２）＝ 一＋ Ｔｈｅｎ Ｐｒｉｎｔ ＃３， ｔｅｍ ｄａｔａ：Ｍｉｄ（ａ， ｉ， １） Ｉｆ ｔｅｍ ｄａｔａ＜＞ Ｔｈｅｎ Ｉｆ ｔｅｍ ｄａｔａ＝ ｚ Ｔｈｅｎ ｈ：ｉ Ｐｒｉｎｔ＃３，ｔｅｍ ｄａｔａ： Ｅｎｄ Ｉｆ Ｃｌｏｓｅ｝｝３ Ｎｅｘｔ （下转第３４页） ３４技术交流 用ＪＸ一４系统提高约８倍。 ７结束语 测绘技术装备季刊第ｌ２卷２０１０年第３期 图，数学精度能满足规范要求。 （３）采用ＤＰＧｒｉｄ系统进行影像密集匹配，比 率更高。 （１）采用ＤＰＧｒｉｄ系统制作１：５０００数字正射 常规的数字摄影测量工作站ＪＸ－４，影像匹配的成功 影像图，可明显提高工作效率，降低劳动成本。 （２）ＤＰＧｒｉｄ系统，制作１：５０００数字正射影像 参考文献： 【１】张祖勋．数字摄影测量研究３Ｏ年［Ｍ］．湖北：武汉大学出版社，２００３． 【２】张剑清，潘励，王树根．摄影测量学［Ｍ】．湖北：武汉大学出版社，２００３ （上接第６４页） 自定义函数ｓｔｒｄａｔａｌ ０的代码（瑞得点文件格式转换）： Ｏｐｅｎ ｃ：＼ａ２．ｔｘｔ Ｆｏｒ Ｉｎｐｕｔ Ａｓ＃４ Ｄｏ Ｗｈｉｌｅ Ｎｏｔ ＥＯＦ（４） Ｉｎｐｕｔ＃４， Ｗ Ｉｆ Ｌｅｎ（ｗ）＞２ Ｔｈｅｎ Ｉｆ Ｌｅｆｔ（Ｗ，１）＝ ＋ Ｔｈｅｎ Ｗ＝Ｒｉｇｈｔ（ｗ，Ｌｅｎ（ｗ）一１） Ｉｆ Ｌｅｆｔ（Ｗ，２）＝ ＋ Ｔｈｅｎ Ｗ：Ｒｉｇｈｔ（Ｗ，Ｌｅｎ（Ｗ）～２） ｂ（Ｏ）＝Ｌｅｆｔ（ｗ，Ｌｅｎ（ｗ）一３６） ｂ（１）＝Ｖａｌ（Ｍｉｄ（Ｗ，Ｌｅｎ（ｗ）一３３， １０））／１０００ ｂ（２）：Ｖａｌ（Ｍｉｄ（ｗ，Ｌｅｎ（ｗ）一２１， １０））／１０００ ｂ（３）＝Ｙａｌ（Ｒｉｇｈｔ（Ｗ，９））／１０００ ０ｐｅｎ ｔｅｍｐｆｉ ｌ ｅ Ｆｏｒ Ａｐｐｅｎｄ Ａｓ＃５ Ｐｒｉｎｔ｛｝５，ｂ（０）＆ ， ，ｂ（０）＆ ， ，ｂ（１）＆ ， ，ｂ（２）＆ ， ，ｂ（３）＆ ， ’Ｐｒｉｎｔ＃５，ｂ（０），ｂ（０），ｂ（１），ｂ（２），ｈ（３） Ｃ１ＯＳｅ＃５ Ｅｎｄ Ｉｆ Ｌｏｏｐ Ｃ］ｏｓｅ＃４ ４结束语 件操作便捷、运行稳定、结果可靠，且格式可根据 该软件可以实现全站仪内存数据快速传输和处 测量软件不同而改变（仅改其最后的输出方式即 理，充分发挥全站仪数据存储功能，有效解决测绘 可），同时对软件中的参数稍做修改还可应用于其它 生产实际问题，提高测绘生产的效率、减轻外业人 类型的全站仪。 员的工作量。通过二年多的数字化生产应用，该软 参考文献 【１】杜春雷．如何使用Ｖｉ ｓｕａ１ Ｂａｓｉｃ６．０中文版【Ｍ】．北京：机械工业出版社，１９９９，５
