surfer 免费下载 Surfer13 自动绘图之绘制张贴图

Surfer绘制张贴图，与工程制图中点位图类似，如何实现呢，请见如下代码：

?? ?? ?? ?? '开始调用surfer绘制张贴图

?? ?? ?? ?? Dim SurferApp As Object

?? ?? ?? ?? SurferApp = CreateObject("Surfer.Application")

?? ?? ?? ?? SurferApp.Visible = True

?? ?? ?? ?? Dim Doc As Object

?? ?? ?? ?? Doc = SurferApp.Documents.Add(Surfer.SrfDocTypes.srfDocPlot)

?? ?? ?? ?? Dim Plotwindow As Object

?? ?? ?? ?? Plotwindow = Doc.Windows(1)

?? ?? ?? ?? Plotwindow.AutoRedraw = False

?? ?? ?? ?? Dim Shapes As Object

?? ?? ?? ?? Shapes = Doc.Shapes

?? ?? ?? ?? '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

?? ?? ?? ?? '（1）首先在文件夹中绘制坐标点位图

?? ?? ?? ?? Dim MapFrame As Object

?? ?? ?? ?? MapFrame = Shapes.AddPostMap(DataFileName:='D:\Data.dat'

‘添加粘贴图，其中数据文件为： ??"D:\Data.dat??"??

?? ?? Dim PostMap As Object

?? ?? ?? ?? PostMap = MapFrame.Overlays(1)

?? ?? ?? ?? '设置图标参数

?? ?? ?? ?? With PostMap.Symbol

?? ?? ?? ?? ?? ?? .Size = 0.1 ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ??'设置图标大小

?? ?? ?? ?? ?? ?? .Color = Surfer.srfColor.srfColorPink ?? ?? ?? '设置图标颜色

?? ?? ?? ?? ?? ?? .Set = "GSI Default Symbols" ?? ?? ?? ?? ?? ?? ?? ?? ??'选择图标集

?? ?? ?? ?? ?? ?? .Index = 12 ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? '图样序号

?? ?? ?? ?? End With

?? ?? ?? ?? '设置标记为第三列数据

?? ?? ?? ?? PostMap.LabCol = 3 ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ??'选择第3列

?? ?? ?? ?? PostMap.LabelFont.Face = "Times New Roman" ?? ?? ??'字体类型

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-59979-1.html