vb调用surfer11的问题

gfasgfsafgds

这个是用surfer8写的，但是现在用11了，如何进行修改，请大神帮帮忙。
Set SurferApp = CreateObject("Surfer.Application") '创建surfer对象   --------提示出错
    SurferApp.Visible = False   'surfer软件不在前台显示，如改为ture就会看到sufer软件处理过程，不美观
   
   SurferApp.GridData DataFile:="D:\出图程序\温度、雨量\Rainfall_60min\datfile\温度.dat", xCol:=1, yCol:=2, zCol:=3, Algorithm:=2, DupMethod:=2, ShowReport:=False, OutGrid:=App.Path & "\差值后.grd", xMin:=105.589, xMax:=106.125, yMin:=28.95, yMax:=29.56, NumCols:=1500, NumRows:=1500
    'SurferApp.GridData DataFile:="D:\web\hrw\Rainfall_10min\datfile\雨量.dat", xCol:=1, yCol:=2, zCol:=3, Algorithm:=2, DupMethod:=2, ShowReport:=False, OutGrid:=App.Path & "\差值后.grd", xMin:=105.589, xMax:=106.125, yMin:=28.95, yMax:=29.56, NumCols:=1500, NumRows:=1500
    '是利用 VB 代码控制 Surfer 来绘制等值线,生成一个空白的绘图页。用Kriging(克里格)法将资料内插到网格点上，并定义网格的最大(小)经纬度，Datefile为包含路径的文件名，这里为雨量数据文件，Outgrid 为数据插之后的输出文件。
     SurferApp.GridBlank InGrid:=App.Path & "\差值后.grd", BlankFile:=App.Path & "\永川边界.bln", OutGrid:=App.Path & "\差值后.grd"
    '用.bln 文件白化等值线，去掉边界外的插值， 并重新保存，为后面绘制等值线做准备。
   
    Set Plot = SurferApp.Documents.Add(1)
    Set ContourMapFrame = Plot.Shapes.AddContourMap(App.Path & "\差值后.grd ")
   
    '生成一个空白的绘图页,并在空白绘图页上生成白化后的等值线图，并指定其文件名为ContourMapFrame。
    'Set ContourMapFrame = plot.Shapes.AddContourMap("D:\dat.grd") '生成一个等值线图
           Set ContourMap = ContourMapFrame.Overlays(1)
     ContourMap.Levels.LoadFile (App.Path & "\温度.lvl")
    '降水等级文件可根据实际情况调整，以绘出较为美观的图形。
   
   
     ContourMap.SmoothContours = 4
    ContourMap.ShowColorScale = True
      ContourMap.FillContours = True
    '载入等值线等级文件，并平滑等值线，设置显示色标，最后，填充等值线。
   
    ContourMapFrame.Axes(1).Visible = False    '设置是否显示坐标轴
    ContourMapFrame.Axes(3).Visible = False
    ContourMapFrame.Axes(2).Visible = False
    ContourMapFrame.Axes(4).Visible = False
   
    ContourMap.ShowColorScale = True   '显示色标
    ContourMap.ColorScale.FrameLine.Width = 0#
    ContourMap.ColorScale.Left = ContourMap.Width + ContourMap.Left - 0.9
    ContourMap.ColorScale.Width = 0.6
    ContourMap.ColorScale.Height = 2.1
    ContourMap.ColorScale.Top = ContourMap.Top - (ContourMap.Height - ContourMap.ColorScale.Height) / 1.1
    ContourMap.ColorScale.LabelFont.Size = 8
    '等值线数值标注的字体和大小
    ContourMap.LabelFont.Size = 5
   
   

holz

创建surfer应用程序对象出错，就是没有正确安装 Surfer，重新安装一次。

Royone

感觉好乱