（vb+suffer)为什么会出现白色的区域呢，谢谢

舍得

Dim surfapp As Object 'Application
Set surfapp = CreateObject("surfer.application")
surfapp.Visible = False
surfapp.GridData DataFile:=App.Path + "\station.txt", xCol:=1, yCol:=2, zCol:=3, Algorithm:=srfKriging, ShowReport:=False, outgrid:=App.Path + "\station.grd", xMin:=114.9, xMax:=115.6167, yMin:=22.7, yMax:=23.2333
Dim plot As Surfer.IDocument
Dim contourmapfame As Surfer.IMapFrame
Dim ContourMap As Surfer.IContourMap
surfapp.GridBlank Ingrid:=App.Path + "\station.grd", blankfile:=App.Path + "\arcgis.bln", outgrid:=App.Path + "\station.grd", outfmt:=srfGridFmtS7  '白化
Set plot = surfapp.Documents.Add(1) '生成一个空白的绘图页
Set contourmapframe = plot.Shapes.AddContourMap(App.Path & "\station.grd") '生成一个等值线图
Set ContourMap = contourmapframe.Overlays(1) '----- 将等值线图形属性指定给变量ContourMap
ContourMap.Levels.LoadFile (App.Path + "\sebiao.lvl")  '--- 加载等值线填充色彩分级文件
ContourMap.SmoothContours = 4    '--等值线平滑
ContourMap.FillContours = True  '--- 填充
ContourMap.ShowColorScale = True 'False  '---是否显示色标
Set basemap = plot.Shapes.AddBaseMap(importfilename:=App.Path + "\arcgis.bln")
plot.Shapes.SelectAll
Dim sel As Object
Set sel = plot.Selection
sel.OverlayMaps
plot.Shapes.SelectAll '  ---将上述所有图层进行合并
plot.Export filename:=App.Path & "\station.gif", Options:="defaults=1,Width=600,Height=400,ColorDepth=24"
plot.Close savechanges:=srfSaveChangesNo
surfapp.Quit '释放surfer模块
Picture2.Picture = LoadPicture(App.Path & "\station.gif")

言深深

初步估计因为你的色标取值范围有点儿小了。也就是说空白处的数据有可能在设定的色标范围以外，比如小于0···建议检查一下

舍得

说得对，如果色标的最小值改为-5，那么画出来的图是正常的，但问题是雨量不可能是负的，值是：2.1     
11.2   
0.0     
6.3     
0.1     
0.0     
0.0     
0.0     
4.1     
0.0     
0.2     
0.9     
0.1     
0.2     
7.3     
而且换了几组数据来测试，其中有最小值为10的，结果有时还是会出现白色的区域，请帮忙，谢谢

sxliuqiu

怎么我按这个方法做，老是调用不了啊，引用那里已经有了surfer9了，调试显示surapp为空值，这是怎么回事啊？求高手指点！先谢过了

sxliuqiu

经验证，surfer8可以调用

canyueduanxian

谢谢
╭︿︿︿╮
{/ o  o /}  
( (oo) )   
  ︶︶︶