２ Visual FoxPro的钻探数据管理 钻探数据包括钻孔标注、回次、地层、样品、
岩心层面夹角、钻孔结构、水位、孔深校正。 Ｄ Ｈ Ｃ Ｓ 可建立数据表，进行数据的录入、修改、删 除等操作。此不详述。 ３ AutoLISP有关命令
ＡｕｔｏＬＩＳＰ是为二次开发ＡｕｔｏＣＡＤ的编程语言， 镶嵌在Ａ ｕ ｔ ｏ Ｃ Ａ Ｄ 内部，是Ｌ Ｉ Ｓ Ｐ 语言和Ａ ｕ ｔ ｏ Ｃ Ａ Ｄ 有机 结合的产物，既有Ｌ Ｉ Ｓ Ｐ 语言人工智能的特性，又有 ＡｕｔｏＣＡＤ强大的图形编辑功能。它可以把ＡｕｔｏＬＩＳＰ 程序和ＡｕｔｏＣＡＤ 绘图命令透明地结合起来，使设计 和绘图完全融为一体，实现真正意义上的计算机辅 助设计。
开始
打开钻探数据表
还有钻孔
Ｎ
Ｙ 生成表框、表栏
结束
标注回次、进尺、采取率 样轨填充、标注采样情况、分析结果
计算分层厚度、采取率 计算岩心描述栏文字书写位置 柱状图填充，填写分层、岩心描述内容
填写标志面与岩心轴夹角 标注钻孔结构 标注水位线
文字注记、生成孔深校正表、责任表 生成当前钻孔．ｌｓｐ 文件
钻孔柱状图.lsp生成程序流程
格式如下：
（ｄｅｆｕｎ Ｃ：ＤＨＣＳ（ ）
……
表达式
……
）
其中，Ｃ：ＤＨＣＳ（ ）为命令名。 ３ ． ２ 调用Ａ ｕ ｔ ｏ Ｃ Ａ Ｄ 命令
ＡｕｔｏＬＩＳＰ用ｃｏｍｍａｎｄ函数调用ＡｕｔｏＣＡＤ命令， 其格式如下：
（ ｃ ｏ ｍ ｍ ａ ｎ ｄ “Ａ ｕ ｔ ｏ Ｃ Ａ Ｄ 命令”命令所需的数据）
空间不足的层或向上、或向下、或同时向上向下往 相邻层位扩展，同时计算层位界线绘制位置（ 深
０），Ｘ轴正向指向右，Ｙ轴正向指向上，则回次、层 度）。
位、采样位置等Ｙ值等于孔深（ｄｅｅｐ） 减去其自身深 度，孔口Ｙ 等于ｄ ｅ ｅ ｐ ，孔底Ｙ 等于０ 。
（５） 岩性花纹填充和岩心描述注记。 首先设置岩心描述注记文字的字号比例因子。
同比例尺的需要。
岩性花纹（图案）代号ｒ－ｃｏｄｅ也是在编辑时输入
作图时，钻孔孔深按实际米数绘出。在１∶１００ 的，如ｃ－ｒｏｃｋ＝”ＢＲＩＣＫ”。一定要注意，ＢＲＩＣＫ图
图中，１ｃｍ相当于实际１ｍ，比例因子取１；在１∶２００ 案要存在于ａｃａｄｉｓｏ．ｐａｔ中，否则会出现填充错误。
图中，１ ｃ ｍ 相当于实际２ ｍ ，比例因子取２ ，即图名、 表头、图宽、孔深校正表、责任表和字的尺寸要乘
内容少，图面空余多；有的层位内容多，图面大小
如：
不够。对于后者，应扩大范围进行标注。扩大范围
（ｓｅｔｖａｒ“ｃｍｄＥｃｈｏ”０）
；不让ＡｕｔｏＣＡＤ 回显提示
存在上扩、下扩或同时上扩和下扩的问题。
（ｓｅｔｖａｒ“ｏｓＭｏｄｅ”０）
； 不捕捉任何类型的对象
为了满足计算的要求，在地层登记表Ｓｔｒａｔｕｍ．
；写单行文本：对正为Ｍ Ｃ （ 正中） ， 第一角点为（ ５ ， ３ ４ ． ９ ３ ） ， 旋转角度为０ ， 文本为“回次进尺（ ｍ ） ”
（ｃｏｍｍａｎｄ“ｌｔＳｃａｌｅ”０．０１）
；确定线型比例因子为０ ． ０ １
（ｃｏｍｍａｎｄ“ｂｈａｔｃｈ”“Ｐ”“ＤＯＴＳ”０．１ ０ （ｌｉｓｔ ２２ ２５．４８）“”）
１ 引言 钻孔柱状图一般利用绘图软件，用手工编辑的
方法制作，比较费时，效率低，格式不够统一、规 范，不能实现数据共享。
利用Ａ ｕ ｔ ｏ Ｃ Ａ Ｄ 的二次开发语言Ａ ｕ ｔ ｏ Ｌ Ｉ Ｓ Ｐ ，将 钻探数据通过编程方法编制成．ｌｓｐ程序，用 Ａ ｕ ｔ ｏ Ｃ Ａ Ｄ 调用，即可自动生成钻孔柱状图。为此， 笔者开发了《钻孔柱状图自动生成系统Ｄ Ｈ Ｃ Ｓ 》 （Ｄｒｉｌｌ Ｈｏｌｅ Ｃｏｌｕｍｎａｒ Ｓｅｃｔｉｏｎ）。ＤＨＣＳ利用Ｖｉｓｕａｌ Ｆ ｏ ｘ Ｐ ｒ ｏ ６ ． ０ 管理钻探数据，生成． ｌ ｓ ｐ 程序。在 ＡｕｔｏＣＡＤ ２００６下调用．ｌｓｐ程序，生成和打印钻孔柱 状图。Ｄ Ｈ Ｃ Ｓ 程序流程见下图。
；通过对角点（０，０）和（９２，３５．９３）作矩形
（ｃｏｍｍａｎｄ“ｌｉｎｅ”（ｌｉｓｔ ０ ２７．９３） （ｌｉｓｔ ９２ ２７．９３） “”）
；过点（０，２７．９３）和点（９２，２７．９３）作直线
（ｃｏｍｍａｎｄ“ｓｙｔｌｅ”“ｓｔａｎｄａｒｄ”“宋体” ０．５ １ ０ “Ｎ” “Ｎ”）
； 定义文字样式： 标准， 宋体， 字高０ ． ５ ｍ ｍ ， 宽度比例１ ， 倾斜角度０ ， 不颠倒， 不反向
注：经检测此回收再生料中的水份含量为０ ． ３ ％
３．６ 光钙型环境友好改性塑料专用料 光降解是降解塑料的重要途径，但由于我国地
域宽阔，气候条件变化无常，加有光降解剂的塑料 往往在避光条件下（如地膜被土壤掩盖、包装膜被填 埋）不再继续降解，造成纯光降解塑料不能达到预期
的效果，而如果在加入光敏剂的同时，加入适量经 生物活性处理过的碳酸钙，则可在被掩埋避光条件 下仍能继续降解，并使无回收利用价值的塑料安全 返回大自然。在目前没有更好的替代办法还不得不 使用聚乙烯等塑料材料，而光降解和淀粉填充型降 解塑料都不如人意的情况下，光钙型降解塑料无论 在环境降解效果上，还是在价格上都不失为一种明 智的选择。 ４ 结语
在聚合物基体中重新均匀分布，并可直接注射成 型，以获得一种高性能的无机刚性粒子增强、增韧 的复合材料（见表３）。用它替代橡胶增韧聚丙烯可以 大大降低成本，同时还可以克服用粉体填充聚合物 受加工条件的制约，实现定量加料、稳定性能，是 一种具有广泛使用价值的新材料。
表３ 母粒填充聚丙烯复合材料与未改性聚丙烯 材料的力学性能对比（母粒填充量为４０％）
４ AutoLISP钻孔柱状图程序的生成
ｄｂｆ设置岩心描述行数Ｌｉｎｅｓ、多余行数Ｒｅｓｔｓ、层位界
钻孔柱状图的．ｌｓｐ程序在Ｖｉｓｕａｌ ＦｏｘＰｒｏ下用 线绘制位置（深度）Ｄｅｐｔｈ２字段。岩心描述栏宽２８汉
Ｄ Ｈ Ｃ Ｓ ． Ｐ Ｒ Ｇ程序生成。ＤＨＣＳ．ＰＲＧ 程序流程如图１ 所 字。比例尺为１∶１００时，２．５ｍｍ汉字每行占０．５ｍ高
（６） 岩性花纹（图案）扩充。 对ａ ｃ ａ ｄ ｉ ｓ ｏ ． ｐ ａ ｔ 中缺少的岩性花纹，要进行扩
以２ 。输出时缩小１倍，图宽保持不变；其余比例尺 充。扩充方法请参考有关书籍。
以其类推。
ａｃａｄｉｓｏ．ｐａｔ一般位于路径Ｃ：＼Ｄｏｃｕｍｅｎｔｓ ａｎｄ
（３） 样段填充。 先以采样起止位置画样段。样段连续时只画起
；图案填充：孤岛检测样式为Ｐ （ 普通）， 图案为Ｄ Ｏ Ｔ Ｓ ， 比例为０ ． １ ， 角度为０ ， 拾取点为（ ２ ２ ， ２ ５ ． ４ ８ ）
３．３ 设置系统变量
的难点。
通过ｓｅｔｖａｒ函数设置系统变量，其格式如下：
不同层位描述内容的多少差别较大。有的层位
（ｓｅｔｖａｒ “变量名” 新值）。
ＡｕｔｏＬＩＳＰ程序是文本文件，后缀为．ｌｓｐ，在任 何文本编辑器下都可以书写。Ｄ Ｈ Ｃ Ｓ 利用Ｖ ｉ ｓ ｕ ａ ｌ ＦｏｘＰｒｏ编程自动生成，文件名为“孔号．ｌｓｐ”，如 ＺＫ０１０２．ｌｓｐ。
ＡｕｔｏＬＩＳＰ程序由命令定义行和表达式组成。下 面介绍命令定义和有关函数表达式。 ３．１ 命令定义
（ｃｏｍｍａｎｄ“ｍＴｅｘｔ”（ｌｉｓｔ ０ ２７．９３）“Ｊ” “ＭＣ”（ｌｉｓｔ ２ ３５．９３）“回” ” ” ” ” ” ” ”次” ””）
；写多行文本：第一角点为（０，２７．９３），对正Ｊ为ＭＣ（ 正中），对角点为（２，３５．９３）， 文本为”回次”（占５行）
（ｃｏｍｍａｎｄ“ｔｅｘｔ”“ＭＣ”（ｌｉｓｔ ５ ３４．９３） ０ “回次进尺（ｍ）”）
含量很低，也会造成制品的缺陷或内部空洞，特别 是使用回收再生粒料吹塑薄膜时，对水份含量要求 的更严格。为此通常在将原料加入成型设备之前先 对其加热烘干，去除水份，不仅要增添专门的设备， 而且耗能费时增加了成本。使用吸水母料可省去烘干 工序，只须按一定比例将该母料与含水的原料混匀即 可。表４为几种原料吹制的薄膜的性能，从表中所列 数据看出，加入１ ％ 的吸水母料的回收料吹成的薄膜 比烘干处理后吹成的薄膜拥有更好的力学性能。
示。由于篇幅所限，下面仅介绍坐标原点设置、比 度。若为其他比例尺时，则乘以相应比例因子。
例因子确定、样段填充、岩心描述栏层位界线位置
首先计算每层岩心描述文字所占的行数和富余
计算、岩性花纹填充和扩充、岩心描述注记方法。 的行数（富余为“＋”，不足为“－”），然后将各
（１） 坐标原点的设置。 将钻孔柱状图左下角设置为坐标系原点Ｏ （ ０ ，
摘要：本文介绍利用ＡｕｔｏＣＡＤ及其二次开发语言Ａｕｔｏ ＬＩＳＰ和Ｖｉｓｕａｌ ＦｏｘＰｒｏ，自动生成钻孔柱状图的研究方法，实现 了数据共享，极大地提高了绘图效率和标准化水平。
关键词：ＡｕｔｏＣＡＤ；Ａｕｔｏ Ｌｉｓｐ；Ｖｉｓｕａｌ ＦｏｘＰｒｏ；钻孔柱状图
中图分类号：Ｐ６３４；ＴＰ３９１．７２ 文献标识码：Ａ 文章编号：１００７－９３８６（２００７）－０３－００７７－０２
Ｓｅｔｔｉｎｇｓ＼Ａｄｍｉｎｉｓｔｒａｔｏｒ＼Ａｐｐｌｉｃａｔｉｏｎ Ｄａｔａ＼ Ａｕｔｏｄｅｓｋ＼ＡｕｔｏＣＡＤ ２００６＼Ｒ１６．２＼ｃｈｓ＼Ｓｕｐｐｏｒｔ＼下，
始位置。不连续时要画起始和结束２个位置。画出样 用任意文本编辑器或者字处理程序可以打开，扩充新
段后，对单号样进行填充。
图案或者直接修改原图案。若找不到ａｃａｄｉｓｏ．ｐａｔ，可
（２） 比例因子的确定。 钻孔柱状图的宽度是一定的，如分析项数为２
岩性花纹填充要先画出层位的底界线，到孔底 则不用画。底界线线型根据实际情况有“整合”（实
项时，宽度为４３ｃｍ。但不同孔深的柱状图可能使用 线）、“不整合”（波浪线）和“平行不整合”（虚线）３
不同的比例尺，因此，要确定比例因子，以适应不 种，这在编辑时即已确定。