【VB开源代码栏目提醒】：本文主要为网学会员提供“VB程序解决全站仪数据格式与瑞得软件数据录入探讨 - 会议论文”，希望对需要VB程序解决全站仪数据格式与瑞得软件数据录入探讨 - 会议论文网友有所帮助，学习一下!

Ｊｏｕｒｎａｌ ｏｆ Ｓｈａｎｄｏｎｇ Ｕｎｉｖｅｒｓｉｔｙ ｏｆ Ｓｃｉｅｎｃｅ ａｎｄ Ｔｅｃｈｎｏｌｏｇｙ第２６卷 ＶｏＩ．２６２００７年６月 Ｊｕｎ．２００７ Ｎａｔｕｒａｌ Ｓｃｉｅｎｃｅ ＶＢ程序解决全站仪数据格式与 瑞得软件数据录入探讨 赵德良，门孝志，牛作元，范永杰 （山东省地质测绘院：山东济南２５３０００） 摘 要：由于南方全站仪在测量中最多只能输入五位坐标数据，其坐标大数无法输入仪器中，造成在图形编辑软件 中无法与实际坐标相融合，本程序给出了解决此问题的一种行之有效的方法。

     关键词：全站仪；坐标数据；ＶＢ程序；固定常数；转换 中图分类号：ＴＰ３１１ 文献标识码：Ａ 文章编号：１６７２—３７６７（２００７）Ｓｕｐ一０２４３—０３ ＶＢ（Ｖｉｓｕａｌ Ｂａｓｉｃ）语言是由Ｍｉｃｒｏｓｏｆｔ公司开 仅在编辑转换中容易出错，而且在各种测图软件下发的新一代面向对象编程工具，它既是一种编程语 展人坐标时造成很大的不便Ⅲ。

    言，也是一个强大的集成开发环境，利用它可以编制 ２ 问题分析出各种风格的软件产品。

    ＭＡＴＩ。

    ＡＢ是由美国Ｍａｔｈ ｗｏｒｋｓ公司于１９８４年正式推向市场，目前已 在外业测图中，发现南方全站仪在与其他仪器经发展成为适合多学科多种工作平台的功能强劲的 结合方面有一定缺陷，比如在与索佳仪器的数据结大型软件，成为国际公认的最优秀的科技界应用软 合方面很不方便，需要在南方仪器所测数据中加入件。

    ＶＢ提供了一个非常强的对象实现功能，它拥 一些固定常数（也就是所谓的大数，如果在测图中用有完备的数据分析和数据处理函数。

    可以有效地对 仪器输入五位数的话，就必须在东坐标上加各种数据进行编辑处理，利用ＶＢ对数据处理不仅 ５００ｋｍ，北坐标加４１００ｋｍ，需要根据不同的测区而直观、方便而且不容易出错。

    利用ＶＢ编程工具，通 定）。

    一般实现方法是在通用软件ＣＡＳＳ下，数据菜过编程介绍了对南方全站仪数据格式现阶段不足所 单下的〔数据加固定常数〕功能，但每次都输入要加给出的一种解决方案。

     入的固定常数，不但不方便，且不注意就会输错。

     利用ＶＢ编程实现其功能具体实施方法为：ｌ 南方全站仪数据格式及存在问题 （１）读人数据 全站仪是全站型电子速测仪的简称，又被称为 （２）利用ＶＢ程序中的运算方法及函数对数据“电子全站仪”它是一种兼有自动测距、测角、计算和 进行编辑处理数据自动记录及传输功能的自动化、数字化的三维 （３）实现数据转换目的并输出数据。

    坐标测量与定位系统。

    它由光电测距单元、电子测 ３ 利用ＶＢ编写应用程序转换南方全站仪角及微处理器单元以及电子记录单元组成，是一种 数据〔２〕广泛应用与控制测量、地形测量、地籍测量与施工放样等的电子测量仪器。

    南方全站仪是国产为数不多 利用南方全站仪在外业测量时，对于不同的作的全站仪之一，其操作方式及测量精度与进口仪器 业单位，由于作业习惯的不同，要求的数据格式也不相差无几，但其坐标数据在测量中只能输入五位，与 一样。

    如何用最简单的方法得到所需要的数据是每在国家坐标系统下的坐标无法吻合，在数据后处理 个作业人员都关心的问题。

    本单位有几个小组同时时只能利用其他软件（例如Ｗｏｒｄ、Ｅｘｃｅｌ、Ｃａｓｓ等） 在用不同的仪器进行外业测图，在数据录入过程中转换后，才能与国家坐标系统下的坐标相吻合。

    不 要求必须在同一个坐标系统下进行，必须将数据格■———一收稿日期：２００７—０５—０６Ｊ—ｌ山东料技大学 学报Ｊ自然科学版 １２４４ 嘉苗掌。

    月 Ｖ蛔０１．２枷６，式统一。

    介绍如何用上述的方法实现数据格式转换 加Ａｃｔｉｖｅ Ｘ控件，在ＶＢ中，ＡｃｔｉｖｅＸ控件是重要的的计算功能。

     一部分，本程序主要用了Ｃｏｍｍｏｎ Ｄｉａｌｏｇ控件，在３．１实现的功能 〔工程〕菜单中选择〔部件〕项，在控件项中选择Ｍｉ— 程序要求录入原始测量数据文件，并对此测量 ｃｒｏｓｏｆｔ Ｃｏｍｍｏｎ Ｄｉａｌｏｇ Ｃｏｎｔｒｏｌ ６．０，将复选框选数据在程序下进行运算，转换后将结果保存到指定 中，确定就可以把控件添加到工具栏中。

    在窗体上的目标文件中。

    界面如图１所示： 添加标签，文本，命令按钮等，并编辑它们的属性。

     ３．２．３代码的编写 实现编程，首先创建ＶＢ界面，启动ＶＢ６．０创 建新工程文件并确定控件品种、数量：５个文本框 Ｔｅｘｔｂｏｘ，用作文字输入输出；５个文字标签Ｌａｂｅｌ； ４个指令按键框Ｃｏｍｍａｎｄｂｕｔｔｏｎ。

    并设置相应的 属性。

     部分代码编写如下： Ｄｉｍ ｄｉａｎｈａｏ（），ａ（），Ｘ（），Ｙ（），ｚ（）ＡＳ Ｄｏｕｂｌｅ Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄｌ一Ｃｌｉｃｋ（） Ｄｉｍ ＸＸ，ＹＹ，ｈｈ Ａｓ Ｄｏｕｂｌｅ ‘定义变量 ＸＸ—Ｖａｌ（Ｔｅｘｔｌ．Ｔｅｘｔ） 图１界面图 ＹＹ—Ｖａｌ（Ｔｅｘｔ２．Ｔｅｘｔ） ｈｈ—Ｖａｌ（Ｔｅｘｔ３．Ｔｅｘｔ）３．２ 制定具体实施方案 Ｄｉｍ ｓｔｒ Ａｓ Ｓｔｒｉｎｇ３．２．１制定实施方案前的准备 Ｄｉｍ ｎ Ａｓ Ｉｎｔｅｇｅｒ （１）理解ＶＢ程序中读人数据的方法以及输出 ＣｏｍｍｏｎＤｉａｌ０９１．Ｆｉｌｔｅｒ一“（＊．ｄａｔ）Ｉ＊．ｄａｔ方法 ｌ”８Ｌ“ａｌｌ ｆｉｌｅｓ（＊．＊）ｌ＊．＊Ｉ”＆“（＊．ｔｘｔ）Ｉ＊． （２）弄懂ＶＢ中所带的各函数的功能和用法 ｔｘｔＩ” （３）构思好所呈现的样式 ＣｏｍｍｏｎＤｉａｌ０９１．Ｆｉｌｔｅｒ｜ｎｄｅｘ一１ （４）明确要用于计算的数学模型 Ｉｆ ＣｏｍｍｏｎＤｉａｌ０９１．Ｎａｍｅ＜＞““Ｔｈｅｎ３．２．２程序的制作 Ｏｐｅｎ ＣｏｍｍｏｎＤｉａｌ０９１．ＦｉｌｅＮａｍｅ Ｆｏｒ Ｉｎｐｕｔ Ａｓ 程序编写框图如图２： ＃１ ｎ＝＝０ Ｄｏ Ｗｈｉｌｅ ＮＯｔ ＥＯＦ（１） ｎ—ｎ＋１ Ｌｉｎｅ Ｉｎｐｕｔ＃１，ｓｔｒ ．Ｌｏｏｐ Ｃｌｏｓｅ＃１ Ｅｎｄ Ｉｆ ＭｓｇＢｏｘ“共转换数据”＆．ｎ＆“个” ＲｅＤｉｍ ｄｉａｎｈａｏ（ｎ），ａ（ｎ），Ｘ（ｎ），Ｙ（ｎ）， Ｚ（ｎ）ＡＳ Ｄｏｕｂｌｅ Ｏｐｅｎ ＣｏｍｍｏｎＤｉａｌ０９１．ＦｉｌｅＮａｍｅ Ｆｏｒ Ｉｎｐｕｔ ＡＳ＃２ 图２程序框图 Ｆｏｒ ｉ一１ Ｔ０ ｎ 在编程之前需要将ＶＢ正确的安装到计算机 Ｉｎｐｕｔ＃２，ｄｉａｎｈａｏ（ｉ），ａ（ｉ），Ｘ（ｉ），Ｙ（ｉ）．ｚ（ｉ）上，然后启动ＶＢ程序，进人编程界面。

    程序需要添 ‘将数据存人变量中 Ｊｏｕｒｎａｌ ｏｆ Ｓｈａｎｄｏｎｇ Ｕｎｉｖｅｒｓｉｔｙ ｏｆ Ｓｃｉｅｎｃｅ ａｎｄ Ｔｅｃｈｎｏｌｏｇｙ赵德良等ＶＢ程序解决全站仪数据格式与瑞得软件数据录入探讨 粼嚣鼬尹丞ｉ Ｓｃｉｅｎｃｅ Ｘ（ｉ）＝Ｘ（ｉ）＋ｘｘ‘对变量进行计算和 后重新录入常数；转换 （３）打开需要转换的数据文件＊．ｄａｔ，即转换 Ｙ（ｉ）一Ｙ（ｉ）＋ＹＹ 前的数据文件名； ｚ（ｉ）一ｚ（ｉ）＋ｈｈ （４）输入数据转换后文件要保存的路径，即转 Ｎｅｘｔ ｉ 换后的文件名； ＣｏｍｍｏｎＤｉａｌ０９２．Ｆｉｌｔｅｒ一“（＊．ｄａｔ）ｌ＊． （５）检查输入的是否正确，确认正确后，点击开ｄａｔ ｌ”＆“ａｌｌ ｆｉｌｅｓ（＊．＊）ｌ＊．＊Ｉ”＆．“（＊．ｔｘｔ）ｌ 始转换，程序会提示共转换数据的个数； ＊．ｔｘｔＩ” 一 （６）转换后．程序会自动将结果以文本＊．ｔｘｔ ＣｏｍｍｏｎＤｉａｌ０９２．Ｆｉｌｔｅｒｌｎｄｅｘ一３ 形式存放在指定的文件中； Ｉｆ ＣｏｍｍｏｎＤｉａｌ０９２．ＦｉｌｅＮａｍｅ＜＞““Ｔｈｅｎ （７）待转换完成后？可以调用瑞得标准文件编 Ｏｐｅｎ ＣｏｍｍｏｎＤｉａｌ０９２．ＦｉｌｅＮａｍｅ Ｆｏｒ Ｏｕｔ— 辑，来存储＊．ｅｂｐ文件，调用瑞得软件进行导入和ｐｕｔ Ａｓ＃３ 编图。

     Ｆｏｒ ｊ一１ Ｔｏ ｒｌ 初次运行本程序，将会产生一个文本文档，名字 Ｗｒｉｔｅ＃３，ｄｉａｎｈａｏ（ｊ），Ｙ（ｊ），Ｘ（ｊ），ｚ（ｊ） 为“常数．ｔｘｔ”，并把它保存到ｄ盘下，初次设定常数 Ｎｅｘｔ ｉ 为０，０，０。

    同时也可以编辑ｄ盘下的“常数．ｔｘｔ”来 Ｃｌｏｓｅ＃３ 修改常数．以后再次运行时将会按照所设定的常数 Ｃｌｏｓｅ＃２ 来显示，同样也可以再次设定常数。

     Ｅｎｄ Ｉｆ 可以对转换后的文件进行编辑和处理。

    本程序 Ｅｎｄ Ｓｕｂ 主要针对武汉瑞得软件，但是它可以为其它做图软 例如：南方数据坐标２００７１．５３２，３３７８３．４７０， 件服务。

    １２．８１７。

     ４ 结束语 如果坐标的常数为：北坐标４１０００００，东坐标，５０００００，高程不变，则用程序转换后，坐标为 此程序主要针对南方全站仪所开发的，同时也４１３３７８３．４７０，５２００７１．５３２，１２．８１７。

     对索佳等仪器适用，但是要将常数全部设为０。

    利 在武汉瑞得测图软件下进行编辑，打开瑞得软 用ＶＢ强大的交互式程序开发能力和Ａｃｔｉｖｅ控件件下工具菜单栏下的标准交换文件编辑，打开转换 功能，可以减少因为软件原因而造成的不必要的工后的坐标文本文件（＊．ｔｘｔ），然后另存为＊．ｅｂｐ，导 作量。

    测绘科学是一门以大规模数据甚至海量数据入＊．ｅｂｐ，接着编图。

     处理、分析与应用为基础的学科，其各项工作都涉及３．２．４程序使用说明 大量的计算，将ＶＢ程序设计引入测绘数据处理领 程序源代码编写好后，可以在ＶＢ环境下运行， 域是一件非常有意义的事情，它在测绘科学与工程也可以打包发布成ＥＸＥ文件，脱离ＶＢ环境运行。

     领域的应用将会越来越广泛。

     （１）运行程序，在ＶＢ环境下或直接点击可执 参考文献：行文件； 〔】〕钟宝琪．地籍测量ＦＭ〕．武汉：武汉测绘科技大学出版社． （２）用鼠标点击“设定固定常数”按钮，可以将 １９９６． Ｅ２〕杨世清，付培义．数字测图原理与方法〔Ｍ３．徐州：中国 固定常数栏下所设定常数保存，下次使用时继续用 矿业大学出版社，２００１． 此常数，点击“清空常数”按钮，可以清空文本框，然