vb调用Surfer作图时如何消除等值线中的负值

kiwilee

各位，请问Vb调用Surfer作图时如何消除等值线中的负值？在Surfer作图时可以按程老师的《Surfer作图如何消除等值线中的负值》消除等值线中的负值，但VB调用Surfer画等值线中，如何消除等值线中的负值？我试着用SurferApp.GridMath Function:=" C=max(a,0)", InGrid:=App.Path & "\da.grd", VariableName:="A", BlankHandling:=blankoutput, OutGrid=App.Path & "\dc.grd"也不行不通，根本没把dc.grd生成出来。

精卫

我也用VB调用过surfer，以我的经验，这种问题基本上没人好回答，大家谁和谁调用的目的和用途不一样，所以照着帮助文档找的代码也不一样，我的建议是在帮助文档里搜索相关的说明，自己一步一步尝试，maybe第一千零一次尝试之后...........天亮了！呵呵，祝您成功！

holz

不知道楼主用的什么版本，在12版中，GridMath 的语法是：

1. object.GridMath( Function, InGridA, InGridB, OutGridC, OutFmt )

复制代码

GridMath2 的语法是：

1. object.GridMath2( Function, InGrids, OutGrid, OutFmt )

复制代码

holz

1. ' ================================
   
2. ' 演示如何剔除负值，把负值区变成空白
   
3. ' Scripter + Surfer 12
   
4. ' Use on your own risk.
   
5. ' ================================
   
6. Option Explicit
   
7. Sub Main
   
8.         Dim SurferApp As Object
   
9.         Dim objGrd As Object
   
10. 
    
11.         Dim inGrd As String
    
12.         Dim outGrd As String
    
13.         Dim GrdNoNeg As String
    
14.         Dim blkValue As Double
    
15. 
    
16.         '初始化应用程序
    
17.         Set SurferApp=CreateObject("Surfer.Application")
    
18.         SurferApp.Visible=True
    
19. 
    
20.         '为了演示，先制造一个有负值的网格文件。
    
21.         inGrd=SurferApp.Path+"\Samples\demogrid.grd"
    
22.         outGrd=SurferApp.Path+"\Samples\DemoNeg.grd"
    
23.         SurferApp.GridMath(Function:="c=a-70",InGridA:=inGrd,OutGridC:=outGrd)
    
24. 
    
25.         '了解网格文件用什么值作为白化值。
    
26.         Set objGrd=SurferApp.NewGrid
    
27.         objGrd.LoadFile(outGrd, True)
    
28.         blkValue=objGrd.BlankValue
    
29. 
    
30.         '先用含负值的网格画个图，看看原始状态。
    
31.         Dim objPlotDoc As Object
    
32.         Dim objMapFrame As Object
    
33.         Set objPlotDoc=SurferApp.Documents.Add(srfDocPlot)
    
34.         Set objMapFrame=objPlotDoc.Shapes.AddContourMap(inGrd)
    
35.         objMapFrame.Top=objMapFrame.Top+8.0
    
36. 
    
37.         '用白化的方式剔除负值。
    
38.         Dim FuncStr As String
    
39.         FuncStr="c=if(a<0," & blkValue & ",a)"
    
40.         GrdNoNeg=SurferApp.Path+"\Samples\DemoNoNeg.grd"
    
41.         SurferApp.GridMath(Function:=FuncStr,ingrida:=outGrd,outgridc:=GrdNoNeg)
    
42. 
    
43.         '用结果网格再画个图，与原图对比。
    
44.         Set objMapFrame=objPlotDoc.Shapes.AddContourMap(GrdNoNeg)
    
45.         objMapFrame.Top=objMapFrame.Top-8.0
    
46.         'SurferApp.Quit
    
47. End Sub
    

复制代码

kiwilee

谢谢两位的回复，正如holz 所言，只要格式对就能正确运行