surfer 8 scripter 学习笔记（9）surfer与VB结合的VB源代码

抽空写了一个。

发现删除surfer 8,安装surfer11，程序仍能运行。

'2013.05.19
'白话魔法师Option ExplicitPrivate Sub Command1_Click()Dim srf        As New Surfer.ApplicationDim poltDoc    As Surfer.IPlotDocumentDim mapFrame   As Surfer.IMapFrameDim mapContour As Surfer.IContourMapDim ColorScale As Surfer.IDiscreteColorScaleDim mapBase    As Surfer.IBaseMapDim shpText    As Surfer.ITextDim Axis       As Surfer.IAxis'是否显示surfer界面srf.Visible = False'增加绘图文档Set poltDoc = srf.Documents.Add(srfDocPlot)'网格化srf.GridData DataFile:=App.Path & "\1.xls", xCol:=1, yCol:=2, zCol:=3, NumCols:=200, NumRows:=200, xMin:=106.6333, xMax:=108.5333, _yMin:=30.3333, yMax:=32.35, showreport:=False, outgrid:=App.Path & "\1.grd"DoEvents'白化srf.GridBlank ingrid:=App.Path & "\1.grd", blankfile:=App.Path & "\CityBlank.bln", outgrid:=App.Path & "\out.grd"'等值线Set mapFrame = poltDoc.Shapes.AddContourMap(App.Path & "\out.grd")'轴线For Each Axis In mapFrame.AxesAxis.Visible = FalseNext'等值线属性设置Set mapContour = mapFrame.Overlays(1)With mapContour.FillContours = True.BlankLine.Style = "solid"'        .BlankLine.Width = 0.015.SmoothContours = srfConSmoothHigh.Levels.LoadFile App.Path & "\R24level.lvl"End With'加载底图Set mapFrame = poltDoc.Shapes.AddBaseMap(App.Path & "\MidCountry.bna")Set mapBase = mapFrame.Overlays(1)mapBase.Line.Width = 0.01'    Set mapFrame = poltDoc.Shapes.AddBaseMap(App.Path & "\CityBlank.bln")'    Set mapBase = mapFrame.Overlays(1)'    mapBase.Line.Width = 0.015'叠放poltDoc.Shapes.SelectAllpoltDoc.Selection.OverlayMapsmapContour.ShowColorScale = TrueSet ColorScale = mapContour.ColorScaleWith ColorScale.LabelFont.Size = 22.Top = 4.Left = 6.2.Height = 1.2.Width = 0.5End With'加载文字--标题Set shpText = poltDoc.Shapes.AddText(1, 1, "不明物质分布图")With shpText.Top = 2.2.Left = 4.3.Font.VAlign = srfTAVCenter.Font.HAlign = srfTACenter.Font.Bold = True.Font.Size = 12End With'加载文字--图例Set shpText = poltDoc.Shapes.AddText(1, 1, "图例")With shpText.Top = 4.2.Left = 6.4.Font.VAlign = srfTAVCenter.Font.HAlign = srfTACenter.Font.Bold = TrueEnd With'输出图片，加载到程序中poltDoc.Export App.Path & "\p1.emf"Image1.Picture = LoadPicture(App.Path & "\p1.emf")srf.Documents.CloseAll srfSaveChangesNosrf.Quit
End Sub

-----------------------

右边是一些设置，是一个完善和自制化。

比如：

1、设置文本内容，这样就可以自定义文本了。

2、选择是否显示边界、站点名（就是加载Post图，程序中没有编出）

3、还可以设置一些颜色条的自制。

等等，这个是根据个人需要自已来弄。

感觉，全英文的的确费力。还好Scripter的较简单，加上微软的翻译。

推荐一下，还是用必应的翻译，因为这个对编程的翻译比金山和有道更强一些（其它类的还是用金山和有道吧）

surfer 8 scripter 学习笔记（9）surfer与VB结合的VB源代码相关推荐

surfer 8 scripter 学习笔记（5）简单实战VB与Surfer
感觉认识实例: 一.Application 属性 Caption 主窗体标题 WindowState 主窗体状态(srfWindowStateMaximized , SrfWindowStat ...
surfer 8 scripter 学习笔记（1）脚本对象模型
此脚本专为surfer(类似VBA,但与VBA不完全相同),它操作surfer动作. 实际上,它和excel一样,VB通过语句可以进行操作excel或surfer. 同样,它和excel一样,本身也有 ...
MUI学习笔记之图片上传和预览
MUI学习笔记之图片上传和预览源代码是从博客园下载我一边学习,一边注释,力求理解 <head> <meta charset="UTF-8"> <m ...
Rasa 3.x 学习系列- Rasa - Issues 4873 dispatcher.utter_message 学习笔记
Rasa 3.x 学习系列- Rasa - Issues 4873 dispatcher.utter_message 学习笔记目录 Issues 4873 Issues 4873 修复 Rasa源代 ...
Customizable constraint systems for succinct arguments学习笔记（2）
微软研究中心Srinath Setty.a16z crypto research 和 Georgetown University Justin Thaler.Carnegie Mellon Unive ...
网上FLAC3D学习笔记
建议:初学者将FLAC/FLAC3D版所有帖子都浏览一遍:学有所得后,再浏览一遍,会发现又有新的收获. 第一部分(相关链接) 1. FLAC3D知识基本介绍SimWe http://www.sim ...
cs224w（图机器学习）2021冬季课程学习笔记4 Link Analysis: PageRank (Graph as Matrix)
诸神缄默不语-个人CSDN博文目录 cs224w(图机器学习)2021冬季课程学习笔记集合文章目录 1. Graph as Matrix 2. PageRank / the Google Algor ...
这就是搜索引擎核心技术详解@学习笔记
对应文章的下载地址: http://download.csdn.net/detail/yijiyong100/6356227 背景关于本篇学习笔记,只是把书中的一些概念进行了归纳,同时把个人的一 ...
PyTorch 学习笔记（六）：PyTorch hook 和关于 PyTorch backward 过程的理解 call
您的位置首页 PyTorch 学习笔记系列 PyTorch 学习笔记(六):PyTorch hook 和关于 PyTorch backward 过程的理解发布: 2017年8月4日 7,195阅读 ...
容器云原生DevOps学习笔记——第三期：从零搭建CI/CD系统标准化交付流程
暑期实习期间,所在的技术中台-效能研发团队规划设计并结合公司开源协同实现符合DevOps理念的研发工具平台,实现研发过程自动化.标准化: 实习期间对DevOps的理解一直懵懵懂懂,最近观看了阿里专家带 ...

surfer 8 scripter 学习笔记（9）surfer与VB结合的VB源代码

surfer 8 scripter 学习笔记（9）surfer与VB结合的VB源代码相关推荐

最新文章

热门文章