龙源期刊网 http://www.qikan.com.cn
钻孔地质编录CAD图件速成
作者：张玉华
来源：《科技传播》2013年第04期
摘要 本方法是利用Excel表格对“钻孔地质编录”原始数据进行计算、编辑、整理、图件坐标矢量化处理，再通过Excel与AutoCAD表格之间的“复制”与“选择性粘贴”将Excel表格转换为AutoCAD图元表格。利用矢量化的表格数据进行AutoCAD命令语句批量处理生成表格拉伸参照图元，用于回次进尺、地层描述、采样分析成果的等比例拉伸，以保持相互间的对应关系，最后采用“标准图框”遮蔽进行打印输出。 关键词 Excel表格；钻孔地质编录；AutoCAD
中图分类号TP3 文献标识码A 文章编号 1674-6708（2013）85-0185-02 1 制图准备 1.1 Excel表格
按照《钻孔地质编录》样式分别用Excel工作薄编制回次进尺表（回次、岩心块号、自、至、进尺、实长、采取率……）、地质描述表（层次采取率、换层深度、柱状图、地质描述、θ角……）、样品分析成果表（试样号、岩心块号、自、至、岩心实长、采取率、品位……）。编制完成经检查无误后分别对单元格式（数字、文本……）进行设置并存盘。 1.2 AutoCAD表格
建立“钻孔地质编录”图层，分别设置：“回次进尺、地质描述、样品分析成果”表格样式并存盘。
建立钻孔地质编录“背景”图层，使表格数据区第一行、第一列左上角对准坐标原点。“背景”相当于一张空白的地质编录表格，与“钻孔地质编录”内容共同形成一份完整的“钻孔地质编录”CAD图件。 2 建立参照点
建立AutoCAD“参照”图层，并将该图层打印选项设置为关闭。
以《钻孔地质编录》表数据区第一行、第一列左上角作为坐标原点，表格列作X轴，孔深为Y轴建立“钻孔地质编录”赋值坐标。以表格列字段宽度为横坐标，回次进尺（地质描述、采样分析成果）行高为纵坐标（按柱状图比例尺调整），以图元圆心作参照将坐标数据矢量化。将矢量化后的坐标数据（图1左）进行AutoCAD批量输入处理并一次导入参照图层中作
龙源期刊网 http://www.qikan.com.cn
为表格行列拉伸时参照点（图1右，行列拉伸时也可在“对象特性”所在行列中输入实际数值调整行高）。 3 表格转换
打开准备进行表格数据转换钻孔的《钻孔地质编录》AutoCAD文件，将当前图层设置为“钻孔地质编录”；
选择Excel“回次进尺”、“地质描述”、“样品分析成果”其中的一个表中要粘贴部分，然后点击“复制”。
激活“钻孔地质编录”AutoCAD文件，将“钻孔地质编录”置为当前图层、表格样式与Excel数据表名称一致；
在编辑菜单中选择“选择性粘贴”后单击，弹出对话框选择粘贴为“AutoCAD图元”点击确定，这时表格即被粘贴为当前表格样式。
移动表格，使表格左上角的坐标与赋值坐标吻合。 4 表格拉伸
行拉伸：锁定AutoCAD参照图层，将“钻孔地质编录”置为当前图层，将“对象捕捉”设置为圆心，关闭其它选项。由上而下依次对“回次进尺”、“地质描述”、“样品分析成果”表行高对比参照点进行“捕捉”拉伸定位，在拉伸过程中可随时观察AutoCAD左下角的坐标数据（或对象特性行高）对比回次孔深（或进尺）数值来验证行拉伸是否正确。
列拉伸：按照表头的列字段的宽度从左到右依次对不同数据表进行列拉伸。 5 打印输出
钻孔地质编录通常采用A3纸张输出，页面横向，柱状图比例尺1∶100，页面除去表头及下方责任栏，可供编录的数据区横向大约380mm，纵向大约为200mm。打印输出可采用窗口方式分段进行，每段纵向延长约200mm（相当于孔深20m）。
建立“标准图框”图层，在该图层中建立标准图框，使图框外框尺寸与A3纸张大小（420×297mm）一致，内框尺寸与数据区大小（大约为380×200mm）相同，内外图框之间用纯白色填充。
在填充对象之上建立表头、责任栏，并将其独立存放于“标准图框”图层中。
龙源期刊网 http://www.qikan.com.cn
“标准图框”相当于一个漏空的不透明纸板，将下面的图纸分段后与纸板上的内容叠合进行打印输出（图2、图3分别为叠合前后打印效果对比）。 在参照图层中由坐标原点依次向下设置打印参照分隔图元。
将当前图层修改为“标准图框”图层并锁定其它图层，移动标准图框，使标准图框的内框左上角对准坐标原点进行《钻孔地质编录》第1页打印。打印完成后将“标准图框”移动到第二个分隔图元上，修改标准框上的页码进行下一页打印。