Mapgis 自动成钻孔柱状图方法

MAPGIS制做钻孔柱状图方法一、制做标准的钻孔柱状图图框。

并把起始位置坐标（MAPGIS中）移至（0，0）处，方便计算坐标。

以下图为例进行说明。

二、原始柱状图的数据录入及准备1、将已录入EXCEL表格中原始编录层孔深按比例尺计算后复制到一个新表格中，（如比例尺1：500）100米孔深对应MAPGIS的纵坐标数据应为200。

柱状图中花纹对应的横坐标数据为105和125。

下图左。

形成（105，0）和（125，0）孔深0米处的坐标对和（105，－68.8）和（125，－68.8）孔深34.4米处的坐标对，并按坐标由左向右进行排序。

如下图右。

（MAPGIS自动投点中，画线是按坐标对进行画线的，即1－2，3－4……。

数据经过排序后，可自动将每一层的位置界线添加到图面中。

）保存文件采用文本方式（.txt格式）2、数据投影打开MAPGIS中“投影变换”子系统，选择“投影变换－用户文件投影变换”打开保存的投影数据文本文件。

查看右上角坐标显示是否正确。

（如上右图）在“用户投影参数”和“结果投影参数中”比例尺采用比例尺／1000的数据，单位为毫米。

先“生成点”－投影变换－确定。

保存点文件。

再“生成线”－投影变换－确定。

保存线文件。

打开MAPGIS“输入编辑”新建工程，将保存的点线文件和已做好的柱状图图框添加到新工程中，原始层的位置界线已在图中。

如下图二、综合记录数据孔深界线与上述一致，重复以上操作。

如下图上述一、二完成仅仅是将界线录入MAPGIS中，下一步是将综合记录中的数据导入MAPGIS。

三、数据导入1、EXCEL表格中内容转为MAPGIS点线文件，请参阅以下文章。

EXCEL表格中内容转为MAPGIS点线文件在工作中制作专题图时常需要将EXCEL表格插入到MAPGIS图形中去，通常我们都需要将EXCEL表在MAPGIS中重新矢量化才可以。

实际上对于一些结构比较简单的表格我们可以通过MAPGIS的报表定义模块将其转换成MAPGIS文件。

图 ２ 钻 孔 柱 状 图 绘 制 流 程 Ｆｉｇ．２ Ｆｌｏｗ ｃｈａｒｔ ｏｆ ｂｏｒｅｈｏｌｅ ｈｉｓｔｏｇｒａｍ ｄｒａｗｉｎｇ
图 １ 钻 孔 柱 状 图 要 素 图 元 分 解 Ｆｉｇ．１ Ｄｅｃｏｍｐｏｓｉｔｉｏｎ ｏｆ ｂｏｒｅｈｏｌｅ ｈｉｓｔｏｇｒａｍ ｍａｐ ｅｌｅｍｅｎｔｓ
钻孔柱状图是钻孔信息的一种非常有效的表现 方 式 ，它 将 井 筒 中 获 得 的 信 息 随 深 度 反 映 在 图 件 上 ， 井筒中采集到的 各 种 资 料，如 岩 心 资 料、录 井 资 料、 测井资料、分析化验 资 料 等 都 是 以 柱 状 图 形 式 提 供 给用户的。这些资 料 都 包 含 地 理 信 息，是 一 定 空 间 位置的地质特征的反映。通过柱状图反映地层随深 度变化的情况，了 解 地 层 岩 性、物 性 变 化 趋 势，对 井 资料进行综 合 分 析 与 解 释 。 ［１－２］ 钻 孔 柱 状 图 是 提 取 地质信息和确定后 期 工 作 方 向 的 基 础 资 料，是 岩 土 工程地 质 中 最 基 础 的 图 件，也 是 最 重 要 的 图 件 之 一 ［３］，地 质 成 果 均 离 不 开 钻 孔 柱 状 图 。
（１∶５００００）》ＧＢ９５８－９９ 中 岩 石 花 纹 图 案 的 相 关 标 准 规范统一设计常见 的 地 层 岩 性 类 型，建 立 一 套 完 整
的岩石花纹图案 库。 但 各 省 局，甚 至 各 个 矿 区 都 有
与 国 家 不 同 的 规 则 ，不 是 一 成 不 变 的 ，都 需 要 进 行 修
（中国地质大学信息工程学院，武汉 ４３００７４）
摘 要：钻孔柱状图是地质勘察工作中的一类基础图件，手工绘制方法难以满足实际生产的需要。提出了一种基于 ＭａｐＧＩＳ钻 孔柱状图的绘制方法，分析了钻孔柱状图模板结构，并将图面要素分解为 ＭａｐＧＩＳ点、线、面 ３种图元，详细设计了钻孔柱状图绘 制流程，简要介绍了钻孔数据库与岩性图案系统库的创建方法，通过 ＡＤＯ 访问方式实现了应用程序和数据库的连接，重点阐述了 利用 ＭａｐＧＩＳ的 ＡＰＩ函数实现柱状图表头、岩性柱图道、缓冲线绘制的关键技术。 关 键 词 ：ＭａｐＧＩＳ；二 次 开 发 ；钻 孔 柱 状 图 中 图 分 类 号 ：Ｐ６３４．９ 文 献 标 志 码 ：Ａ 文 章 编 号 ：１０００－７８４９（２０１４）０３－０１９６－０６

钻孔柱状图转换程序具体操作详细说明
应与本站广大地质工作者的要求，在大家的踊跃的投票下，现提前一天发布〈Mapgis 自动生成钻孔柱状图〉软件，希望大家多多支持！
下面，有几个地方需要讲解一下，大家最好把所有的附件全下完，再逐步按照下面的步骤操作。

1．先打开“钻孔数据生成线计算表.xls”。

2．在“钻孔数据生成线计算表.xls”中的“分层表”、“采样表”中填写相应的钻孔数据。

3．根据“实际数据+1=Mapgis 明码文件数据”的原则对其进行选择，简单来说，就是分层表数据为10，那分层数据为11，详细的操作在“Mapgis 生成钻孔柱状图录象教程.exe ”
中有见。

后面的操作同样如图所示
4．再根据“Mapgis生成钻孔柱状图录象教程.exe”中逐步转化即可完成！
注：本人发布的程序仅可与“与钻孔计算对应的点线文件”的模板为蓝本，若贵处的钻孔柱状图的模板不同，要修改数据才可与之对应。

修改数据的详细方法参照《由野外实测数据直接生成MAPGIS地质基础图件方法》、《记事本、EXCEL在MAPSOURCE和MAPGIS数据转换中的应用》、《在MAPGIS下快速实现柱状剖面图的绘制》等文献进行操作。

再次感谢大家对该软件的支持！
作者：闵旗华
联系邮箱：jahymin@。

２ １ 年第 ３ ０ １ 期
中国非金 属矿 工业导 刊
总第 ８ 期 ９
【 其
他】
陆 枝 恒
（ 中国建筑材料 工业地质勘 查 中心江 西总队，江西 上饶
【 摘
３４ ０ ３ ０ ｏ）
要 】本 文 基 于 ＤＥ Ｐ 开 发 平 台 ， 采 用 数 据 库 、Ｅ Ｅ 数 据 表 格 、Ｍ Ａ ＧＩ 明 码文 件 ，论 述 多 模 式 地 质 柱 状 图 Ｌ ＨＩ ＸＣ Ｌ Ｐ Ｓ
出。 当ｔ ｐ ＝３ ，点信息 为 ：半径 、起始角 度 、终 ｙｅ 时
缺 ，尚不能灵活运用到各地 区、各相 关行业 。应用上 的～些 限制 ，生成多模 式、通用性 强的钻孔柱状 图的
止角度 、线宽 、颜色 、图层 、透 明输出 。
当ｔ ｐ ＝ 时 ，点信息 为 ： “ ｙｅ４ 图象 文件名 ”、宽 度 、高 度 、角度 、颜色 、 图层 、透 明输 出。
当ｔｐ ＝ 时 ，点信息为 ： “ ｙｅ ５ 文本字 串” 、字高、
问题 ，已成为地质 专业人 员在实 际工作 中急需解决 的
实际 问题 。笔者通过多年的研究和试用 ，利用Ｅ Ｅ ＸＣ Ｌ 强大 的制表功能和数字处理计算功能 ，通过数据 库和
ＭＡＰ Ｉ 明码格 式 ，最终实现 了可灵活运 用的多模 式 ＧＳ 地质柱状 图。该软件操作 简单、方便 ，充分考虑了地
总第 ８ 期 ９
ＸＩ １ ｙｍ １ ｌ ｌ
０ （ 第 十ｌ 项）
Ｉ 线 长度 Ｄ ２ 线 号
弧段 ＋１ 号 （ 编 第五＋２ 项）
弧段 ＋ 编 号 （ ２ 第丘＋３ 项）
力 线 号
２ ３ 区文 件 结 构 ．
最后 弧段 编号
／号 区 ／ ７

钻孔柱状图说明 11、打开MEMAPGIS,选择（选择工作矿区）/（选择矿区图）2、在给出的地图中用鼠标选择你工作的省3、在弹出的窗口中选择新建矿区：填写矿区的基本信息，点击确定4、选择刚建好的矿区，点击确定5、进入固体矿产勘查桌面系统，在（工程操作与区域采样）栏中选择（室内工程属性数据录入（新建））/钻孔，会询问：是否添加到图层钻孔中？选择：是。

用鼠标在矿区图中点击，即可创建钻孔，会弹出：钻孔基本信息表格，一些重要的信息要填写，其中勘探线号必须填写。

6、选项（工程操作与区域采样）/（工程数据编辑与浏览）/钻孔，然后用鼠标选中矿区图中的钻孔图标，弹出对话框问你：勘探线目录不再是否新建？选择：是。

勘探线工程目录不再是否新建？选择是。

7、弹出钻孔地质数据录入图框，先填好回次库，再添分层库、弯曲库等。

8、回次库的填写，先选择（回次库）再选择新建，填入相关数据，分层库的填写相同。

9、填写完毕后，选择（勘探工程与区域采样）/(打开钻孔柱状图)，会弹出：选择勘探工程类型栏目，依次选择勘探工程、勘探线号、勘探工程编号，选择确定。

10、弹出：柱状图目录不存在，是否新建？选择是。

弹出：……文件改变！是否保存？选择是。

11、系统进入柱状图编辑系统，选择（柱状图）按钮下的（柱状图设计），从中你可以修改柱状图的设计，修改完后，再点击栏目中的（柱状图）按钮，即可生成柱状图。

关于如何生成柱状图，相见：钻孔柱状图制作说明2.12、如果要返回修改钻孔基本信息，则选择（勘探工程与区域采样）/(打开矿区图)，又回到原来的界面修改钻孔信息。

Memapgis钻孔柱状图操作说明1 打开柱状图首先选择打开钻孔柱状图。

菜单：勘探工程与区域采样―>打开柱状图选择一个钻孔工程：程序会按照默认配置生成表头，如图：2 柱状图编辑用户可以通过修改默认配置生成自定义的柱状图。

选择菜单：钻孔柱状图－>柱状图设计。

2.1 柱状图“组成”表编辑在“组成”表中，用户可以修改“图名”“图眉”“正文数字”“正文汉字”等项目的注释参数信息。

基于MapGIS开发地质矿产钻孔柱状图探讨摘要：本文叙述了MapGIS软件的先进成图理论；介绍了VC++开发语言的开发原理与代码机制；浅述了MapGIS二次开发类库的操作原理；讨论了基于MapGIS开发地质矿产钻孔柱状图的开发流程总图；深入探讨了钻孔柱状图各模块实现的原理与代码；最后，文章给出了地质矿产钻孔柱状图生成的基础步骤流程并分析了图形形成原理；希望能给广大同行带来一定的理论与实践意义。

关键词：MapGIS类库，钻孔柱状图，地质矿产，二次开发钻孔柱状图是工程地质中广泛使用的基础性图件，但是通常采用传统的手工绘制，效率低而且不易修改，不能满足实际工作的需要。

近年来，随着计算机技术的应用与基于GIS(地理信息系统)利用数学地质方法进行矿产预测的应用，需要一种GIS支持的矿区钻孔柱状图绘制系统，其不仅要能绘制钻孔柱状图，而且还能对矿区钻孔数据进行对比和数据管理，为基于GIS应用数学地质方法对矿区进行矿产预测提供数据准备[1-2]。

本文基于国产地理信息系统软件平台MAPGIS，开发了针对地矿行业的钻孔柱状图自动生成系统，实现了图与数据的统一。

1 MapGIS概述1.1 MapGIS软件图形数据库管理子系统是地理信息系统的重要组成部分。

MAPGIS的图形数据库管理系统可同时管理数千幅地理底图，其主要功能如下：图库操作功能---提供了建立图库、修改及删除图库等一系列操作；以及图幅入库的参数设置，包括幅面的大小、经纬跨度和比例尺等等；对编辑好的图库，系统还提供了图库输出功能，将其转化为地理信息系统或管网属性系统等的底图，备其他系统使用。

为严格确保数据的完整性，在建库过程中作值域检查、依赖关系检查、重复记录检查，系统对用户数据自动备份，用户数据一旦遭意外而被破坏，可启用备份数据。

引入“库类”的概念，建立了一种数据组织与管理的新方法，使得地图数据的存储与检索非常灵活。

库类的操作提供了增加类、删除类、更换类、修改类名、浏览类。

Memapgis钻孔柱状图操作说明
1 打开柱状图
首先选择打开钻孔柱状图。

菜单：勘探工程与区域采样―>打开柱状图
选择一个钻孔工程：
程序会按照默认配置生成表头，如图：
2 柱状图编辑
用户可以通过修改默认配置生成自定义的柱状图。

选择菜单：钻孔柱状图－>柱状图设计。

2.1 柱状图柱状图““组成组成””表编辑
在“组成”表中，用户可以修改“图名”“图眉”“正文数字”“正文汉字”等项目的注释参数信息。

2.2 柱状图柱状图““从属表从属表””编辑
在“从属表”栏目中，用户可以修改“复合表头”的参数。

所谓“复合表头”指的是表头中一些最终栏目的组合，并不能直接挂接数据。

如下图，“分层情况”就属于复合表头，而“孔深”等属于挂接数据的最终栏目。

复合表头还可以从属于其他的复合表头。

如下图，采样位置也是复合表头。

栏目””表编辑
柱状图““栏目
2.3 柱状图
在栏目表中，用户可以对每个数据栏目的参数进行修改(如图)，也可以进行添加和删除等操作。

3 生成钻孔柱状图
配置完成后就可以点击“柱状图”按钮生成图表。

柱状图部分如下图：。

Mapgis 自动成钻孔柱状图方法一、原理Mapgis中的点、线可以通过明码转换的方式生成，明码文件中只要表明钻孔柱状图中需要的点和线在图中的位置和格式，就可以利用mapgis中文件转换功能转换成钻孔柱状图的点和线，从而达到自动生成钻孔柱状图的目的。

二、所使用的软件excel，mapgis ，vf6.0，6.prg和66.prg三、使用说明1、准备工作成钻孔柱状图首先需要岩芯鉴定本和测井，在此定名两个文件分别命名为：岩性统计.xls和测井柱状.xls（1）岩性柱状.xls文件格式，注：A列代表层号；B列代表岩层名称；C列代表岩层底深；D 列代表岩层厚度；E列代表取芯长度；F列代表取芯率；G列代表岩层倾角；H列代表岩性描述。

注意在岩性描述里不能出现英文半角字符。

（2）测井柱状.xls文件格式注：A列代表岩层名称；B列代表岩层底深；C列代表岩层厚度。

做好上面两个文件后保存在F:\vp柱状\ 文件夹里。

2、生成柱状图点和线文件的明码格式在VF6.0中运行6.prg程序，从而产生点、线文件的明码格式文件。

运行中需要输入变比例深度，此深度最好填终孔深度。

运行结束后会依次显示两个文件，分别为注释.txt和柱状.txt。

（1）注释.txt文件此文件为柱状图中点文件的明码文件，格式如下：（2）柱状.txt文件此文件为柱状图中线文件的明码文件，格式如下：上面产生的两个文件需要处理下才能作为明码文件，处理方式和结果如下：（1）注释.txt文件的处理此文件处理方式为把第一行的“a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p”删掉，然后加上：WMAP90221771此处“WMAP9022”代表为点文件明码格式的开头，“1771”代表了点的数目，这个数字为文件最后一行，第3个数字。

处理结果如下：（2）柱状.txt文件的处理此文件的处理稍微复杂：首先把“,0.0000000000,0,.00,0.0,.00,0,0,0”全部替换为“”，即空，然后再把“,0,.00,0.0,.00,0,0,0”全部替换为“”，也是空，替换完之后，最后替换头，把头“a,b,c,d,e,f,g,h,i”替换为：WMAP90211693这里“WMAP9021”开头代表线文件明码格式的开头，“1693”代表线数，在文件最后一行第一个数字。

② 输入你需要的图头 高度与子栏数目。
③左侧的 列表框中， 是可选的 子栏项目， 选中一项 后，下边 会显示标 题、内部 名等参数。
⑤选中一项后，点“>”按钮， 加入到右侧的子栏表中，按需 求一一加入即可。
④标题可修改以适应不同的需求，但要保 证其含义与内部名是一致的。
1.子栏表中第一 列打钩后，该子 栏将绘制钻孔编 录表中的数据并 绘底线，否则， 该子栏将与编录 数据不相关。如 换层深度、分层 厚度等需需要选 中，类似地层单 位界、系、统等 不能选中。柱状 图一项也可选中。



先介绍一下本软件中一些基本概念:
下面是一个柱状图的图头的一部分,栏目有两种类型：
直接连着图体、不 包含任何其它栏目 的栏称为子栏。 包含其它栏目的栏 叫分组栏
二、定义样式：
点击菜单—>地质柱状 图->创建柱状图样式， 弹出样式定制窗口。
①可以在现有样式中选择一 个样式进行修改，也可从头 新建一个。
钻孔柱状图自动成图
软件使用说明
山西省临汾市迪诺软件有限公司
程序主界面
一、准备工作：编辑岩石花纹代码数据库


点击 地质柱状图->岩 （矿）石代码编辑，弹 出对话框进行编辑。 每个图案代码对应一个 MAPGIS图案库的图案 号
每个颜色代码对应一个 MAPGIS颜色库的颜色 号
请根据自己定义的图例设置代码，代码在软件界面上表现为岩石名称，输入到内部 的为代码。设置好后将来一劳永逸。


三、输入数据
地层单位数据：是指界、系、统、组、段等地层单 位的名称和对应的孔深。你选的样式有哪些单位， 输入表中就列哪些单位，输入的数据可保存为文件， 以备后用。 回次数据、编录数据 (地质分层) 等，皆有其专门的 输入表格，可保存为文件。输入过程作了一些自动 化处理，如输入了孔深、岩长，进尺、采取率可自 动输入，岩石花纹代码为自动弹出下拉可选项，皆 为岩石名称，便于理解。

2、工作簿中有四个表格，改变名称不会影响程序的运行（但弹出对话框时的默认输入内容将不能用了），“表头”作为第一个工作表的位置不允许改变。
表头：前面八行是预先设置一些参数，这里只说明一些字面上不好理解的：
①所有称为“标号”的是指样品铁轨线旁边对样品的标注；
2、程序运行后生成“文字”、“线”、“层区线”、“样品铁轨”、“地质描述”5个txt文本文件。请把“文字”、“样品铁轨”和“地质描述”改为wat（样品铁轨线不是区而是点文件，子图号为833，请在你的子图库中添加1*1的一个正方形区块子图，默认颜色为黑色1，边框线也是黑色但请取另一值，否则子图颜色改变时边框线颜色也会随之改变），其它两个改为wal。
5、转换成图形文件后，把系统库换成我提供的系统库，就可以看一看效果了。
在生成柱状图.xls 中已经做好了相关VBA宏，参照说明运行宏，会生成5个文本文件到该表格所在目录下。
把文本文件改成相应的明码格式后缀，在文件转换系统中，点击“输入明码格式文件”，选择一个明码文件后，点“文件-存点（或线）”就OK了
②“版面”指每个层的地质描述，也是mapgis的一种点类型，版面页边距是地质描述部分左上角距离水平和垂直界线的距离；
③文字沉底和文字靠左：值为0表示回次、分层和采样的数据在柱状图中居中，其它任何整数则分别文字沉底、文字靠左；
④标号区在铁轨左：值为0表示样品号标注区在铁轨线右边，其它任何整数相反；
忘了说明一点：样品分析结果可以根据实际化验的元素项目添加或减少相应的列，不过注意别忘了“表头”和“样品分析结果表”要对应。
请认真阅读详细说明：
一、mapgis自动生成柱状图原理
1、原理很简单，不需要对mapgis软件进行二次开发。在excel中编写VBA程序subMapgisDraw()，通过它读取已输入到同一工作簿各工作表中的数据生成mapgis点、线的明码格式文件，然后在文件转换系统系下转换成图形文件。进行处理的数据表格结构清晰、格式符合一般的规范并且使用者在一定的范围内根据需要做出调整。操作简单，实用性较强。

Mapgis 自动成钻孔柱状图方法一、原理Mapgis中的点、线可以通过明码转换的方式生成，明码文件中只要表明钻孔柱状图中需要的点和线在图中的位置和格式，就可以利用mapgis中文件转换功能转换成钻孔柱状图的点和线，从而达到自动生成钻孔柱状图的目的。

二、所使用的软件excel，mapgis ，vf6.0，6.prg和66.prg三、使用说明1、准备工作成钻孔柱状图首先需要岩芯鉴定本和测井，在此定名两个文件分别命名为：岩性统计.xls和测井柱状.xls（1）岩性柱状.xls文件格式，注：A列代表层号；B列代表岩层名称；C列代表岩层底深；D 列代表岩层厚度；E列代表取芯长度；F列代表取芯率；G列代表岩层倾角；H列代表岩性描述。

注意在岩性描述里不能出现英文半角字符。

（2）测井柱状.xls文件格式注：A列代表岩层名称；B列代表岩层底深；C列代表岩层厚度。

做好上面两个文件后保存在F:\vp柱状\ 文件夹里。

2、生成柱状图点和线文件的明码格式在VF6.0中运行6.prg程序，从而产生点、线文件的明码格式文件。

运行中需要输入变比例深度，此深度最好填终孔深度。

运行结束后会依次显示两个文件，分别为注释.txt和柱状.txt。

（1）注释.txt文件此文件为柱状图中点文件的明码文件，格式如下：（2）柱状.txt文件此文件为柱状图中线文件的明码文件，格式如下：上面产生的两个文件需要处理下才能作为明码文件，处理方式和结果如下：（1）注释.txt文件的处理此文件处理方式为把第一行的“a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p”删掉，然后加上：WMAP90221771此处“WMAP9022”代表为点文件明码格式的开头，“1771”代表了点的数目，这个数字为文件最后一行，第3个数字。

处理结果如下：（2）柱状.txt文件的处理此文件的处理稍微复杂：首先把“,0.0000000000,0,.00,0.0,.00,0,0,0”全部替换为“”，即空，然后再把“,0,.00,0.0,.00,0,0,0”全部替换为“”，也是空，替换完之后，最后替换头，把头“a,b,c,d,e,f,g,h,i”替换为：WMAP90211693这里“WMAP9021”开头代表线文件明码格式的开头，“1693”代表线数，在文件最后一行第一个数字。

如何画钻孔柱状图在我们生活中，和数据打交到最多的软件可能要数EXCEL。

MAPGIS虽然集成了大量的处理GIS数据的模块，但它在计算机辅助成图设计方面确实与AutoCAD相差甚远。

作为地质工作者，画柱状图是一项基本功，MAP GIS软件现已成为国人地学“通用”软件，要成一张柱状图很要费一番功夫：通常有二种方法可供选择，1）、手工用直尺铅笔在磅纸上作好后，经扫描仪扫描后，再经矢量化成图。

这种方法比较正宗，也是最“笨”的办法，虽然叫“电脑制图”，其实应该叫“穿新鞋，走老路”；2）、用一个已作好的柱状图作为“模板”，去掉“多余”的内容，采用“阵列复制”功能，从而实现“精确”定位，反反复复的利用这一单一功能，作一张图繁杂得“要命”，不过其精度比第一种要高得多。

现在都是计算机时代，如果利用计算机成图还是如蜗牛般“快”，那就失去了电脑成图的意义。

如何让电脑自动绘MAPGIS钻孔柱状图，是本讲座要探讨的主要内容。

希望通过本讨论把你带入到“自动成图”的“天堂”中。

由于它涉及到的内容较多，本讲座分为四部份：1、连接EXCEL；2、如何生成点文件（*.wt)；3、如何生成线文件(*.wl)；4、如何生成区文件(*.wp)。

最后送大家一个编译好的生成钻孔柱状图的程序及VB的源代码程序（VB6下的工程文件等，经简单修改一下就可以变成你需要的模板）本来网上有较多的关于VB与EXCEL连接的程序源代码，为了内容的完整性，在此我把该代码写一遍，其形式如下：Set Myapp = CreateObject("Excel.Application") Myapp.Visible = true Set MyBook = Myapp.Workbooks.Open("c:\windows\temp\GIS钻孔柱状图.xls") Set mysheet = MyBook.Worksheets(1) MyBook.CloseMyapp.Quit至此，你的程序就可以“认识”电子表格（c:\windows\temp\GIS钻孔柱状图.xls）了，如你要访问第8行、第2列的数据，用代码mysheet.Cells(8, 2).value就可以了。

科 技论 坛
・ ｌ ２ ９ ・
浅谈 Ｍａ ｐ ｇ ｉ ｓ 地 质钻孔柱状 图制 图方法
第四地质大队 ， 河南 郑州 ４ ５ ０ ０ １ ６ ） 摘 要： 了解 Ｍａ ｐ ｇ ｉ ｓ 制 图软件在地质制图中的设计和过程、 图像制作的方法等 内容 ， 让更 多的人 了解 Ｍａ ｐ ｇ ｉ ｓ 软件 的技术概念 并学会 利 用此软件的使用方法 ， 并通过此软件在地质制图ｓ ｔ ＿ 作上发挥更强大的作用。
关键词 ： Ｍａ ｐ ｇ ｉ ｓ 投影； Ｍａ ｐ ｇ ｉ ｓ 制图 ； 方 法
使用 Ｍａ ｐ ｇ ｉ ｓ 制 图软件在地质制 图中的设计和过程、 图像制作的方 有两项质量参数 ： 全孔岩芯采取率、 全孔矿芯采取率 ， 一般在钻孔质量 法等 内容 ， 让更多的人了解 Ｍａ ｐ ｇ ｉ ｓ 软件的技术概念并学会利用此软件 表中集中反映 ， 故此处省略。３ ． １ ． ２图表系统分类 ： 共４ 类， 就是 回次情 的使用方法 ， 并通过此软件在地质制图工作上发挥更强大的作用。 地质 况、 分层情况 、 取样分析、 水工编录。 ２ ０ ０ ６ 年 ７月中国地质调查局发布了 钻孔柱状图是地质工作人员在野外经常用到的图件之一 ，可以通过地 Ｄ Ｄ ２ ０ ０ ６ －０ １ （ 固体矿产勘查原始地质编录规程》 （ 试行 ） ， 其中的钻孔柱 质钻孔柱状图了解到该地层的岩性 、 地层年代等相关信息。 利用 Ｍａ ｐ ｇ ｉ ｓ 状 图图式缺少回次情况 ， 有评审专家指出 ， 这是重要 的基础参数 ， 不可 投影制作地质钻孔柱状图 ，可以节省地质工作人员的时间。本章谨对 或缺。因此 ， 我们建议， 即便是国土资源大调查项 目， 所附的钻孔柱状 图 Ｍ ａ ｐ ｇ ｉ ｓ 地质钻孔柱状图制图操作步骤进行简单介绍 。 也应包括此项 内容 。 ３ ． １ ． ３ 水工编录： 现在不少矿区缺少专业的水工环技 １投影 坐标 设计 术人员 ， 故一般地质人员应对此有一定了解 ， 并承担起相应的编录管理 每个钻孔都应进行水文简观和基本的工程地质编录（ Ｒ Ｑ Ｄ 钻孔柱状图实际是—个以表为主的图表系统 ， 列宽根据 内容确定 ， 任务。第一 ， 行高根据回次进尺 、 分层厚度、 样长等确定。 值测量 ， 参见钱学溥有关文章） 。 第二 ， 图面内容中 应有所反映。 ３ ． １ ４其 ． １ ． １ 原 ： 指定钻孔柱状图表头左下角为原点（ ０ ， ０ ） 。 他取样及矿体编号： 其他取样主要指光薄片 、 小体重样等 ， 有时随回次 １ ． ２ 横坐标 ： 各列右界横坐标为其左侧各列宽度之和。 编录进行， 有时随基本分析取样进行 ， 暂归入回次情况大类。矿体编号 １ ． ３ 表头纵坐标 ： 均为正值 ， 根据表头内容设计高度。 是工作晚期成果 ， 是最后的图面补充内容 ， 一般用手工方式编辑 ， 归入 就某一矿区而言 ， 钻孔柱状图的表式都是统一的 ， 所以 钻孔柱状图的表 取样分析大类。３ ． １ ． ５附表系统内容 ： 分２ 类， 技术参数表格 、 图签。技术 头只需制作一次， 并作为模版使用， 其他钻孔柱状图无需重新制作。 参数指钻孔结构 、 孔深校正 、 弯曲测量 、 封孔情况这 ４ 项内容 ， 集 中放在 ｌ ４主体纵坐标 ： 指表头下部所有内容的纵坐标 ， 均为负值， 利用钻 图幅左 下角 。图签放 在 图幅右 下角 。 孔的深度参数并根据 比例尺换算后得到。 ３ ． ２ 钻孔 柱状 图图式 Ｍ ａ ｐ ｇ ｉ ｓ 默认 的 比例 尺为 １： １ ０ ０ ０ ，如果某 钻孔 的终： ￣ Ｌ － ｆ Ｌ 深 为 ３ ． ２ ． １ 分类通栏标题。 对于刚接触钻孔柱状图的年轻地质人员来说， ｌ Ｏ ０ ０ ｍ， 直接用这个数据投影 ， 得到的柱状图长度 恰好为 ｌ ｍ 。若想制作 这样的通栏标题对于他们了解该图的基本内容是有好处的。以分层情 １： ２ ０ ０的钻孔柱状图， 则孔深数据均要乘以 １ ０ ０ ０ １ ２ ０ ０ ＝５ 。 况为例 ， 中间的柱状花纹图与两侧的数据和地质描述是完全对应的， 分 层界线也是左右贯通的，故花纹图和地质描述栏的列线不再穿透大类 ２ 基础 附表 格式 基础附表主要有两个 ： 钻孔编录表 、 钻孔取样表 。 标题。另， “ 地质描述” 这个术语相对于其他术语是更 堇的。轴夹角相 放在左侧的数据区域更好。 分层 ２ ． １ 钻孔编录表 。钻孔编录表中的内容分 四类 ： 回次 『 青 况、 分层情 对于其他数据而言并无更特殊的地方 ， 代号紧挨花纹图， 对于直观读图有好处。３ ． ２ ． ２花纹图两侧的空白列： 分 况、 水文简观 、 备注。 ２１ ． １ 回次情况： 分两类 ， 一是回次参数 ， 二是回次取芯。 回次参数通 层很细时， 花纹图两侧的数据和描述文字所在的空间很狭窄 ， 需要在垂 常分四列 ： 回次编号、 自、 至、 进尺。Ｄ Ｄ ２ ０ ０ ６ 一 Ｏ １ 推荐的钻孔回次记录表 向上扩充空间， 此时分层横线发生错位现象， 需要在这两个空 白列里用 省略了“ 自” 列， 因为各回次是首尾相接 的， 该列多余。回次取芯有 ５ 列 斜线连接。因此 ， 这两个空 白列不能省略 ， 即使用得不多， 也应保持定 内容 ， 其 中回次芯长、 回次采取率、 岩芯块数这 ３列必不可少 。 残留岩芯 式。３ ． ２ － ３ 钻孔结构 、 弯曲测量 ： Ｄ Ｄ ２ ０ ０ ６ — ０ ｌ 是作为图面内容处理的， 这 列在采用金刚石钻进 、 绳索取芯时可 以省略或空缺（ 地工 ［ １ ９ ８ ２ １ ５ ５ ８号 种处理方式不妥 ， 和另两类技术参数（ 孔深校正 、 封孔情况 ） 拆散了， 对 《 岩芯钻探规程》 第三十二条第 ３ 款， 每回次都应尽量采净岩芯， 以免下 于长达数百米的深孔柱状图而言， 也不如表格形式直观。 ３ ． ２ ． ４ 起始孔深 回次孔深数据是一个连续不问断的系列 ， 知道下界孔深和进尺 ， 个 回次下钻时损伤钻头。残 留岩芯超过 ０ ． ２ 米时， 应用岩芯捞取器专程 数据 ： 捞取 ， 严禁用金刚石钻头套扫） 。 ２ ． １ ． ２ 分居 隋况： 分两类 ， 一是分层参数 ， 就能推算上界孔深 ； 惯常的“ 自㈤ ” 列其实并无必要 ， 仅用下界孑 Ｌ 深（ 至 表示即可 ， 能节省一列空间； 这种处理方式和 Ｄ Ｄ ２ ０ ０ ６ — ０ １ 昕 十 的 二是地质描述。 分层情况 中的大部分数据都可以 自动计算 ， 方法是选中 ㈤ ） 天蓝色标注的一行 ， 依次复制粘贴即可。只有分层代号和轴夹角两列需 表式是统一的。分层孔深也是连续系列 ， 只用“ 换层孔深” 表示即可， 这 要手工录入 。 地质描述的重要性不言而喻 ， 初次录入时可只键人分层的 和 Ｄ Ｄ ２ ０ ０ ６ — ０ １ 不同。 结束 语 岩性定名，然后再根据原始编录资料分层整理描述 内容。２ ． １ ． ３ 水文简 观： 根据水文简观记录表内容录人。２ ． １ ． ４备注： 用于标注其他取样的样 通过 Ｍａ ｐ ｇ ｉ ｓ 制图软件制作地质钻孔柱状图，在时间上大大缩短了 号 。２ ． １ ． ５ 校对 ： 附表数据均在 Ｅ ｘ ｃ ｅ ｌ 表格中录入或计算 ， 这种 自动计算 地质工作量， 使地质人员能更陕更清楚的分析地质特征。 对地质工作带 在科技进一步发展的影响下 ， Ｍ ａ ｐ ｇ ｉ ｓ 制图技术将会发挥更 功能实际上还具有校对功能。 比如， 若发现采取率数据大于 １ ０ ０ ％， 除了 来很大便利。 残 留岩芯的影响之外 ， 很可能是钻探报表 中的计算错误所导致的结果。 大的作用 ， 以更加有效地满足社会发展的要求。 参考文献 ２ ． ２ 钻孔取样表 。该表根据通用格式制作 ， 需要投影的是样品的基 本参数 ， 即前 ６ 列内容 ， 以及后面几列的化验分析数据。 【 １ ］中华人民共和国地质矿产部． 地工 ［ １ ９ ８ ２ ］ ５ ５ ８ 号岩芯钻探规程『 ｓ ］ ． １ ９ ８ ２ ３钻孔柱状图图式标准化讨论 钻孔柱状图图式并无定式。 随矿种或分析项 目 不同会有所变化， 但 ［ ２ ］ 中国地质调查局． Ｄ Ｄ ２ ０ ０ ６ － － ０ １固体矿产勘查原始地质编录规程（ 试行） 基本内容及基本图式应有统一约定 ， 此处进行简单讨论。 ［ ｓ ］ ． ２ ０ ０ ６ ． ３ ． １ 图面基本内容。钻孑 Ｌ 柱状图图面内容 ： 分３ 大类 ， 图头系统、 图 ［ ３ ｐ Ｊ 、 永豪， 李毅， 燕红丽， 马静． Ｅ ｘ ｃ ｅ ｌ 与 Ｍａ ｐ Ｇ ｉ ｓ 在绘制 钻孔柱状 图中的应 表系统 、 附表系统。其中图表系统是主题内容 。 用 ． 河南地球科学￣ Ｉ Ｌ ２ ０ ０ ７ ． ４ １ 黄与能． 钻孔原始地质编 Ｒ １ ． ｍ￣４ ｔ Ｍ－ ， ２ ｏ ｏ ８ ． ３ ． １ ． １ 图头系统参数： 包括图名等 Ｉ １ 项参数。 Ｅ ｌ 期及终孔孔深共 ３ 『 项一般

四、Mapgis钻孔柱状图制作一.图头制作：利用制作好的图头直接添加工程文件中，其中包括点文件和线文件。

（注意：图头的坐标为（0、0）。

——本节以zk401为例。

1.将图头点线文件放到zk401根文件中，并新建zk401工程文件。

2.在zk401工程文件中添加点线文件，如果图头坐标不在（0，0）点要将图头移动到改点。

二.建立边框及画出分割线：1.新建线文件（边框）区分图头线文件并进行操作。

2.利用线文件中的键盘输入线（0，0）和（0，-2293.4）[柱状图比例为1：200，zk401孔深为458.86m。

又因Mapgis软件中的单位为mm。

458.86*1000/200=2293.4此坐标在（0，0）下方，故点坐标为(0,-2293.4),如果是不知道钻孔可以根据设计孔深大概估算点坐标。

]建立了第一条分割线。

3.利用刚才做好的直线进行阵列复制。

图中1-11段的距离均为10mm；陈列列数为分段段数+1，列间间距为图上列与列的距离。

因为此处复制的为列故行数相关数据不影响制图。

4.根据以上方法逐步将分割线画好。

三.钻孔岩性分层1.新建线文件（分层）区分前面的线文件。

2.图头（0,0）的X线分层的区域画一条红横线。

3.根据钻孔分层位置对图5的线进行阵列复制。

(此时阵列复制为横向复制，只与阵列行数和行间间距有关，由于岩性分层位置一般无规律所以阵列行数设置为2；行间间距=分层位置*1000/200.)四.钻孔原始资料投影到Mapgis中1.建立Exlce表格填写钻孔相关资料。

其中X=0 Y全部为负值(此时阵列复制为横向复制，只与阵列行数和行间间距有关，由于岩性分层位置一般无规律所以阵列行数设置为2；行间间距=分层位置*1000/200.)填好后的表格x y回次 自 至 进尺 岩芯长回次采取率0 -0.75 1 0 0.75 0.75 0.7 93.33 0 -1.5 2 0.75 1.5 0.75 0.7 93.33 0 -2.23 3 1.5 2.23 0.73 0.7 95.89 0 -2.98 4 2.23 2.98 0.75 0.7 93.33 0 -5.05 5 2.98 5.05 2.07 1.9 91.79 0 -6.57 6 5.05 6.57 1.52 1.4 92.11 0 -8.95 7 6.57 8.95 2.38 2.2 92.44 0 -10.29 8 8.95 10.29 1.34 1.2 89.55 0 -11.58 9 10.29 11.58 1.29 1.2 93.02 0 -12.58 10 11.58 12.58 1 0.9 90.00 0 -15.03 11 12.58 15.03 2.45 2.4 97.96 0 -18.07 12 15.03 18.07 3.04 3.04 100.00 0 -21.31 13 18.07 21.31 3.24 3.24 100.00 0 -24.79 14 21.31 24.79 3.48 3.48 100.00 0 -28.06 15 24.79 28.06 3.27 3.27 100.00 … … … … … … … … 2.转换文件格式：将刚才的表格另存为CSV（逗号分隔）文件格式。

mapgis钻孔柱状图自动成图方法一、原理Mapgis中的点、线可以通过明码转换的方式生成，明码文件中只要表明钻孔柱状图中需要的点和线在图中的位置和格式，就可以利用mapgis中文件转换功能转换成钻孔柱状图的点和线，从而达到自动生成钻孔柱状图的目的。

二、所使用的软件excel，mapgis，vf6.0，6.prg和66.prg三、使用说明1、准备工作成钻孔柱状图首先需要岩芯鉴定本和测井，在此定名两个文件分别命名为：岩性统计.xls和测井柱状.xls（1）岩性柱状.xls文件格式，注：A列代表层号；B列代表岩层名称；C列代表岩层底深；D 列代表岩层厚度；E列代表取芯长度；F列代表取芯率；G列代表岩层倾角；H列代表岩性描述。

注意在岩性描述里不能出现英文半角字符。

（2）测井柱状.xls文件格式注：A列代表岩层名称；B列代表岩层底深；C列代表岩层厚度。

做好上面两个文件后保存在F:\vp柱状\文件夹里。

2、生成柱状图点和线文件的明码格式在VF6.0中运行6.prg程序，从而产生点、线文件的明码格式文件。

运行中需要输入变比例深度，此深度最好填终孔深度。

运行结束后会依次显示两个文件，分别为注释.txt和柱状.txt。

（1）注释.txt文件此文件为柱状图中点文件的明码文件，格式如下：a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p217.50,-55.60,1,0,"1",3,3.00,0,0,0,0,0,0,1,2,053.39,-54.30,2,0,"",4,3.50,0,0,0,0,0,0,1,2,0130.24,-54.30,3,0,"砂质粘土",4,3.50,0,0,0,0,0,0,1,2,0183.20,-54.30,4,0,"5.30",4,3.50,0,0,0,0,0,0,1,2,0195.85,-54.30,5,0,"5.30",4,3.50,0,0,0,0,0,0,1,2,0211.00,-54.30,6,0,"1",4,3.50,0,0,0,0,0,0,1,2,0217.50,-58.90,7,0,"2",3,3.00,0,0,0,0,0,0,1,2,053.39,-63.60,8,0,"",4,3.50,0,0,0,0,0,0,1,2,0130.24,-63.60,9,0,"粉砂",4,3.50,7,0,0,0,0,0,1,2,0……………………259.87,-1699.96,1768,0,"827.58",3,3.00,0,0,0,0,0,0,1,2,0275.20,-1699.96,1769,0,"29.50",3,3.00,0,0,0,0,0,0,1,2,0259.87,-1802.56,1770,0,"878.88",3,3.00,0,0,0,0,0,0,1,2,0275.20,-1802.56,1771,0,"51.30",3,3.00,0,0,0,0,0,0,1,2,0（2）柱状.txt文件此文件为柱状图中线文件的明码文件，格式如下：a,b,c,d,e,f,g,h,i1.0000000000,0.0000000000,1,.20,10,10,0,11,02.0000000000,0.0000000000,0,.00,0.0,.00,0,0,051.0842080000,-57.3000000000,0,.00,0.0,.00,0,0,0216.2868050000,-57.3000000000,0,.00,0.0,.00,0,0,01.0000000000,165.2025970000,0,.00,0.0,.00,0,0,01.0000000000,0.0000000000,1,.20,10,10,0,11,02.0000000000,0.0000000000,0,.00,0.0,.00,0,0,0220.8998000000,-55.6000000000,0,.00,0.0,.00,0,0,0234.6485000000,-55.6000000000,0,.00,0.0,.00,0,0,02.0000000000,13.7487000000,0,.00,0.0,.00,0,0,0121.0000000000,0.0000000000,1,.10,20,15,0,0,02.0000000000,0.0000000000,0,.00,0.0,.00,0,0,0220.9000000000,-46.7666666667,0,.00,0.0,.00,0,0,0234.6500000000,-46.7666666667,0,.00,0.0,.00,0,0,03.0000000000,13.7500000000,0,.00,0.0,.00,0,0,0……………………1691.0000000000,13.7500000000,0,.00,0.0,.00,0,0,029.0000000000,2.0000000000,1,.20,2.0,2.0,0,11,02.0000000000,0.0000000000,0,.00,0.0,.00,0,0,0236.4900000000,-1822.7600000000,0,.00,0.0,.00,0,0,0284.8100000000,-1822.7600000000,0,.00,0.0,.00,0,0,01692.0000000000,48.3200000000,0,.00,0.0,.00,0,0,029.0000000000,2.0000000000,1,.20,2.0,2.0,0,11,02.0000000000,0.0000000000,0,.00,0.0,.00,0,0,0236.4900000000,-1802.7600000000,0,.00,0.0,.00,0,0,0284.8100000000,-1802.7600000000,0,.00,0.0,.00,0,0,01693.0000000000,48.3200000000,0,.00,0.0,.00,0,0,0上面产生的两个文件需要处理下才能作为明码文件，处理方式和结果如下：（1）注释.txt文件的处理此文件处理方式为把第一行的“a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p”删掉，然后加上：WMAP90221771此处“WMAP9022”代表为点文件明码格式的开头，“1771”代表了点的数目，这个数字为文件最后一行，第3个数字。

MAPGIS钻孔柱状图（1：200）编制方法一、数据准备1、在EXCEL中输入需投入的原始数据（包括回次、分层、采样、采样及分析数据），存为EXCEL格式文件，作为基础数据的原始文件；2、需投入线文件数据准备：（1）从原始文件粘贴有用的数据（注意:粘贴时用“选择性粘贴”→数据），其中：回次线：粘贴回次的的“至”列，然后乘以-5作为“回次底界数据列”，最后形成的数据为 A列:0、B列：“回次底界数据列”、C列：60、D列“回次底界数据列”，另存为CSV（逗号分隔）格式文件。

分层线：粘贴“换层深度”列，然后然后乘以-5作为“分层底界数据列”，最后形成的数据为 A列:60、B列：“分层底界数据列”、C列：230、D列“分层底界数据列”，另存为CSV（逗号分隔）格式文件。

采样线：粘贴“采样情况至“列，然后乘以-5作为“采样底界数据列”，最后形成的数据为 A列:315、B列: “采样底界数据列”，C列；450、D列：“取样底界数据列”, 另存为CSV（逗号分隔）格式文件。

(2) 把以上CSV（逗号分隔）格式文件从记事本打开，把第三列及第四列用回车键打至下一行，把奇数行后面的逗号删掉，另存为TXT格式文件。

以上三个文件最后可粘贴为一个文件，投影时一次可完成。

2、需投入点文件数据准备：回次点：把回次线CSV（逗号分隔）格式文件另存为回次点，删掉后2行，最后形成的数据为 A列：0、B列“回次底界数据列”,另存为“回次点”。

从记事本打开上述文件，另存为TXT格式文件（保存时在文件名后加.TXT后缀）。

分层点：把回次线CSV（逗号分隔）格式文件另存为回次点，，删掉后2行，最后形成的数据为 A列：60、B列“回次底界数据列”,另存为“分层点”。

从记事本打开上述文件，另存为TXT格式文件（保存时在文件名后加.TXT后缀）。

采样点;把采样线CSV（逗号分隔）格式文件另存为采样点，，删掉后2行，最后形成的数据为 A列：315、B列“回次底界数据列”,另存为“采样点”。

钻孔柱状图绘制程序WellHistogram说明书钻孔柱状图绘制程序可以自动绘制出目前煤田地质系统流行格式的单孔柱状图，其输出格式为MapGIS数据文件，可以在MapGIS环境下任意编辑和输出。

其绘制实体包括地层单位、简易水文、钻孔封闭、套管、孔径、岩性柱状、岩石名称、层厚、岩性描述以及测斜数据。

一、数据准备1、基本原则如果需要输入上下标和分式，则必需按MapGIS的格式输出，即上下标用“#+”和“#-”开始，用#=结束，而且要保证“#-”或“#+”与“#=”成对出现，当同时出现上下标时，与“#+”和“#-”的次序无关。

分式必需以“/”开始，并以“/”结束，分子和分母以“/”隔开，即一个分式由三个“/”定义。

在分式中可以嵌套上下标，但是，在上下标中不得嵌套分式。

如果需要在一段岩性描述中换行，则可以在换行位置加入“#>”或“#<”符号。

如果数据库不支持文本串中含有空格，可以用“#_”定义。

2、区域数据库（表名：“区域数据”）3、钻孔数据（表名：“钻孔数据”）4、钻孔岩性数据（表名：“钻孔岩性”）WellHistogram定义岩性一览表5、测斜数据（表名：“测斜数据”）6、钻孔封闭数据（表名：“封孔数据”）7、钻孔套管数据（表名：“钻孔套管”）8、钻孔孔径数据（表名：“钻孔孔径”）9、简易水文数据（表名：“简易水文”）10、接触关系数据（表名：“接触关系”）11、地层一数据（表名：“地层一”）12、地层二数据（表名：“地层二”）13、数据库要求程序最终要求数据库的格式为Microsoft Access，如果录入人员对Microsoft Foxpro熟悉，可以在该环境下录入数据，然后利用Microsoft Access的数据导入功能将各个Foxpro表导入到同一个Microsoft Access数据库中，并保证该数据库中所有表名称与上述表名相同。

由于目前的Microsoft Access不提供直接将Foxpro数据库直接导入已经存在的Microsoft Access表中，而Microsoft Access和Foxpro的字段定义又有差异，仅提供将Foxpro已经有的表按相同的表名（当Microsoft Access中存在同名表时，则新导入的表按重名数自动在新表的名字后加入数字），而Microsoft Access和Foxpro的字段定义又有差异，因此，可以先打开一个空的钻孔数据库，利用Microsoft Access的新建表的导入功能，将已经有的Foxpro数据表导入，然后利用复制功能将其复制的空表中，然后将导入的数据表删除。