Excel VBA在孔斜计算中的应用.pdfVIP

第 5期 矿 山 测 量 NO．5 2013年 lO月 MINE SURVEYING Oct．2O13 doi：10．3969／j．issn．1001—358X．2013．05．19 ExcelVBA在孔斜计算 中的应用 才向军 (唐 山开滦林西矿业有限公司 河北 唐 山 063104) 摘要 ：笔者用 ExcelVBA编写了三个函数 ，解决 了60进制的角度与弧度的互换和真方位角计算。并 根据孔斜计算的实际需要 ，用Excel编制 了孔斜计算成果表。该方法在实际工作 中可行，有一定参 考价值 。 关键词 ：Excel；VBA；孔斜计算 中图分类号 ：P209 文献标识码 ：B 文章编号 ：1001—358X(2013)05—0058—03 由于地质条件 、钻探技术和钻进工艺等方面原 上式 中： 因，常会使钻孔发生歪斜 (简称孔斜)。孔斜 的测量 、 0、Y0、Zo——孔 口坐标 ； 计算是钻孔勘探技术工作中的一个重要环节。准确 Ax、Ay、Az——坐标增量 ； 计算孔斜可 以得知钻孔 内各点 的空 间位置 ，及时指 、Yi、Zi——孔 内任意一点的坐标 ； ’ 导钻孔施工 ，为后期矿产资源开发利用提供依据。 、 、 、 — — 天顶角 、磁方位角 、真方位角、磁 传统用手工计算钻孔斜度速度慢、易出错 。Excel的 偏角； 计算功能很强大 ，目前广泛应用于各计算领域 。由 L——孔段间距 。 于 Excel不支持60进制角度 ，所 以孑L斜计算 中应用 1．2 定制 60进制的角度与弧度互换和方位 角计算 三角函数时 ，必须先解决60进制角度与弧度互换问 函数 题 。笔者用 ExcelVBA编写 了三个 函数 ，解决 了60 打开 Excel，在菜单上依 次 点击 [工具 ]一 进制的角度与弧度 的互换和方位角计算。并根据孔 [宏]一[VisualBasic编辑器]或按 Alt+F11即进 斜计算的实际需要 ，用 Excel编制 了孔斜计算成果 入 VBAIDE。 表 1．2．1 定制 60进制的角度与弧度互换 下面定义两个函数 ，利用它们来解决 60进制的 1 孔斜计算准备 角度与弧度互换问题。在菜单上依次点击 [插入 ]一 用 Excel进行孔斜计算应先研究孔斜计算公式、 [模块]，然后在代码窗 口中输入如下代码 ： 解决 60进制的角度与弧度互换 、方位角计算与判断 PublicConstpi= 3．14159265359 三个 问题 ： Rem定义 pi值 1．1孔斜计算公式 PublicFunctionDEG (ByValX AsDouble)As 孔斜计算是依据孑L斜测量数据 ，计算 出待测点 Double 的三维坐标 ，即：(，l，，z)。其主要计算公式为 ：