下载文档原格式
钻孔编录模板一、杂填土：杂色，松散，大孔隙，上部为砼地坪，含较多的碎石。
二、淤泥质粉质粘土：灰色~灰黑色，流塑，部分夹有机质；无摇振反应，稍有光滑，干强度低，韧性低，有腐味三、粘土：灰黄色，可塑，无摇振反应、光滑，干强度高，韧性高，局部分布。
四、粘土：灰黄~褐黄色，硬塑，含少量的铁，锰质结核，可塑，无摇振反应，光滑，干强度高，韧性高。
五、粉质粘土：青灰色，软~可塑状，为后期沉积，摇振反应无，稍有光滑，干强度中等，韧性中等。
六、粉质粘土：灰黄~褐黄色，硬塑，含青灰色粘土团块无摇振反应，稍有光滑，干强度中等，韧性中等。
七、粉质粘土：灰黄~褐黄色，可塑，无摇振反应，稍有光滑，干强度中等，韧性中等。
八、粉质粘土：灰黄色，可塑，稍有光滑，干强度中等，韧性中等。
局部含团块状密实粉土。
九、粉质粘土：灰黄~褐黄色，钙质结核，硬塑，无摇振反应，稍有光滑，干强度中等，韧性中等。
十、粉质粘土：灰黄~灰色，软~可塑，粉粒含量高，无摇振反应，稍有光滑，干强中等，韧性中等。
十一、粉质粘土：上部浅灰色，中下部褐黄色，硬塑，含少量铁锰质结核，无摇振反应，切面光滑，干强度高，韧性高。
十二、粉质粘土夹粉土：灰黄~青灰色，可塑，含少量云母片，无摇振反应，稍有光滑，干强度中等，韧性中等。
十三、粉砂：黄色，含云母片，中密。
主要由石英等矿物组成，饱和状态。
十四、粉砂：上部灰黄色，底部浅灰色，含云母片，饱和状态，密实。
十五、粉质粘土夹粉土：灰黄色，软~可塑，无摇振反应，稍有光滑，干强度中等，韧性中等。
局部夹薄层粉土。
十六、粉土：灰黄，含云母片，很湿，稍密。
摇振反应中等，无光泽反应，干强度低，韧性低。
十七、粉砂：灰黄，含云母片，饱和，密实，主要成分由长石、石英、云母等组成，磨园度好、分、选性好。
十八、粉土：浅灰色，含云母片，摇振反应中等，无泽反应，干强度低，韧性低。
十九、粘土夹粉砂：灰黄色，褐黄色，可塑，含少量钙质结核核径为3cm。
夹薄层壮中密粉砂，具水平层理，无摇振反应，切面稍光滑，干强度高，韧性高。
钻孔地质编录CAD图件速成摘要本方法是利用Excel表格对“钻孔地质编录”原始数据进行计算、编辑、整理、图件坐标矢量化处理，再通过Excel与AutoCAD表格之间的“复制”与“选择性粘贴”将Excel表格转换为AutoCAD图元表格。
利用矢量化的表格数据进行AutoCAD命令语句批量处理生成表格拉伸参照图元，用于回次进尺、地层描述、采样分析成果的等比例拉伸，以保持相互间的对应关系，最后采用“标准图框”遮蔽进行打印输出。
关键词Excel表格；钻孔地质编录；AutoCAD1 制图准备1.1 Excel表格按照《钻孔地质编录》样式分别用Excel工作薄编制回次进尺表（回次、岩心块号、自、至、进尺、实长、采取率……）、地质描述表（层次采取率、换层深度、柱状图、地质描述、θ角……）、样品分析成果表（试样号、岩心块号、自、至、岩心实长、采取率、品位……）。
编制完成经检查无误后分别对单元格式（数字、文本……）进行设置并存盘。
1.2 AutoCAD表格建立“钻孔地质编录”图层，分别设置：“回次进尺、地质描述、样品分析成果”表格样式并存盘。
建立钻孔地质编录“背景”图层，使表格数据区第一行、第一列左上角对准坐标原点。
“背景”相当于一张空白的地质编录表格，与“钻孔地质编录”内容共同形成一份完整的“钻孔地质编录”CAD图件。
2 建立参照点建立AutoCAD“参照”图层，并将该图层打印选项设置为关闭。
以《钻孔地质编录》表数据区第一行、第一列左上角作为坐标原点，表格列作X轴，孔深为Y轴建立“钻孔地质编录”赋值坐标。
以表格列字段宽度为横坐标，回次进尺（地质描述、采样分析成果）行高为纵坐标（按柱状图比例尺调整），以图元圆心作参照将坐标数据矢量化。
将矢量化后的坐标数据（图1左）进行AutoCAD批量输入处理并一次导入参照图层中作为表格行列拉伸时参照点（图1右，行列拉伸时也可在“对象特性”所在行列中输入实际数值调整行高）。
3 表格转换打开准备进行表格数据转换钻孔的《钻孔地质编录》AutoCAD文件，将当前图层设置为“钻孔地质编录”；选择Excel“回次进尺”、“地质描述”、“样品分析成果”其中的一个表中要粘贴部分，然后点击“复制”。
应用EXCEL和MAPCAD快速生成地质钻孔柱状图
胡中富
【期刊名称】《云南地质》
【年(卷),期】2004(023)001
【摘要】传统手工绘制地质钻孔柱状图,不仅效率低且易出错.开发独立的地质钻孔柱状图处理软件有相当难度,而且需要投资.本文探讨运用MicroSoft Office EXCEL 输入、检查地质钻孔柱状图原始编录数据,并用VB编制程序将EXCEL与图形处理软件MAPCAD有机结合,快速生成地质钻孔柱状图方法.充分利用现有资源,无需额外投资,具有较好实用性.
【总页数】9页(P104-112)
【作者】胡中富
【作者单位】中国地质大学(武汉)研究生院,武汉,430074
【正文语种】中文
【中图分类】TP816
【相关文献】
1.用ACCESS和MAPGIS快速生成地质钻孔柱状图的方法 [J], 陈峰;刘艳
2.应用EXCEL和MAPGIS快速生成地浸砂岩型铀矿钻孔综合柱状图 [J], 罗义
3.应用EXCEL和MAPGIS快速生成地质钻孔柱状图 [J], 靳皇玉;崔亚茹;许祥彬
4.利用section和excel快速生成地层柱状图 [J], 杨建伟;熊豫佳
5.利用Excel和Mapgis快速生成地质钻孔柱状图 [J], 刘兴国
因版权原因，仅展示原文概要，查看原文内容请购买。
C a d绘制矿井图件1、建立图层执行[图层]命令，打开图层特性管理器，建立图层。
建立图层时尽可能详细，对于以后图形的修改非常重要。
线宽在图层特性里统一设置为默认值，出图时可以利用颜色整体控制线宽，以后例题设置同此。
把巷道、方格网、图框、钻孔等分别放在不同图层，以后修改很方便2、根据实际图纸大小绘制图框，尽量采用标准图框，图签大小有具体规定，内容一般没有固定格式，按照下图所示尺寸绘制图签，在表格内填写文字，全部完成后将整个图签写块，最后将其移动到图框右下角。
3、绘制经纬网格，标注坐标一种方法：参照采掘工程平面图的经纬网格和坐标情况，在所绘的图框内选择合适位置绘制最下边第一条经线，和最左边第一条纬线，然后分别向上和向右偏移经线和纬线，偏移距离为100（如果比例尺1：5000，则偏移500.每一个方格网的图上距离一般10c m，根据比例尺调整偏移距离），得到全部经纬线。
利用“单行文字”命令标注第一条经线坐标值，之后将其复制到每条经线上，使用“D D E D I T”命令依次修改坐标值，得到左边全部的经线坐标，最后复制全部坐标到右边。
同样的方法标注上边框和下边框的纬线坐标值。
第二种方法：c a s s里是自动生成的，不用画线。
可以尝试自己做一下。
还有其他方法，可以自己摸索4、如果绘制矿井图件，需要绘制井田边界线，煤柱线将“井田边界线”图层设置为当前层，根据井田边界坐标，利用[偏移]命令找到每一个边界点，并将每个点用[多段线]命令连起来。
井田边界煤柱为20m，将井田边界线向内偏移10个图形单位，生成井田边界煤柱，将其转换至“煤柱线”图层内。
5、绘制等高线，标注标高值方法一可以把控制点坐标在c a d中标好，然后p l命令把各个点连接起来，再按s样条曲线化，调整下搞定方法二、设置“等高线”图层为当前层，将井田内的等高线利用“P L I N E”命令一一描绘出来，关闭其它图层，图形内只剩下等高线，执行“P E D I T”命令编辑等高线，具体操作如下：命令：P E D I T↙//多段线编辑选择多段线或[多条(M)]：m//选择选项m选择对象：//框选全部等高线输入选项[闭合(C)/打开(O)/合并(J)/宽度(W)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放弃(U)]：f//将等高线拟合命令：D T E X T↙//标注等高线值当前文字样式：S t a n d a r d当前文字高度：3.0000指定文字的起点或[对正(J)/样式(S)]：//指定等高线上一点指定高度<3.0000>：↙//默认指定文字的旋转角度<0>：↙//默认依次输入各条等高线的等高线值后，将每个等高线值旋转与等高线保持平行，并将等高线打断。
【其 他】钻孔柱状图自动生成程序的研究与开发孙淑贤1，李光明2，韩金芳3(1.中国建筑材料工业地质勘查中心山东总队，济南 250100；2.山东省地质科学实验研究院，济南 250013；3.山东省第一地质矿产勘查院，济南 250014)摘要：本文介绍利用AutoCAD及其二次开发语言Auto LISP和Visual FoxPro，自动生成钻孔柱状图的研究方法，实现了数据共享，极大地提高了绘图效率和标准化水平。
关键词：AutoCAD；Auto Lisp；Visual FoxPro；钻孔柱状图中图分类号：P634;TP391.72 文献标识码：A 文章编号：1007-9386(2007)-03-0077-021 引言钻孔柱状图一般利用绘图软件，用手工编辑的方法制作，比较费时，效率低，格式不够统一、规范，不能实现数据共享。
利用AutoCAD的二次开发语言Auto LISP，将钻探数据通过编程方法编制成.l s p程序，用AutoCAD调用，即可自动生成钻孔柱状图。
为此，笔者开发了《钻孔柱状图自动生成系统D H C S》(Drill Hole Columnar Section)。
DHCS利用Visual F o x P r o 6.0管理钻探数据，生成.l s p程序。
在AutoCAD 2006下调用.lsp程序，生成和打印钻孔柱状图。
DHCS程序流程见下图。
2 Visual FoxPro的钻探数据管理钻探数据包括钻孔标注、回次、地层、样品、岩心层面夹角、钻孔结构、水位、孔深校正。
DH CS可建立数据表，进行数据的录入、修改、删除等操作。
此不详述。
3 AutoLISP有关命令AutoLISP是为二次开发AutoCAD的编程语言，镶嵌在AutoCAD内部，是LISP语言和AutoCAD有机结合的产物，既有LISP语言人工智能的特性，又有AutoCAD强大的图形编辑功能。
它可以把AutoLISP 程序和AutoCAD绘图命令透明地结合起来，使设计和绘图完全融为一体，实现真正意义上的计算机辅助设计。
浅谈基于CAD开发矿产钻孔柱状图[摘要]本文阐述了VBA二次开发语言的各种优势；分析了矿产钻孔柱状图开发的总体流程图；深入剖析了程序的各种模块；希望能起到抛砖引玉的作用。
[关键词]CAD VBA 钻孔柱状图地质矿产钻孔柱状图的绘制在八十年代以前主要是靠手工绘制完成的，不仅需要大量的人力物力，而且成图慢、效率低，很难满足实际生产的需要。
后来随着计算机的逐渐普及，如何利用计算机进行钻孔柱状图的快速绘制引起了地学工作者的关注，出现了一些钻井柱状图绘制软件。
本文基于CAD平台，利用VBA语方开发了钻孔柱状图自动生成系统，实现了图与数据的统一[1]。
1CAD与VBA开发语言1.1CAD成图软件CAD主要使用交互式图形显示软件、CAD应用软件和数据管理软件3类软件。
交互式图形显示软件用于图形显示的开窗、剪辑、观看，图形的变换、修改，以及相应的人机交互。
为此，需要建立工程数据库系统。
它同一般的数据库系统相比有如下特点：数据类型更加多样，设计过程中实体关系复杂，库中数值和数据结构经常发生变动，设计者的操作主要是一种实时性的交互处理。
1.2VBA开发语言1.2.1对象模型VBA是一种语言，被引用的对象模型是创建基于VBA的程序的不可缺少的部分，对象模型指明了可以控制的应用程序和功能，这样就能利用VBA访问和改变对象模型的属性值、处理对象模型中的对象所触发的事件并调用对象的方法[2]。
1.2.2优越性（1）每个VBA宿主应用程序通过一个对象模型开发它的功能，扩展基于ActiveX组件为开发者利用以创建成批的用户解决方案。
（2）开发者能更适应市场，因为他们能在许多应用程序中运用他们的技术。
有助于开发者在各种应用程序中只使用一种语言，只需了解该应用程序的对象模型。
（3）复用代码的能力是一个优势，因为相同的VB能在任何地方使用[3]。
（4）VBA能够使得应用程序定制以提供满足用户需求的解决方案。
2总体流程图基于CAD开发矿产钻孔柱状图总体结构，如图1所示。
