用ACCESS和MAPGIS快速生成地质钻孔柱状图的方法

用ACCESS和MAPGIS快速生成地质钻孔柱状图的方法

2023年7月4日发(作者:)

科技信息 0本刊重稿0 SCIENCE&TECHNOLOGY INFORMATION 2012年第7期 用ACCESS和MAPGIS快速生成 地质钻孔柱状图的方法 陈峰 刘艳z (1.中国煤炭地质总局水文地质局河北邯郸056004;2.河北省地矿局第十一地质大队河北邢台054000) 【摘要】绘制地质钻孔柱状图是地质工作中的一项重要工作。通过手动的方法绘制地质钻孔柱状图,既费时费力,图件还不够美观,精确 度也难以达到要求。本文利用VBA语言结合ACCESS数据库和MAPGIS平台开发了地质钻孔柱状图快速成图系统。该方法能充分利用 MAPGIS系统资源,实现数据的共享,具有简捷、成图准确可靠、效率高等特点,实用性较强。 【关键词】Access;MAPGIS; ̄质钻孔柱状图 0引言 地质钻孔柱状图是地质勘探的基础图件之一.它将钻孔中获得的 信息随深度反映在图件上,是一定空间位置上地质特征的反映[L 。通 过柱状图可以反映地层随深度变化的情况,了解地层岩性、物性变化 趋势.对钻孔资料进行综合分析与解释,因此绘制钻孔柱状图是地质 工作中的一项重要内容。 钻孔柱状图的绘制在过去主要是靠手工绘制完成的.不仅需要大 量的人力物力,而且成图慢、效率低,很难满足实际生产的需要。近年 来随着计算机的发展.大家都开始用计算机绘制钻孔柱状图.一般是 在绘图软件AUTOCAD或MAPGIS中通过手工编辑的方法绘制.该方 法比较费时,不仅效率低且易出错,格式不够统一、规范,不能实现数 据共享。一些科研单位开发相关软件来提高绘图效率M。但是这些软 件的价格较贵.另外各地勘单位对钻孔柱状图格式要求不一.对软件 适用性要求也较高 针对上述各方法的不足.本文利用VBA语言结合 ACCESS数据库和MAPGIS平台来尝试开发一种新的地质钻孔柱状 图快速成图方法.基本思路是首先在ACCESS数据库中利用ACCESS VBA生成MAPGIS点、线、面明码文件,再用MAPGIS图形编辑进行编 辑从而生成钻孔柱状图 1钻孔柱状图的组成 简单的钻孔柱状图一般包括图头、图形显示区和图框图签三部 分。图头是对柱状图内容的概括与表述.主要通过文字对图件内容进 行描述。图形显示区是柱状图的主要信息显示窗口,包括地层单位、钻 探成果、简易水文、钻孔结构、测井成果等信息。根据标准要求图框图 签一般都是固定不变的。钻孔柱状图层次结构模型图如图1所示。 图1 钻孔柱状图层次结构模型图 2数据库建立 设计出数据库的逻辑结构以后.将其转化为ACCESS数据库表. 并将收集的数据组织入库 2.1数据库基本表 通过对钻孔数据内容的分析,设计出如下基本表: 比例尺表:比例尺(blc)、选择比例尺(xz)。 钻孔基本数据表:钻孔号(zkh)、坐标x(zbx)、坐标y(zby)、高程 (gc)、设计孔深(sjks)、最终孔深(zzks)、开工时间(kgsj)、竣工时间 (jgsj)、水位埋深swms)、孔口标高(kkbg)、钻孔性质(zkxz)、钻机型号 (zj)【}1)、机长(jz)、地质员(dzy)。 钻孔成果资料表:界(j)、系(x)、统(t)、组(z)、段(d)、累计深度 (1jsd)、岩心长度(yxcd)、岩石名称(ysmc)、岩性描述(yxm ̄)、岩性代码 (ysdm)。 孔管成果结构表:孔深度(ksd)、孔径(kj)、管起深度(gqsd)、管止 深度(gzsd)、管径(gJ)、套管类型(tgb【)、止水深度(zssd)、止水材料 (zsc1)、抽水段起深度(csqsd)、抽水段止深度(cszsd)。 简易水文表:深度(sd)、水位(sw)、消耗量(xh1)。 2.2表与表之间的关系 钻孔基本数据表为主表.其他表为子表.“钻孔号”为关键字。主表 与子表是一对多的关系 3钻孔柱状图生成 3.1系统流程图如图2所示。 图2系统流程图 3.2数据录人 将整理好的数据按照系统要求录入到数据库里。 3.3 MAPGIS明码文件结构简介 3.3.1点文件结构 逻辑结构:文件头点数1号点2号点……,如图3所示。 点明码文I牛 点嘲珊文件i潮 WMA ̄9022 文件名 N 点 蜀.,l, 点§I婚 l,OI 赢属性《肪.来蝴) ■蕊 点注释 点矗 虹 点烹 n- 闺■ 0. 摩磨 1. 驭手字体 0, 西文孛雉 a. 疆释字形 O, 氆嚼 1. 奠色 0, 撼列方式 0, 瞳层母 图3 MAPGIS明码点文件及说明 3.3.2线文件结构 逻辑结构:文件头线数1号线2号线…・一,如图4所示。 75 2012年第7期 SCIENCE&TECHNOLOGY INFORMATION 0本刊重稿0 科技信息 掘嘲码文阵 WNL ̄9021 蛐明码冀I牛溯 文沣名 xx22=xx22+01j+1) 4.2一(x01一xl1) EndIf N 垃羲c实触+t) 1,0,1.0.05 005 tO lO 鼓形.辅髓拄j移I箍蕊色,蛙魔.z慕Ib,蒜囊・ 0.0.0- 辅韵棘色.暖盛.曩明输出c潮B l用嘈埔0) 蝇幽 点羲 域起蚰姆繇 码. ・ 缎缛嫱坐括 1.1 撬瞬睦‘ -长重) - 3.5程序运行 图4 MAPGIS明码线文件及说明 3.3.3 面文件结构 逻辑结构:文件头面数1号2号……,如图5所示。 面明码文I牛 ⅥUm2a 茸 面明确文件说明 文件名 萄尊竞镟■ 用户在数据库里填写完数据之后.依次点击钻孔成果柱状图界面 (如图6所示)一比例尺选择界面_+孑L号选择界面。选择完之后程序开 始运行.运行完直接生成MAPGIS明码文件.然后在MAPGIS“文件转 换”功能下装入MAPGIS点、线、面明码文件,保存成MAPGIS点、线、 面文件,再在MAPGIS输入功能中打开点、线、面文件。装入做好柱状 图的图头部分(图7) 0.蝇lOIJ o_O・ 0-O・ 0o 蕾量L祷舶飘瓯搪色.弧霓。t蕉, ,稠屯… id,o| 哥. 蕾节点数 xl- ・ 孙 id.L. 1・ 节j蕞t 图6钻孔柱状图的运行界面 苇点鞴 D号,・氏毫… 充起标嘏 l’ 墨单元数量 9. 1.2|2|o, o.o.k 蕊色.诧蚊代号|{E蚊l比阏。 E螋 扰倒.” 面 臣L・ 积。局长 2t 。hl・ 一D母 O, 嬉柬标志 图7钻孔柱状图图头 图5 MAPGI¥明码面文件及说明 3.4主要源程序及说明 由于程序代码较长,限于篇幅,下面给出部分代码及注释。 打开钻孔基本数据表 Set myre=CreateObject(”adodb.recordset”1 myre.Open Source:=”钻孔基本数据”,ActiveConnection:=”myre” 打开比例尺表 1:l 3.6整图修饰 先将转出的单独文件组成工程文件.然后进行工程图件的修改与 整饰,结果如图8所示。 Set myre=CreateObject(”adodb.recordset”1 myre.Open Source:=”比例尺表”。ActiveConneetion:=”myre” While(Not myre.EO And(i<>999) PPP=MsgBox(”比例尺_l1&myre.Fields(”b1c”),vbOKCancel,”选择 比例尺”1 IfPPP=1 Then bl=myre.Fields(”XZ”、 i=999 Else myre.MoveNex 图8生成钻子L柱状图(部分)示例 4结语 EndIf Wend 号”) 本文利用VBA语言结合ACCESS数据库和MAPGIS平台来开发 了一种新的地质钻孔柱状图快速成图方法.采用此方法能达到准确无 孔号选择及生成点、线、面明码文件 误成图、精度高、位置准确、图形美观、成图周期短、成本大大降低,在 While(Not myre.EOF)And(i<>999) 提高工作质量的同时避免了较多重复的工作。该方法还可实现图形数 PPP=MsgBox(吁L号.fI&myre.Fields(”zkh”),vbOKCaneel,”选择孔 据共享,方便图形数据存储、保管和使用,起到事半功倍的效果。 Wend 【参考文献】 [1]包世泰,余应刚,夏斌,等,GIS技术在工程地质制图中的应用【Jjl工程勘察, 2005(2):1-3. f3):52—54 弧段 +2 x03 Write#4.2 Write#4,9,myre.Fields(”ysdm”),12,20,0,1,0,0,1,25 x03,50 [2]袁步云.基于MAPGIS明码文件实现快速编制钻孔柱状图叨.江西测绘,2008 [3]徐艳.计算机绘制地质综合柱状图的方法f J1l汉江石油职工大学学报, 2007,2O(6):86—89. [4]魏莲,卞州罡,卢建杰,等.基于MAPGIS的柱状图系统设计与实现[J]地球科 Write#4.一ppid W“te#4.0 填符号 ppid=ppid+1 学一中国地质大学学报。2006,31(5):743—746. 作者简介:陈峰(198O一),女,水文地质工程师。 llj=Int(Len(myre.Fields(”yxms”))/22) If x01一xll>xx22+(nj+1、 4.2 Then xx22=0 End If ※中国煤炭地质总局水文地质局科技发展基金项目(中煤水地 [2009]008)。 [责任编辑:王爽] If x01一xl1<(1lj+t) 4.2 Then 76 

发布者:admin,转转请注明出处:http://www.yc00.com/news/1688436358a137563.html

相关推荐

发表回复

评论列表(0条)

  • 暂无评论

联系我们

400-800-8888

在线咨询: QQ交谈

邮件:admin@example.com

工作时间:周一至周五,9:30-18:30,节假日休息

关注微信