CN107748814A - 在平面图上钻孔方法 - Google Patents

Abstract

本发明涉及在平面图上钻孔方法，其前提是AutoCAD软件已安装VBA模块，包括以下步骤；步骤一,首先，新建一个Excel文件，在表格的第一行从A‑F列依次标题名称，“计数”，“孔号”，“位置X”，“位置Y”，“煤层底板标高”，“储量估算厚度”，并命名为“Excel钻孔数据文件”；然后，打开该“Excel钻孔数据文件”，在所在的工作表F列右侧增加一列G列，运用Excel函数功能，输入Excel与CAD之间数据转换公式，并复制所在列的函数公式到数据底部；本发明设计合理、结构紧凑且使用方便。

Description

在平面图上钻孔方法

技术领域

本发明涉及在平面图上钻孔方法，本发明涉及煤炭行业，在地质勘探报告中，平面图上地质钻孔的绘制技巧。

背景技术

随着计算机的普及发展，在煤炭行业中，用计算机绘制地质勘探报告中的图纸逐步取代了手工绘图，其中AtuCAD软件是常用的制图软件之一，而在报告的图纸中，储量估算图，等厚线图，等值线图等图件中，钻孔的位置是必不可少的绘图对象。以往的上钻孔的方法就是按照给定的钻孔坐标，底板标高、估算厚度等参数，点按CAD绘图命令，逐个按横坐标X、纵坐标Y绘制钻孔位置在平面图上，同时还是逐个添加修改煤层底板标高，储量估算厚度等对象。这种方法，费时，费力，消耗大量的人工。如果数据量大的话，需要很长时间才能上完所有钻孔位置，同时这种方法有可能由于手工输入错误，导致钻孔位置不准确，检查起来也是比较困难的事。基于此，研究出这种较为快捷方便的上钻孔的方法。运用此方法将会大大节省时间成本，省时省力，尤其是对大量数据，很大的提高了绘图效率。

发明内容

本发明所要解决的技术问题总的来说是提供一种在平面图上钻孔方法；详细解决的技术问题以及取得有益效果在后述内容以及结合具体实施方式中内容具体描述。本发明的目的在于提供在平面图上，上地质钻孔的方法及技巧，解决手动添加钻孔，容易出错、费时、费力、效率低问题。实现快捷上钻孔的方法。

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

一种在平面图上钻孔方法，其前提是AutoCAD软件已安装VBA模块，包括以下步骤；

步骤一,首先，新建一个Excel文件，在表格的第一行从A-F列依次标题名称，“计数”，“孔号”，“位置X”，“位置Y”，“煤层底板标高”，“储量估算厚度”，并命名为“Excel钻孔数据文件”；然后，打开该“Excel钻孔数据文件”，在所在的工作表F列右侧增加一列G列，运用Excel函数功能，输入Excel与CAD之间数据转换公式，并复制所在列的函数公式到数据底部；

步骤二，首先，复制步骤一的G列数据到新建的Word文件；其次，在word中再编辑工具栏中选择的选择性粘贴，其中粘贴形式中选择为“无格式文本”形式；然后，在编辑工具栏中点选其中的替换命令，在查找和替换对话框中，查找内容文本框中输入“\”，替换为文本框中输入“^1”，将所粘贴过来的数据中全部“\”替换为手动换行符；最后复制所有数据；

步骤三，打开AutoCAD软件中已建立钻孔块的模版，在命令中粘贴步骤二中复制的数据，CAD将自动绘制所有的钻孔。

本发明设计合理、成本低廉、结实耐用、操作简单、省时省力、使用方便。

本发明的有益效果不限于此描述，为了更好的便于理解，在具体实施方式部分进行了更加详细的描述。

附图说明

图1、Excel中增加一列，G列；并在G列下的单元格中输入函数。

图2、在Word里，选择性粘贴的粘贴形式。

图3、查找与替换的内容。

图4、AotuCAD中有芯钻孔和无芯钻孔块定义。

图5、钻孔的两种形式。

图6、实施例中所有自动绘制的钻孔。

具体实施方式

下面结合附图和实施例对本发明的实施步骤作详细描述。

如图1-6，本专利在平面图上钻孔方法,其前提是AutoCAD软件已安装VBA模块，包括以下步骤；

如图1，步骤一,首先，新建一个Excel文件，在表格的第一行从A-F列依次标题名称，“计数”，“孔号”，“位置X”，“位置Y”，“煤层底板标高”，“储量估算厚度”，并命名为“Excel钻孔数据文件”；然后，打开该“Excel钻孔数据文件”，在所在的工作表F列右侧增加一列G列，运用Excel函数功能，输入Excel与CAD之间数据转换公式，并复制所在列的函数公式到数据底部；

如图2-3所示，步骤二，首先，复制步骤一的G列数据到新建的Word文件；其次，在word中再编辑工具栏中选择的选择性粘贴，其中粘贴形式中选择为“无格式文本”形式；然后，在编辑工具栏中点选其中的替换命令，在查找和替换对话框中，查找内容文本框中输入“\”，替换为文本框中输入“^1”，将所粘贴过来的数据中全部“\”替换为手动换行符；最后复制所有数据；

如图4-6，步骤三，打开AutoCAD软件中已建立钻孔块的模版，在命令中粘贴步骤二中复制的数据，CAD将自动绘制所有的钻孔。

本发明设计合理、成本低廉、结实耐用、操作简单、省时省力、使用方便。

本发明充分描述是为了更加清楚的公开，而对于现有技术就不再一一例举。

最后应说明的是：以上实施例仅用以说明本发明的技术方案，而非对其限制；尽管参照前述实施例对本发明进行了详细的说明，本领域的普通技术人员应当理解：其依然可以对前述实施例所记载的技术方案进行修改，或者对其中部分技术特征进行等同替换；作为本领域技术人员对本发明的多个技术方案进行组合是显而易见的。而这些修改或者替换，并不使相应技术方案的本质脱离本发明实施例技术方案的精神和范围。

Claims (1)

1.一种在平面图上钻孔方法，其特征在于：其前提是AutoCAD软件已安装VBA模块，包括以下步骤；

步骤一,首先，新建一个Excel文件，在表格的第一行从A-F列依次标题名称，“计数”，“孔号”，“位置X”，“位置Y”，“煤层底板标高”，“储量估算厚度”，并命名为“Excel钻孔数据文件”；然后，打开该“Excel钻孔数据文件”，在所在的工作表F列右侧增加一列G列，运用Excel函数功能，输入Excel与CAD之间数据转换公式，并复制所在列的函数公式到数据底部；

步骤二，首先，复制步骤一的G列数据到新建的Word文件；其次，在word中再编辑工具栏中选择的选择性粘贴，其中粘贴形式中选择为“无格式文本”形式；然后，在编辑工具栏中点选其中的替换命令，在查找和替换对话框中，查找内容文本框中输入“\”，替换为文本框中输入“^1”，将所粘贴过来的数据中全部“\”替换为手动换行符；最后复制所有数据；

步骤三，打开AutoCAD软件中已建立钻孔块的模版，在命令中粘贴步骤二中复制的数据，CAD将自动绘制所有的钻孔。