《Res高级应用宏编辑》由会员分享，可在线阅读，更多相关《Res高级应用宏编辑（18页珍藏版）》请在金锄头文库上搜索。
1、ResForm-高级应用-宏编辑 作者： 日期：ResForm 高级应用宏编辑ResForm脚本语言是专门为基于ResForm构架下的地质研究、油藏工程、油藏描述等系列软件产品配置的编程语言。利用该脚本语言，可以轻松实现现有功能的特定扩展，提高工作的质量和效率。本文以一些常用的例子为主线介绍如何使用ResForm脚本语言。旨在通过短小精炼的内容编排以及浅显的实例，抛砖引玉，将复杂难懂的计算机语言变成用一门可以快速掌握的工具。用一个下午，或者临睡前时间，甚至在飞机上、上下班途中，您就有可能一口气把它读完。是不是有点兴趣了呢？下面就让我们一起来开始吧！1三个术语在这里，我们先简单介绍一下这样3个术
2、语：1ResForm脚本语言：一种计算机语言；2宏：用于实现特定功能的代码段；3宏脚本语言编辑器：编写或编辑宏的工具（或工作界面）。2宏脚本语言编辑针对不同工作需求，软件提供了标准宏、裸体宏两种宏语言编辑、应用模式。标准宏是完整的宏代码，它拥有main主函数，在不同的单井图文档中都可使用已有的标准宏代码处理数据。裸体宏仅对某个单井图中的某个图道进行处理，比较简单、灵活。2.1标准宏编辑器图1打开单井图后，在不选择任何图道的情况下，单击主窗口工具条上的【编辑并执行宏】按钮，即可打开标准宏编辑器，见图1：1单击按钮新建一个宏；2单击打开一个已有的宏；3单击保存当前编辑的宏；4单击执行宏。2.2裸体
3、宏编辑器选中单井图上一个图道后，点击工具条中的工具按钮，或者单击右键，选择【编辑/执行宏】命令即可将其打开，见图2；：123图2 在图2所示的对话框中，上方可以设置循环范围以及是否为“自动循环”，中间代码编辑区域直接输入代码即可，不需要写main主函数。3第一个宏首先，我们需要打开宏脚本语言编辑器：打开任意一张单井图，单击【编辑并执行宏】功能按钮，在代码编辑区域内键入代码（图3）：void main()代码编辑区域图3宏脚本编辑器非常聪明，在输入过程中，它将自动提示您要输入的内容。按上下键选择，回车Enter键确认，或者直接键入即将输入的下一个符号，如空格、点号“.”等即可。main()表示程
4、序执行的主入口函数，你可以将其简单理解为程序的开始标记。代码段需要用一对大括号括起。图4ShowMsg表示显示一个消息框，内容文本两侧需要用引号括起，语句结束时输入分号。宏脚本语言中的符号一律使用英文符号。单击【执行】按钮，可以看到运行结果（图4）。到这里，我们的第一个宏就完成了，接下来的内容里，我们将通过实际工作中的例子来进行介绍，期间也会穿插一些编程中涉及的知识点。4实例 计算孔隙度4.1算法描述如果某口井岩心分析孔隙度与补偿密度相关性较好，存在下述关系式： 计算孔隙度，代码中用POR表示；DEN补偿密度；岩石骨架密度，隐含值取2.65，代码中用DG表示；流体密度，隐含值取1，代码中用DF
5、表示。4.2代码实现在这里，我们需要编写一段代码，它完成的工作是：根据已有公式计算得到计算孔隙度数值，并将其加载至对应的图道里。首先，单击按钮打开宏脚本编辑器，粘贴或键入下述语句（双斜杠/后面的文字为代码注释，可以不加），见图5：/-计算孔隙度-void main()float DG = 2.65; /定义岩石骨架密度值float DF = 1; /定义流体密度值/新建曲线道，命名为PORSCurveTrace por = this.Channels.AddTrace(WellTraceTypes.Curve,POR);por.Title = 计算孔隙度; /定义道头显示内容this.SetL
6、oopRange(900,960); /设置循环的起止深度范围/循环，根据公式计算并将值赋给图道dopor.Value = (this.DEN.Value - DG)/(DF - DG);while(this.NextRow();/-图5在详细讲解这段代码之前，我们先看看它的执行效果：单击宏脚本语言编辑器对话框下方的【执行】按钮，可以看到单井图上新建了一条“计算孔隙度”图道。我们手动将数值范围设置为01之间，见图6：图64.3代码详解第4.2小结所示的代码中：1float：是一种数据类型，用于浮点型数据。2SCurveTrace：曲线类图道的公共类。其它同类型的类还有：SDiscreteTra
7、ce离散型数据道、SLayerTraceBase层对象型数据道等。por为SCurveTrace实例化后的一个对象。在这里，我们简单介绍一些编程的基本概念：类是一个抽象的概念。以现实生活为例，我们可以把小轿车、越野车、卡车等具有的共同特性抽象出来，构成“汽车”类。类包含属性和方法。属性相当于特征描述，如汽车具有颜色、箱型等。方法相当于具有的行为，如汽车可以进行启动、前进、后退等活动。对象是类这个抽象概念对应的实体。如，有一辆车牌照号码为陕A55522的红色福特小轿车，那么这辆车就是将“汽车”类实例化的对象。我们通过将类实例化成对象来使用这个类的属性和方法。读到这里你是否有疑问？为什么用这种类与
8、对象的方式设计程序呢？这样设计的好处，一是将编写的代码更加贴近真实生活，增加它的易读性；二是通过抽象把大程序分解成更易于管理的小单元，类似于“黑盒”。就想您在使用宏脚本的某个类或方法时，不需要知道它们内部是怎样实现的。3this: this是一个关键字。关键字是计算机语言里事先定义的，有特别意义的标识符。在ResForm脚本语言中，this相当于单文档类的实例。在this之后输入点号“.”可以查看到单文档类下所有的图道类以及方法、属性等。4实心点号：“.”表示“的”。5Channels：图道或图道组合的集合，可以理解为一个容器，能够放置一个或者多个图道。6AddTrace：为Channels类
9、所具有的一个方法，意为“添加图道”。小括号内传递两个参数，分别代表图道类型为曲线道、图道名称为POR。7对象定义之后就可以使用了，por.Title = 计算孔隙度意为将por对象（por曲线道）定义道头显示内容设置为“计算孔隙度”。8SetLoopRange：为单文档类下的一个方法，表示设置循环的起止深度范围，小括号内传递两个参数，分别是顶深和底深。9do-while循环：do-while循环语义为：“当满足某个条件时，一直做某件事情，直到判断条件不满足为止”。在我们讨论的例子里：dopor.Value = (this.DEN.Value - DG)/(DF - DG);while(this
10、.NextRow();可以解释为在指定的深度范围内，根据DEN值以及公式，计算第一个采样点对应的por值，并把该值赋值给por。接着计算第二个采样点的值，以此类推，直到深度大于给定的底深为止。4.4深入了解利用第4.2小结所示的代码中，我们虽然自动生成了一个计算孔隙度图道，但还未对其进行任何修饰。如，设置曲线的数值范围、颜色、充填样式等，从而达到更好的显示效果。为此，我们增加下述几行代码（图7）：/-por.Left = 0; /设置左刻度值por.Right = 1; /设置右刻度值por.CurveColor = Color.Red; /设置曲线颜色为红色por.FillMode = Fi
11、llLogCurveMode.Left; /设置曲线充填样式为左充填/设置充填画刷样式，参数分别有前景色、背景色、充填符号por.FillBrush = new XBrush(COLORREF.Black,COLORREF.RGB(205,133,23),HatchStyle.DashedHorizontal);/-图7其中：1Left、Right、CurveColor、FillMode、FillBrush均属于曲线道的属性，在这里我们完成了给por这条特定的曲线道赋值的任务；2除上述5个属性外，曲线道还具有其它属性。我们可以通过输入por加实心点看到（图8）：属性前均有作为标记。紫红色小方框
12、标记则代表方法，如。3Color：表示颜色，在Color后输入实心点即可选择想要的颜色。4FillMode：表示充填样式。在FillMode后输入等号，可选择FillLogCurveMode充填类型，包含左充填、右充填两种。5FillBrush：表示充填画刷，这里需要通过关键词new创建一个画刷对象。传递3个参数，分别是：（1）前景色：设置为黑色，用COLORREF.Black表示。其中，COLORREF的用法与Color类似；（2）背景色：设置橙黄色，可以用RGB值表示为COLORREF.RGB(205,133,23)；（3）充填符号：设置为水平虚线，用HatchStyle.DashedHo
13、rizontal表示。单击【执行】按钮，代码执行效果如图9：图8图9同样，本实例实现的计算孔隙度工作还可以通过裸体宏代码来实现。具体方法如下：1在单井图中创建“计算孔隙度”曲线道；2选中孔隙度道后，点右键，选择【编辑/执行宏】命令；3在弹出的对话框中设置循环顶、底深度范围，选中“自动循环”，输入如下孔隙度计算公式代码（图10）：/-/根据公式计算并将结果赋值给POR图道this.POR.Value = (this.DEN.Value - 2.65)/(1-2.65);图10/-4单击执行宏后，点【确定】按钮；5设置图道刻度范围为“0-1”，可以看到得到的计算孔隙度杆状图（图11），此时只需要再设置图道显示样式即可。图115实例 计算泥质含量5.1算法描述如果泥质含量与测井曲线存在下述经验公式： （）式中 解释层段内第条曲线测井值； 第条曲线在纯砂岩处的测井值； 第条曲线在纯泥岩处的测井值； 第条曲线测井相对值； GCUR地区经验系数，对第三纪地层为3.7；对老地层为2；也可以由本地区的实际资料统计获得。 由第条曲线求出泥质含量； 表示任一条测井曲线，如GR、
