Surfer13如何实现自动白化

对网格化后的grd数据进行白化，可以实现对图形的剪裁效果，通过Surfer自动化也可以实现，代码如下：  

 Dim SurferAppBHGRD As Object

        SurferAppBHGRD = CreateObject("Surfer.Application")
        SurferAppBHGRD.Visible = False
        Dim InGrid, BlankFile, BlankedGrid As String        
     

       '三个文件分别是：白化前的grd数据文件，用于白化的bln数据，白化后的grd数据文件，例如：

        ' InGrid = "E:\Surfer13Practice\BH" + "\40_ConcourMap.grd"
        ' BlankFile = "E:\Surfer13Practice\BH" + "\TZ.bln"
        ' BlankedGrid = "E:\Surfer13Practice\BH" + "\40_ConcourMapBH.grd"

        Dim retValue As Boolean
        'Blanks the grid file using a BLN file

        retValue = SurferAppBHGRD.GridBlank(InGrid:=InGrid, BlankFile:=BlankFile, _

 Outgrid:=BlankedGrid, OutFmt:=Surfer.SrfGridFormat.srfGridFmtS7)

        SurferAppBHGRD.quit()