傻丫头和大笨蛋 » surfer

由Surfer的等值线Srf文件直接得到网格Grd文件

shunfly — Fri, 05 Feb 2010 00:32:55 +0000

有的时候，仅仅只有Srf工程文件，没有网格文件。

比如网格文件丢失，比如对方仅仅给了Srf工程文件，在需要对数据进行琢磨时可以利用如下办法得到网格文件

打开Surfer等值线，选中，运行如下Surfer脚本语言

Sub Main
Dim Surf As Object
Dim plotdoc1 As Object
Dim shapes1 As Object
Dim mapframe1 As Object
Dim ovrly As Object
Dim grd As String

Debug.Print “—– “;Time;” —–”
Set Surf = GetObject(,”surfer.application”)
Set plotdoc1 = Surf.ActiveDocument
Set shapes1 = plotdoc1.Shapes
Set mapframe1 = plotdoc1.Selection(1)
For Each ovrly In mapframe1.Overlays
‘Vector map Not included. srfShapeVectorMap = 23.
Debug.Print ovrly.Type;InStr(” 15 16 19 20 22″, ovrly.Type)
If InStr(” 15 16 19 20 22″,ovrly.Type) <> 0 Then _
ovrly.Grid.SaveFile(GetFilePath(ovrly.Grid.FileName,”grd”, _
“c:\incoming\”,”Save GRD File”,3),Surfer.srfGridFmtS7)
Next ovrly
End

End Sub

即可

Surfer&&Grapher VBS Automation

shunfly — Fri, 18 Dec 2009 13:50:35 +0000

金块软件公司的SURFER和GRAPHER是两款实用的的绘图软件，在科学绘图和工程成图中有着广泛的应用。

SURFER和GRAPHER提供了VBS脚本语言，便于用户快速开发脚本，利用数据，处理，绘图，减轻工作量。

我现在编制了SURFER绘制激电测井曲线和GRAPHER绘制激电中梯曲线的脚本。稍后实现GRAPHER下激电中梯平剖图的自动绘制，并放送代码程序。

MapGis绘制等值线

shunfly — Thu, 17 Dec 2009 08:42:22 +0000

在地质，地球物理，地球化学数据处理分析中，等值线是很需要的常见图件。本文介绍了几种MapGis绘制等值线的方法。

1.利用.grd文件。

空间分析–DTM分析–GRID模型–平面等值线图绘制，导入GRD数据即可

2.利用点文件

空间分析–DTM分析–文件 –打开数据文件–点数据文件，导入点数据文件。

处理点线–点数据高程点提取，提取高程，保存为TIN文件。

文件–打开三角剖分文件，栅格化数据，存盘为GRD文件。c

3.利用Surfer

在Surfer中绘制等值线，

文件–导出，存为MapInfo交换格式mif

MapGis中，

图形处理–文件转换–输入–成批转换MAPINFO MIF数据