VB 调用 surfer 自动绘制等值图

奇迹

Sub Main
Dim SurferApp,PostMap,ContourMap,ColorMap,ImageMap,MapFrame,Plot As Object
Set SurferApp = CreateObject ("Surfer.Application")
' 创建Surfer  的ActiveX对象。
SurferApp.Visible = True
' 显示Surfer  应用程序主窗口(前台)。
SurferApp.WindowState = 1
'  主窗口最大化
Set Plot = SurferApp.Documents.Add（"Plot2.srf"）
'  生成一个Surfer  的绘图文档，这里用自己保存好了模版文件出错 是哪儿语法有错么
SurferApp.GridData(DataFile:="D:\Scripter\well.DAT",Algorithm:=srfKriging,ShowReport:= False,OutGrid:= "D:\Scripter\well.grd")
' 对数据进行网格化

Set Shapes = Plot.Shapes
Set MapFrame = Shapes.AddImageMap(GridFileName:="D:\Scripter\well.grd")
Set ImageMap = MapFrame.Overlays(1)
'根据Grid 文件建立ImageMap 对象并显示
ImageMap.ShowColorScale = True
'建立黑色色标对象
Set ColorMap = ImageMap.ColorMap
ColorMap.LoadFile(Filename:="D:\Scripter\Rainbow.clr")
' 建立彩色色标对象

Set MapFrame = Shapes.AddContourMap("D:\Scripter\well.grd")
Set ContourMap = MapFrame.Overlays(1)
' 建立等值线对象

Set MapFrame = Shapes.AddPostMap("D:\Scripter\well.dat",LabCol:="4")
'标签显示第4列
Set PostMap = MapFrame.Overlays(1)
'标签旋转45度
    PostMap.LabelAngle=45
    '加标签前缀
   PostMap.LabelFormat.Prefix=ss
  '家标签后缀（这里报错，请问这里应该怎么写？）
   PostMap.LabelFormat.suffix=ss
'建立坐标对象
Plot.Export(FileName:="D:\well.jpg",Options:="Defaults=4,HDPI=200,VDPI=200,ColorDepth=32")
'导出等值图
'关闭所有文档窗口
SurferApp.Documents.CloseAll
'退出
SurferApp.Quit

End Sub

求解 surfer的帮助文档中只有操作帮助，VB 语法就没得 高人们啊

yutian2999

Set Plot = SurferApp.Documents.Open("Plot2.srf")

奇迹

yutian2999 发表于 2012-9-7 12:20

                               
登录/注册后可看大图

Set Plot = SurferApp.Documents.Open("Plot2.srf")

哥们 下面那个语法也提示哈咯 ！谢谢。。。

yutian2999

PostMap.LabelFormat.Postfix = ss

奇迹

yutian2999 发表于 2012-9-7 17:00

                               
登录/注册后可看大图

PostMap.LabelFormat.Postfix = ss

  谢谢了 行得通 ！这些VB语法你是怎么会滴 我是到处找资料一点一点拼凑滴 像你说的这个我就怎么也拼不通 有这方面的资料吗？

奇迹

我是想通过在标签中加上后缀 来解决标签中中文显示为乱码的问题 通过你说的这个方法 大体可以解决了yutian2999

yutian2999

解决问题就行。
我也没有资料，当时看完你的问题，也是第一接触这个代码，我就把你那代码一段段拉去执行，现学现卖，后来看到surfer里面有个Scripter文件夹，有Scripter.exe可用来测试代码，但我还是没用那个来，只是在vb里用按钮命令来玩，但scripter.chm，也就是帮助文件里有介绍，我是看那帮助给你解决问题

奇迹

我是没找到门道 呵呵。。。

奇迹

我是没找到门道 呵呵。。。

【小破孩】

"Dim SurferApp,PostMap,ContourMap,ColorMap,ImageMap,MapFrame,Plot As Object"
处理定义为object，还可以定义为其他的不？比如surfer.IMapFrame。如果定义为object不会自动化显示其属性，不好编程啊