通过下面的vb代码调用surfer自动网格化生成L1.grd,内容如下图所示。
下面是一段参考代码:
strGridFile = Left(strInFile, Val(InStrRev(strInFile, “.”)) – 1) + “.grd” ‘把扩展名改为.grd
Set objSurfer = CreateObject(“Surfer.Application”) ‘创建Surfer对象
objSurfer.Visible = False ‘surfer软件本身不在前台显示
objSurfer.GridData DataFile:=strInFile, Algorithm:=srfKriging, _
DupMethod:=srfDupNone, ShowReport:=False, OutGrid:=strGridFile ‘把离散的数据文件转换为格网文件
Set objPlot = objSurfer.Documents.Add(srfDocPlot) ‘创建srf文档
Set objMapFrame = objPlot.Shapes.AddContourMap(strGridFile) ‘创建等值线图并添加到文档
objPlot.Export FileName:=Left(strInFile, Val(InStrRev(strInFile, “.”)) – 1) + “.bmp” ‘输出bmp
Picture1.Picture = LoadPicture(Left(strInFile, Val(InStrRev(strInFile, “.”)) – 1) + “.bmp”) ‘显示bmp
End Sub
surfer6 grd文件格式: