[发明专利]一种利用VBA模块在AutoCAD中进行钻孔轨迹图绘制的方法

说明书

技术领域

本发明涉及一种利用VBA模块在AutoCAD中进行钻孔轨迹图绘制的方法，可用于钻孔设计和实测数据的处理，可作为钻孔轨迹数据处理软件的子模块，用于在Auto CAD中进行钻孔轨迹图的绘制与合成。

技术背景

随钻测量技术以其独特的技术优势，不但在石油钻井和非开挖领域得到了大力推广和应用，近年来也逐步推广到煤矿安全领域，在煤矿区地面和井下煤层气(瓦斯)抽采钻孔施工中起到越来越重要的作用，利用随钻测量得到的钻孔轨迹参数绘制的钻孔轨迹图，是进行钻孔轨迹分析和指导轨迹控制的重要依据，由于煤矿井下定向钻进与石油钻井和非开挖领域的定向钻进相比，在施工特点及定向孔轨迹表述习惯方面都有所不同，一些石油钻井和非开挖领域成熟的钻孔轨迹数据处理方法，并不适用于煤矿井下定向钻孔轨迹数据的处理，因此，需要结合煤矿井下定向钻孔施工特点和钻孔轨迹描述方法，对钻孔轨迹数据处理方法进行研究。

目前，煤矿井下定向钻孔多以瓦斯抽放钻孔为主，钻孔的初始设计一般都结合煤矿采掘平面图或地层剖面图完成，而采掘平面图或地层剖面图一般都采用Auto CAD软件绘制，现场经常需要将钻孔的实测轨迹和实际轨迹进行对比分析，需要一种方法能够利用随钻测量得到的钻孔轨迹参数快速地在AutoCAD中完成钻孔实测轨迹图的绘制，能够将实测轨迹与设计轨迹的绘制在同一张图中，为分析钻孔轨迹的控制效果提供方便。

发明内容

本发明所解决的技术问题是提供一种可用于钻孔设计和实测数据处理的方法，通过利用VBA模块在AutoCAD中进行钻孔轨迹图绘制。

为解决上述的技术问题，本发明采取的技术方案：

本发明的特殊之处在于：首先利用Excel完成的钻孔轨迹参数处理，再通过VBA模块调用Excel的计算结果，完成初始参数和线型设置，在AutoCAD中自动完成钻孔轨迹图的绘制。

上述的方法通过以下步骤实现：

(1)、钻孔轨迹坐标参数的建立：建立Excel工作表，输入区将深度、倾角、方位角作为原始参数名，计算区将偏角、视平移、上下位移、左右位移作为计算参数名；

(2)、坐标参数的处理：将符合现有Excel工具所包含的公式形式要求的钻孔轨迹坐标计算公式输入至步骤(1)所建立的Excel工作表，Excel完成坐标参数的处理；

(3)、坐标参数的转换和绘制：打开AutoCAD后，开启VBA模块调用经过步骤(2)处理后的坐标参数转换成AutoCAD的绘图命令，并进行初始参数和线型设置，在AutoCAD中自动完成钻孔轨迹图的绘制。

与现有技术相比，本发明的有益效果：

本发明利用随钻测量得到的钻孔轨迹参数快速地在AutoCAD中完成钻孔实测轨迹图的绘制，能够将实测轨迹与设计轨迹的绘制在同一张图中，为分析钻孔轨迹的控制效果提供方便。

附图说明

图1为本发明的工作流程图。

具体实施方式

下面结合附图和具体实施方式对本发明进行详细说明。

本发明首先利用Excel完成的钻孔轨迹参数处理，再通过VBA模块调用Excel的计算结果，完成初始参数和线型设置，在AutoCAD中自动完成钻孔轨迹图的绘制。

参见图1，通过以下步骤实现：

(1)、钻孔轨迹坐标参数的建立：建立Excel工作表，输入区将深度、倾角、方位角作为原始参数名，计算区将偏角、视平移、上下位移、左右位移作为计算参数名；

建立Excel钻孔轨迹坐标参数计算程序工作表。首先建立一个新工作表，填写表头(如：水平定向钻孔参数计算程序)、钻孔基本信息(施工单位、钻孔编号、日期等信息)、钻孔轨迹相关坐标参数(原始参数和计算参数)等信息，将原始参数所在列设为“输入区”，计算参数所在的列设为“计算区”。深度、倾角、方位角为原始参数名，偏角、视平移、上下位移和左右位移作为计算参数名。

(2)、坐标参数的处理：将符合现有Excel工具所包含的公式形式要求的钻孔轨迹坐标计算公式输入至步骤(1)所建立的Excel工作表，Excel完成坐标参数的处理；

以平衡正切法为例进行水平定向钻孔参数计算程序的设计。首先在“计算区”的第一行，即D8、E8、F8、G8中输入“0”，默认钻孔开孔点坐标为(0，0，0)；从下一行开始输入相应的计算公式，公式首先应输入等号(＝)，再输入公式内容，一般输入公式后，单元格中显示的是公式计算后的结果，公式只显示在编辑栏中。

偏角：是指测量方位角相对与设计方位角顺时针方向的角度差，是为方便计算而专门设置的一个参数，即：偏角＝测量方位角-设计方位角；