为了形成一个JPG或动画的GIF。
费了很大劲，首先从mapgis里面有一个文件转换，把要转换的东西。转换成dxf，
这样surfer就可以得到其中的数据，目的 就是得到一个精确的边界（或白化）图。
然后，熟悉相关数据库中存存储相关字段及值。这些值是用来后面的作为X,Y,Z对应
相应的经纬度的值。以便格网化形成等值线。
然后。事先把LEVELS文件就是画等值线的固定做好（用其中的savefile).，在程序中
用Loadfile就加载进来了。
遇到一个问题，surfer如何读取x,y，z值呢，因为这些值在数据库中。
第一个想到的是excel ,由经纬度及量值组成，数据库导入excel，然后surfer从excel中导入。
但有问题，有时不兼容excel，偶尔提示（因为它只认一页）
所以最后想到还是用原始的进行输入吧。当然是自动原始输入。
即VB操作surfer打开自身的一个表，用程序自动填写经纬度和量值。然后存盘，格网化。包括一些白化等。
就形成了最终的图形，最后输出JPG（发现MIT还是MID很清晰）
发现一个强大的功能。
surfer操作单元格的能力绝对不弱于excel。
不过用于实际自动化操作还是这个 wksDoc.cells(i,j) 方便。
Option ExplicitPrivate Sub Command1_Click()Dim srf As New Surfer.ApplicationDim wksDoc As Surfer.IWksDocumentsrf.Visible = TrueSet wksDoc = srf.Documents.Add(srfDocWks)wksDoc.ActivatewksDoc.Cells(1, 1) = "x"wksDoc.Cells(1, 2) = "y"wksDoc.Cells(1, 3) = "z"wksDoc.Cells(2, 1) = 11wksDoc.Cells(2, 2) = 12wksDoc.Cells(2, 3) = 13’这些都应该是从数据库获得的值，此处略去连接数据库等取值操作wksDoc.SaveAs "D:\1.dat" ‘存盘wksDoc.Close srfSaveChangesNo ‘不提示直接关闭End Sub
最后：两个
白化:object.GridBlank( InGrid, BlankFile, OutGrid, OutFmt )
dim srf as new surfer.application
srf.gridblank(ingrid:="D:\1.grd",blackfile:="D:\1.bln",outgrid="D:\2.grd")
第一参：输入的网络文件
第二参：要白化的边界
第三参：输出经白化的网格文件。
叠放次序。
在无法确定时，须全部选择取消，，再选择其中一个为选定。再设置SetZOrder就可以
object.SetZOrder(Zorder)
eg: (Zorder:=srfZOToFront)
(srfZOToFront)
scripter就这样。
收工！
青春不是年华，而是心境；青春不是桃面丹唇柔膝，
