本发明专利技术涉及一种利用ＶＢＡ模块在ＡｕｔｏＣＡＤ中进行钻孔轨迹图绘制的方法。目前，煤矿井下定向钻孔多以瓦斯抽放钻孔为主，钻孔的初始设计一般都结合煤矿采掘平面图或地层剖面图完成，而采掘平面图或地层剖面图一般都采用ＡｕｔｏＣＡＤ软件绘制，现场经常需要将钻孔的实测轨迹和实际轨迹进行对比分析。本发明专利技术首先利用Ｅｘｃｅｌ完成的钻孔轨迹参数处理，再通过ＶＢＡ模块调用Ｅｘｃｅｌ的计算结果，完成初始参数和线型设置，在ＡｕｔｏＣＡＤ中自动完成钻孔轨迹图的绘制。本发明专利技术利用随钻测量得到的钻孔轨迹参数快速地在ＡｕｔｏＣＡＤ中完成钻孔实测轨迹图的绘制，能够将实测轨迹与设计轨迹的绘制在同一张图中，为分析钻孔轨迹的控制效果提供方便。
【技术实现步骤摘要】
本专利技术涉及，可用于 钻孔设计和实测数据的处理，可作为钻孔轨迹数据处理软件的子模块，用于在Auto CAD中 进行钻孔轨迹图的绘制与合成。
技术介绍
随钻测量技术以其独特的技术优势，不但在石油钻井和非开挖领域得到了大力推 广和应用，近年来也逐步推广到煤矿安全领域，在煤矿区地面和井下煤层气(瓦斯)抽采钻 孔施工中起到越来越重要的作用，利用随钻测量得到的钻孔轨迹参数绘制的钻孔轨迹图， 是进行钻孔轨迹分析和指导轨迹控制的重要依据，由于煤矿井下定向钻进与石油钻井和非 开挖领域的定向钻进相比，在施工特点及定向孔轨迹表述习惯方面都有所不同，一些石油 钻井和非开挖领域成熟的钻孔轨迹数据处理方法，并不适用于煤矿井下定向钻孔轨迹数据 的处理，因此，需要结合煤矿井下定向钻孔施工特点和钻孔轨迹描述方法，对钻孔轨迹数据 处理方法进行研究。目前，煤矿井下定向钻孔多以瓦斯抽放钻孔为主，钻孔的初始设计一般都结合煤 矿采掘平面图或地层剖面图完成，而采掘平面图或地层剖面图一般都采用Auto CAD软件绘 制，现场经常需要将钻孔的实测轨迹和实际轨迹进行对比分析，需要一种方法能够利用随 钻测量得到的钻孔轨迹参数快速地在AutoCAD中完成钻孔实测轨迹图的绘制，能够将实测 轨迹与设计轨迹的绘制在同一张图中，为分析钻孔轨迹的控制效果提供方便。
技术实现思路
本专利技术所解决的技术问题是提供一种可用于钻孔设计和实测数据处理的方法，通 过利用VBA模块在AutoCAD中进行钻孔轨迹图绘制。为解决上述的技术问题，本专利技术采取的技术方案本专利技术的特殊之处在于首先利用Exce 1完成的钻孔轨迹参数处理，再通过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)；从下一行开始输入 相应的计算公式，公式首先应输入等号(=)，再输入公式内容，一般输入公式后，单元格中 显示的是公式计算后的结果，公式只显示在编辑栏中。偏角是指测量方位角相对与设计方位角顺时针方向的角度差，是为方便计算而 专门设置的一个参数，即偏角=测量方位角_设计方位角；视平移是指钻孔轨迹水平位移在设计方位线所在垂直面上的投影，一般指坐标 X值；左右位移是指测点到设计方位线所在铅垂面的距离，一般指坐标Y值，以设计方 位线为基准，右偏为正，左偏为负；上下位移是指测点到开孔点所在水平面上的距离，一般指坐标Z值，以水平面为 基准，上偏为正，下偏为负。以上各参数对应基本信息区参数和输入区参数的计算公式如下所示偏角D9 = B9-G2，其中“G2”代表设计方位值。视平移E9= (A9-A8) /2* (COS (C9*PI ()/180) *C0S (D9*PI ()/180) +C0S (C8*PI () / 180)*C0S (D8*PI()/180))+E8 ；左右位移F9= (A9-A8) /2* (COS (C9*PI ()/180) *SIN(D9*PI ()/180) +C0S (C8*PI ()/180)*SIN(D8*PI()/180))+F8 ；上下位移:G9= (A9-A8)/2*(SIN(C9*PI()/180)+SIN(C8*PI()/180))+G8。第9行公式输入完成后，利用Excel的“递推复制功能”将计算公式复制到下面各 行。所有计算参数的计算公式都建立好后，将保存在其他文本(如word或txt文档) 中的测量数据拷贝到已建立好的Excel钻孔轨迹参数计算程序的相应数列中，就可直接得 到相关参数的计算结果。(3)、坐标参数的转换和绘制打开AutoCAD后，开启VBA模块调用经过步骤(2)处 理后的坐标参数转换成AutoCAD的绘图命令，并进行初始参数和线型设置，在AutoCAD中自 动完成钻孔轨迹图的绘制。权利要求，其特征在于首先利用Excel完成的钻孔轨迹参数处理，再通过VBA模块调用Excel的计算结果，完成初始参数和线型设置，在AutoCAD中自动完成钻孔轨迹图的绘制。2.根据权利要求1所述的一种利用VBA模块在AutoCAD中进行钻孔轨迹图绘制的方 法，其特征在于通过以下步骤实现(1)、钻孔轨迹坐标参数的建立建立Excel工作表，输入区将深度、倾角、方位角作为 原始参数名，计算区将偏角、视平移、上下位移、左右位移作为计算参数名；(2)、坐标参数的处理将符合现有Excel工具所包含的公式形式要求的钻孔轨迹坐标 计算公式输入至步骤(1)所建立的Excel工作表，Excel完成坐标参数的处理；(3)、坐标参数的转换和绘制打开AutoCAD后，开启VBA模块调用经过步骤(2)处理后 的坐标参数转换成AutoCAD的绘图命令，并进行初始参数和线型设置，在AutoCAD中自动完 成钻孔轨迹图的绘制。全文摘要本专利技术涉及。目前，煤矿井下定向钻孔多以瓦斯抽放钻孔为主，钻孔的初始设计一般都结合煤矿采掘平面图或地层剖面图完成，而采掘平面图或地层剖面图一般都采用AutoCAD软件绘制，现场经常需要将钻孔的实测轨迹和本文档来自技高网...
【技术保护点】
一种利用ＶＢＡ模块在ＡｕｔｏＣＡＤ中进行钻孔轨迹图绘制的方法，其特征在于：首先利用Ｅｘｃｅｌ完成的钻孔轨迹参数处理，再通过ＶＢＡ模块调用Ｅｘｃｅｌ的计算结果，完成初始参数和线型设置，在ＡｕｔｏＣＡＤ中自动完成钻孔轨迹图的绘制。
【技术特征摘要】
【专利技术属性】
技术研发人员：石智军，孙荣军，张群，李泉新，赵永哲，
申请(专利权)人：煤炭科学研究总院西安研究院，
类型：发明
国别省市：87[中国|西安]
还没有人留言评论。发表了对其他浏览者有用的留言会获得科技券。