我的自动雨量站等值线绘图程序

gylzh

Set SurferApp = CreateObject("Surfer.Application")
SurferApp.GridData DataFile:=File1.Path + "\" + File1.FileName, ShowReport:=False, DupMethod:=2, OutGrid:=App.Path + "\drawcontour.grd"
SurferApp.GridBlank InGrid:=App.Path + "\drawcontour.grd", BlankFile:=App.Path() + "\map\gymap.bln", OutGrid:=App.Path() + "\Out.grd"
PicName = App.Path() + "\pic\" + Mid(File1.FileName, 1, Len(File1.FileName) - 4) + ".jpg"
Set plot = SurferApp.Documents.Add(1)
Set contourmapframe = plot.Shapes.AddContourMap(App.Path() + "\Out.grd")
Set contourmap = contourmapframe.Overlays(1)
Select Case Combo1.ListIndex
Case 0
    contourmap.Levels.LoadFile (App.Path + "\color1.lvl")
Case 1
    contourmap.Levels.LoadFile (App.Path + "\color2.lvl")
Case 2
    contourmap.Levels.LoadFile (App.Path + "\color3.lvl")
End Select
contourmap.SmoothContours = 4
contourmap.ShowColorScale = True
contourmap.FillContours = True
Set BaseMap = plot.Shapes.AddBaseMap(ImportFileName:=App.Path + "\map\gymap.bln")
Set BaseMap1 = plot.Shapes.AddBaseMap(ImportFileName:=App.Path + "\map\gyxian.bln")
Set PostMapFrame = plot.Shapes.AddPostMap(DataFileName:=App.Path + "\station.txt", LabCol:=3)
Set PostMap1 = PostMapFrame.Overlays(1)
Set mkformat = PostMap1.Symbol
PostMap1.LabelPos = 5
With mkformat
    .Size = 0.03
    .Index = 45
End With
Set LbFont = PostMap1.LabelFont
With LbFont
.Face = "宋体"
.Size = 6
End With
Set AddText = plot.Shapes.AddText(x:=3, y:=3.2, Text:=Text1.Text)
With AddText.Font
.Face = "宋体"
.Size = 12
End With
plot.Shapes.SelectAll
plot.Selection.OverlayMaps
plot.Export FileName:=PicName, Options:="Width=" & Text2.Text & ",Height=" & Text3.Text
plot.Close
SurferApp.Quit
Image1.Picture = LoadPicture(PicName)

传说中的谁

很好，VB写的么？看着像

喜上眉梢

源代码都在啊，好，可以COPY了。

言深深

看到了，，可惜还得慢慢琢磨这个语言

athlon8048

surfer的帮助文件里面，直接用VB调用的例程，稍微看看就会了！嘿嘿！

cycle

很好，实用

月流火

{:e311_b:}首页插入！！！

baiduwenku

怎么执行啊，是在vb中吗？

mofangbao

baiduwenku 发表于 2011-11-12 21:20

                               
登录/注册后可看大图

怎么执行啊，是在vb中吗？

恩 他的是vb的代码

wly123456

有意思，学习学习