基于VB编写钻孔柱状图自动生成插件.docVIP

基于VB编写钻孔柱状图自动生成插件【内容摘要】 使用VisualBasic（VB）语言，使Excel数据文件和Autocad图形文件挂接，并在两者之间建立数据沟通渠道，将Excel中的基本数据、分层数据、取样数据等转化为Autocad中的图形文件，实现在Autocad里自动生成固体矿产钻孔柱状图的目的。 【关键词】VisualBasic（VB）语言Excel数据文件Autocad图形文件 自动成图钻孔柱状图 Abstract: Visual Basic (VB) language, the Excel data file and Autocad graphics file attached, and to establish a data communication channel between the two, the basic data in Excel, hierarchical data, sampling data into Autocad ingraphics files, to achieve the purpose of automatically generated inside Autocad solid mineral drilling histogram. Keywords: Visual Basic (VB) language, the Excel data file, Autocad graphics files,Automatic mapping, drilling histogram. 中图分类号：TP303+.2文献标识码：A 文章编号： 一、绪论 钻孔柱状图一般利用绘图软件，用手工编辑的方法制作，较费时，效率低，不能实现数据共享。因此我们考虑通过编程方法，自动生成钻孔柱状图，同时达到对矿区钻孔数据进行对比和数据管理。 考虑到常用的Excel是一款功能强大的数据处理软件，Autocad是功能强大的图形平台,也是目前国内外使用最广泛的CAD软件，众多用户都已习惯Autocad绘图风格和绘图环境。这样我们需要在Excel和Autocad之间建立数据沟通渠道，并提高Autocad软件绘制柱状图的效率。故使用Autocad的二次开发语言VisualBasic（VB）来编制钻孔柱状图自动绘制工具程序，达到以下目的： 1、读入经过EXCEL程序处理好的地质数据（读入文件为Excel程序对应的*.xls文件）； 2、将这些数据输入Autocad中，使Autocad自动绘制钻孔柱状图（输出文件为Autocad程序对应的*.dwg文件）。 二、 柱状图分解和程序结构分析 钻孔柱状图大致可以分为以下几部分：图头、主表、孔深测量结果表（孔深校正）、钻孔弯曲度测量结果表（测斜）、责任制表。主表除了表头外，主体部分是反映钻孔情况的。根据地质数据对主表进行分类，可以分为三部分：基本信息（孔号、开、闭孔日期、倾角、方位角等）、分层（地质时代、分层情况、柱状图、轴面夹角和地质描述等）、取样（包括取样位置、化验结果等） 故绘制柱状图需要的数据包含基本数据、分层、取样、孔深校正和测斜这5组的数据。为了保证这5组数据能独立被应用，这些数据应位于实线准备好的*.xls文件中5个不同的工作表上。 根据对柱状图的分解和*.xls文件的结构确定，可以确定钻孔柱状图自动绘制工具程序的基本结构为： 1、启动Autocad； 2、数据连接，即读入预先处理好的带地质数据的*.xls文件。*.xls文件中分层、取样、孔深校正和测斜四个工作表需要分别写入程序中； 3、图形绘制，即利用已经读入的数据指挥Autocad绘制钻孔柱状图。具体步骤可以分解如下： 1）绘制主图框的横线 2）插入图头内容 3）绘制分层相关内容 4）绘制取样相关内容 5）绘制孔深测量结果表 6）绘制钻孔弯曲度测量结果表 7）绘制主图框的纵线 8）绘制主图框的底线 9）绘制责任签。 按照对程序的结构分析，其结构流程图如下： 图1 钻孔柱状图自动绘制工具程序流程图 执行完该程序的所有部分后，会在Autocad界面下生成一个完整的柱状图。可以将该图保存为*.dwg文件，并进行打印等操作。 三、钻孔柱状图数据结构分解及数据库模型建立 首先，根据情况我们对柱状图的数据结构进行了分解； 其次，根据以上分析在Excel中建立了单孔的数据模块，以分层表为例，分层表的库结构见图3。 图3分层表(分层数据) 二、 编制程序 按照程序流程图开始分段编制程序。本程序使用VB语言编制。