[精彩]sufer画图

[精彩]sufer画图SUFER画图Sub draw() On Error GoTo ErrOpen 'Dim SurferApp As New Surfer.Application Dim Plot

[精彩]sufer画图 SUFER画图 Sub draw() On Error GoTo ErrOpen 'Dim SurferApp As New Surfer.Application Dim Plot As Surfer.IPlotDocument Dim Shap As Surfer.IShapes If Check1.Value =1 Then SurferApp.Visible =True End If Dim MapFrame As Surfer.IMapFrame Dim Axis As Object 'SurferApp.Visible =True Dim stemp2, stemp3, sname2, sname3, datapath '设置目录 sname2 =historydataname +".grd" '当日雨量grd文件 sname3 ="b" +historydataname +".grd" '当日雨量grd文件白化后 datapath =datadir &"\" &historydataname +".dat" 'dat 文件 'datapath =datadir &"\min2.dat" 'dat文件 StatusBar1.Panels(1).Text ="提示" StatusBar1.Panels(2).Text ="资料有效,作图中请等待" stemp2 =datadir &"\" &sname2 'grd 文件