SUFER画图

SUFER画图
子draw()
错误erropen
“暗surferapp作为新的上网应用。

朦胧的情节surfer.iplotdocument
朦胧的Shap As Surfer.IShapes
如果会员。

值= 1
surferapp可视=真。

最后如果
昏暗的mapframe作为surfer.imapframe
以弱轴为对象
“surferapp.visible =真
昏暗的stemp2，stemp3，sname2，sname3，数据通路的设置目录
sname2 = histor ydataname +”。

GRD”当日雨量GRD文件
sname3 =“B”+ historydataname +”。

GRD”当日雨量GRD文件白化后
通路= datadir &”“& historydataname +“.dat”那个文件
“数据通路= datadir &“惠民。

DAT DAT文件”
statusbar1。

板（1）。

文本=“提示”
statusbar1。

板（2）。

文本=“资料有效，作图中请等待”
stemp2 = datadir &”“& sname2的GRD文件
stemp3 = datadir &”“& sname3的GRD文件
“网格化数据
surferapp.griddata文件：=数据通路，xcol：= 1，ycol：= 2，zcol：= 5，_
xmin：= 105.2849，Xmax：= 110.1942，Ymin：= 28.1636，= 32.2031，YMax算法：= srfkriging，outgrid：= stemp2
“将网格化后数据白化
英格丽：surferapp.gridblank = stemp2，blankfile：= app.path +“cqblank。

亿”，_
outgrid：= stemp3，outfmt：= srfgridfmts7
“对网格化后的数据去处边界外图像
集剧情= surferapp。

文件。

打开（app.path +“地图。

SRF”）
如果显示正常。

选择（3）=真
“-----------------------
“画等值线图*************************
“-----------------------
昏暗的contourmapframe为对象
集contourmapframe =阴谋。

形状。

AddContourMap（stemp3）的添加等值线图
与contourmapframe
对于轴中的每个轴
axis.showlabels = false
轴，可见=假
axis.majorticktype = srfticknone
axis.minorticktype = srfticknone
下轴
结束
“设置填充
昏暗的等高线地形图为对象
设置等高线地形图= contourmapframe覆盖（1）。

作为对象的弱级别
设置水平=水平等高线地形图。

“levels.setlabelfrequency美国福斯特英德克斯：= 1，numbertoset：= 1，numbertoskip：= 0
昏暗的contourlevels为对象
集contourlevels =水平等高线地形图。

如果Optionhistoryorbatch（0）。

值=真的那么“历史温度
contourlevels.autogenerate minlevel：= 10，maxlevel：= 50，区间：= 5
其他的
如果Optionhistoryorbatch（2）。

值=真的那么“历史降水
contourlevels.autogenerate minlevel：= 0，maxlevel：= 300，区间：= 25
最后如果
最后如果
contourlevels.setlabelfrequency美国福斯特英德克斯：= 1，
numbertoset：= 1，numbertoskip：= 0
belfont.size = 7
belfont.face =“宋体”
“contourmap.orientlabelsup hill =真正的标注朝上
最后如果
“画图像图
“-----------------------
昏暗的MImageMap为对象
“contourmapframe =阴谋。

形状。

AddContourMap（stemp3）的添加等值线图
集mimagemap =阴谋。

形状。

AddImageMap（stemp3）的地图是一个等高线地形图对象
昏暗的图像映射为对象
设置图像映射= mimagemap覆盖（1）。

如果显示正常。

选择（2）=真
imagemap.showcolorscale =真
最后如果
“imagemap.showcolorscale =真
imagemap.missingdatacolor =和hffffff
imagemap.interpolatepixels =真
昏暗的颜色映射为对象
设置颜色表= imagemap.colormap
colormap.loadfile文件名：= app.path +“”+ clrname 昏暗的rsumdaymin”若画降水量图，最小界限最小值为0 如果isrcmdsumclick =真
如果Str（daymin）1＞0
rsumdaymin = str（daymin）- 1
其他的
rsumdaymin = daymin
最后如果
else
rsumdaymin = str (daymin) - 1
than if
'if len (minmax) < > 0 then' 临时添加
in daymax > minmax then
'daymax = minmax / 10
'than if
'than if
'* * * * * * * * * * * * * * * * * * * *
if optionhistoryorbatch (0).value = true then
if len (tltmax) < > 0 and len (tltmin) < > 0 then
colormap.setdatalimits tltmin / 10, tltmax / 10 '画图最大最小界限
than if
than if
in optionhistoryorbatch (2).value = true then
'if len (tlrmax) < > 0 and len (tlrmin) < > 0 then
'colormap.setdatalimits tlrmin / 10, tlrmax / 10' 画图最大最小界限
'than if
'than if
'' 'if len (tltmax) < > 0 and len (tltmin) < > 0 then
'' 'colormap.setdatalimits tltmin / 10, tltmax / 10' 画图最大最小界限
'' '' colormap.setdatalimits rsumdaymin, str (daymax) + 1 画图最大最小界限
'' 'than if
if list1.selected (2) = true then
'-------------------------
dim discretecolorscale as object
seen discretecolorscale = imagemap.colorscale
with discretecolorscale
left = 6.4.
width = 0.4.
height = 2 #.
top = 6.2.
labelfont.size = 10.
.labelinterval = 5
frameline.style = "invisible".
labelformat.numdigits = 1 '保留一位小数. labelformat.type = srflabfixed '类型固定.
if optionhistoryorbatch (2).value = true then .labelmaximum = daymax
.labelminimum = 0
select case daymax
case is > 1000
.labelinterval = 200
case is > 500
.labelinterval = 100
case is > 250
.labelinterval = 50
case is > 100
.labelinterval = 25
case is > 50
.labelinterval = 15
case else
.labelinterval = 5
最后选择
最后如果
结束
“-------------------------
最后如果
设置形状形状=阴谋。

形状。

可增添文本（1.5，7.4，textfromtotime）。

Font.Size = 9添加说明
形状。

可增添文本（1.5，7.6，titletxt）。

Font.Size = 9添加说明
如果显示正常。

选择（1）=真
昏暗的postmapframestation为对象
集postmapframestation =阴谋。

形状。

AddPostMap（datafilename：= app.path +“qxstation .ini”，_
xcol：= 1，ycol：= 3，labcol：= 4，symcol：= 0，anglecol：= 0）的添加地名标注图
“设置地名标注格式
昏暗的postmapstation为对象
集postmapstation = postmapframestation覆盖（1）。

与postmapstation
symbol.size = 0.02。

symbol.index = 115。

symbol.color =和hff8080”srfcolorbabyblue”R102，g153，
B255”srfcolorblue”R102 g153 B255”
labelplane = srfpostscreen。

labelfont.size = 6.5。

labelfont.face =“宋体”。

labelfont.color = & H0和与h404040
结束
最后如果
如果显示正常。

选择（0）=真
昏暗的postmapframetmp为对象
集postmapframetmp =阴谋。

形状。

AddPostMap（datafilename：=数据通路，_
xcol：= 1，ycol：= 2，labcol：= 5，symcol：= 0，anglecol：= 0）的添加数据标注图
“设置数据标注格式
昏暗的postmaptmp为对象
集postmaptmp = postmapframetmp覆盖（1）。

与postmaptmp
symbol.size = 0.02。

symbol.index = 12。

symbol.color =和hff8080”srfcolorbabyblue”R102，g153，
B255”srfcolorblue”R102 g153 B255”
labelplane = srfpostscreen。

labelfont.size = 6。

labelfont.face =“宋体”。

labelfont.color =和h404040”。

“保留一位小数labelformat.numdigits = 1。

labelformat.type = srflabfixed”类型固定。

labelfont.color = & H0和与h404040
结束
最后如果
以小区为对象
= mimagemap母情节的设置。

'设置情节= postmapframetmp。

母
plots.shapes.selectall
昏暗的mapframeall为对象
集mapframeall = plots.selection.overlaymaps 在mapframeall每个轴的轴线去除所有轴线。

axis.showlabels = false
轴，可见=假
axis.majorticktype = srfticknone
axis.minorticktype = srfticknone
下轴
“暗exportpicname
“Label2标题=时间美元。

exportpicname = datadir &”“& historydataname和textfromtotimefilename +“GIF”
暗淡的W，H
W = str（exportpicmultiple×827.5）
H = str（exportpicmultiple×662）
情节。

输出文件名：= exportpicname，选项：=“宽度”和“高度和W，H =“
“plot.export文件名：= exportpicname，选项：=“宽度为827.5，高度为662”
statusbar1。

板（1）。

文本=“提示”
statusbar1。

板（2）。

文本=“已作图，图形加载中…”
“plot.export文件名：= exportpicname，选项：=“宽度为1917.3，高度为1566.18”
“plot.export文件名：= exportpicname，选项：=“宽度为840.9，高度为686.7”
“plots.export文件名：= datadir &”“&”CFM。

gif”，选项：=“宽度= 1917.3，高度= 1566.18”
“plot.export文件名：=把“\”和“CFM。

gif”，选项：=“宽度= 2709，高度= 2212”
“plot.export文件名：=把“\”和“CFM。

gif”，选项：=“宽度= 1354.5，高度= 1106”
previewpicname = exportpicname
preview1.showfile previewpicname，1
statusbar1。

板（1）。

文本=“提示”
statusbar1。

板（2）。

文本=“图形已加载”
集surferapp =没有
surferapp。

退出
ErrOpen：
“MsgBox错误数
如果错误，数字＜0，然后
选择案例编号
案例429
味精= MsgBox（“请安装冲浪软件或soaptoolkit30软件并运行后，重新运行本程序”、“提示”）
其他案件
味精= MsgBox（“未知错误，错误号：”+ STR（ERR。

号），“提示”）
最后选择
最后如果
端子。