EXCEL宏在转换地籍测量野外采集数据中的应用.docVIP

EXCEL宏在转换地籍测量野外采集数据中的应用 常州市武进土地登记中心（勘测队） 龚有良 王雪文 摘要：本文介绍了用EXCEL2003宏将天宝捷创力全站仪野外测量数据文件转换成CASS数据格式的方法。 关键词：全站仪测量文件、CASS数据格式、EXCEL数据转换、EXCEL宏 1、引言 由于CASS软件采用的是CAD平台，以及软件本身丰富的功能，CASS软件越来越受到许多测量者的喜爱。但软件本身没有捷创力全站仪的数据导入功能，因此我们采用EXCEL2003录制了将捷创力全站仪数据文件转换成CASS数据格式的宏。使用中，感到我们的方法还不错，比较方便。现介绍如下，以供有兴趣的同行借鉴。 2、CASS数据格式及捷创力全站仪数据格式 CASS数据格式是：点号，点码，Y，X，H。文件的后缀是DAT。 我们用于全站仪的数据采集程序文件PRO2的格式是： 标号 正文 类型 类型含义 37 X 0 从全站仪得到的原始数据 38 Y 0 从全站仪得到的原始数据 11 平距 8 观察标号 39 H 0 从全站仪得到的原始数据 5 点号 4 增加/减少 4 点码 3 复制/半自动 79 结束 5 循环/半自动 上述程序文件采用仪器的PRO40程序输入。其中平距只显示不记录，供无反射棱镜方法测量时起检核用。 仪器的工作文件后缀是DC，文件导入计算机后其格式如下： 00NMSDR33 V04 5-24 111111 10NM49 121111 08TP 1100000.214 89999.263 1.951 F 08TP 2100003.600 89999.430 1.883 F 08TP 3100004.768 90000.878 1.858 F 08TP 0501100004.488 90002.403 1.856 F 08TP 0502100000.800 89997.430 1.921 F 08TP 050399999.001 89996.180 1.917 F 08TP 050499998.285 89995.744 1.911 F 3、用EXCEL2003进行数据转换 3.1双击EXCEL2003图标，打开EXCEL，检查光标是否在A1单元格，如不在点击A1单元格。 3.2在菜单数据栏点击导入外部数据、导入数据，击活对话框，选取数据源。本例中，选D：\211CAD\49.DC，打开；然后再在击活的对话框中，导入起始行选3，再点击下一步；再在标尺20处用鼠标左键点击，再下一步; 再在列数据格式中选不导入此列，再点击完成、确定，此时数据就导入了SHEET1表了。 3.3此时数据的排列为：点号，X，Y，H，点码；不符合CASS格式。为此要进行列操作，将数据调整到CASS格式。我们可按顺序将SHEET1表的A、E、C、B、D列分别复制到SHEET2表的A、B、C、D、E列，SHEET2表即为CASS格式数据了。 3.4再将SHEET2表另存成CSV格式文件。点击标题栏文件、另存为，击活另存为对话框，选择保存类型为CSV（逗号分隔），本例中保存到目标地址D:\211DAT\BOOK1.CSV，再点击确定、是键，SHEET2表就以BOOK1.CSV名保存在C:\211DAT目录下了。此时的数据格式是： 1,F,89999.263,100000.214,1.951 2,F,89999.43,100003.6,1.883 3,F,90000.878,100004.768,1.858 501,F,90002.403,100004.488,1.856 502,F,89997.43,100000.8,1.921 503,F,89996.18,99999.001,1.917 504,F,89995.744,99998.285,1.911 3.5再将BOOK1.CSV文件重命名成49.DAT文件,此时就全部完成，数据就可转入