基于VBA实现设计点位编号和坐标提取-论文.pdf

《基于VBA实现设计点位编号和坐标提取-论文.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第３６卷第２期物探化探计算技术Ｖｏｌ．３６Ｎｏ．２２０１４年３月ＣＯＭＰＵＴＩＮＧＴＥＣＨＮＩＱＵＥＳＦＯＲＧＥＯＰＨＹＳＩＣＡＬＡＮＤＧＥＯＣＨＥＭＩＣＡＬＥＸＰＬＯＲＡＴＩＯＮＭａｒ．２０１４文章编号：１００１１７４９（２０１４）０２０２４７０５基于ＶＢＡ实现设计点位编号和坐标提取冯伟华１，陈恩科１，张随安１，李怀敏２（１．陕西省地质调查中心，西安７１００１４；２．陕西省地矿局区域地质矿产研究院，咸阳７１２０００）摘要：针对实际生产需要，探讨利用计算机实现化探设计点位坐标提取和填写样品编号，重点介绍用ＶＢＡ编程填写样品编号。这里还介绍了ＶＢ

2、Ａ语言及主要函数功能、程序流程及主要程序编码。通过实际应用表明，该程序流程合理、过程简单、运行速度快，有效改善了野外生产的精度及效率。关键词：化探；设计点位；坐标提取；ＶＢＡ；样品编号中图分类号：ＴＰ３１１．５文献标志码：Ａ犇犗犐：１０．３９６９／ｊ．ｉｓｓｎ．１００１１７４９．２０１４．０２．２０１．２点位置赋属性０前言利用数字填图软件打开设计采样点位图。选择“设计采样点位”点文件，为编辑状态。选择ＰＲＢ数在１∶５００００、１∶２０００００化探采样中，一般根据据操作－ＰＲＢ－Ｒ过程计算与点坐标重写菜单见图设计采样点位图人工量取设计点位坐标，再用Ｇ

3、ＰＳ１，点击点坐标写入。退出菜单，选择修改点属性结导航采取样品。作者诣在探讨利用计算机实现设计构，查看坐标写入状况（图１），查看点属性，坐标已采样点位坐标的自动提取和填写样品编号，以提高写入属性，狓为６位数据、狔为７位数据，退出数字野外生产效率和工作精度。坐标提取用ＭａｐＧｉｓ软填图。件来实现，样品编号用ＶＢＡ语言编程实现，作者重１．３导出点属性点介绍用ＶＢＡ编程填写样品编号的方法、流程。打开ＭａｐＧＩＳ程序，选择投影变换窗口。选择“工具－属性生成文本文件”菜单，填写输出的文本１坐标提取［１］文件的名称，见图２设置各项，完成属性输出。输出的文本文件有

4、三项数据，ＩＤ号、犡、犢。将文本文件１．１改变点属性结构转换为Ｅｘｃｅｌ格式，以备后续编写采样点编号使用。图１为一张经过校正的标准位置的的１∶５００００采样点位设计图，采样点文件为“设计采样点位．２填写样品编号ｗｔ”点文件。选择“设计采样点位”点文件，为编辑［２］状态。选择“点编辑—编辑属性结构”菜单。选择插２．１样品编号规则入项，字段名称输入Ｘ，字段类型长整形，字段长度在１∶５００００化探中，样品编号分为三步：首先“８”，小数位数“０”，再插入一项，字段名称输入Ｙ，其将图幅范围以纵横坐标，整公里方里网为界距划分他同上，完成后点击“ＯＫ”选项，退出Ｍ

5、ａｐｇｉｓ。为１ｋｍ２基本单元格，由左到右，由上到下依次顺序收稿日期：２０１３０３１４改回日期：２０１３１１１３作者简介：冯伟华（１９７９），男，工程师，一直从事矿产地质勘查工作，公开发表论文数篇，Ｅｍａｉｌ：８６３００１２１＠ｑｑ．ｃｏｍ。２４８物探化探计算技术３６卷图１设计采样点位图及点位赋属性窗口Ｆｉｇ．１Ｍａｐｏｆｄｅｓｉｇｎｏｆｓａｍｐｌｉｎｇｐｏｉｎｔａｎｄｗｉｎｄｏｗｏｆｐｏｉｎｔｓｉｔｅｔｏａｔｔｒｉｂｕｔｅ图２属性输出窗口Ｆｉｇ．２Ｏｕｔｐｕｔｗｉｎｄｏｗｏｆａｔｔｒｉｂｕｔｅｓ编号；再将每个１ｋｍ２基本单元格，以狓、狔

6、５００ｍ间过“宏”功能来创建命令程序，使应用程序自动化。距等分为四个０．２５ｋｍ２小单元格，顺时针编号为ＶｉｓｕａｌＢａｓｉｃｆｏｒＡｐｐｌｉｃａｔｉｏｎｓ（ＶＢＡ）是ＶｉｓｕａｌＢａｓｉｃａ、ｂ、ｃ、ｄ；在每个小单元格内按狓坐标由小到大依次的一种宏语言，主要能用来扩展Ｗｉｎｄｏｗｓ的应用程［３］编号ａ１、ａ２等。因此一个样品编号（例１０３１ａ２）由三序（Ｅｘｃｅｌ、Ｗｏｒｄ等）功能，使应用程序自动化。部分组成：一级编号（基本单元格号，１０３１）＋二级编ＶＢＡ语言可直接对Ｅｘｃｅｌ数据单元格和行、列进行号（小单元格编号，ａ）＋三级编号（２）。操作，不

7、必另行转换数据格式和定义二维数组存储２．２宏、ＶＢＡ语言及重点函数介绍数据，数据运算简便，运行速度高。本次编程涉及的“宏”是一些存储了一系列命令的程序，用户通ＶＢＡ语言主要的方法、属性简要说明如表１所示。２期冯伟华等：基于ＶＢＡ实现设计点位编号和坐标提取２４９２．３数据存储后，将该单元格内的点位数据复制到其他列并从原原始点位数据以Ｅｘｃｅｌ形式存储（图３），第一行数据中删除，以提高程序后续运行速度，程序流程见为标题行，Ａ列、Ｂ列为设计点位坐标存储位置，Ａ图４。列为狓值，Ｂ列为狔值。Ｃ列到Ｇ列为程序运算过２．５主要程序编码及说明程中数据中间存储位置，Ｃ

8、列为一级编码、Ｄ列为二Ｓｕｂ编码（）级编码、Ｅ列为三级编码、Ｆ列、Ｇ列为对应的点位ＤｉｍＺＲｏｗＡｓＬｏｎｇ