surfer站点图图例问题

wu460748616 · 发表于 2016-2-22 15:19:15

您需要登录才可以下载或查看，没有帐号？立即注册

x

画出的站点图图例是一行一类放置的，像这样的

不知道能不能把所有类别放在一行，像色标那样放在图底部？求助~~~~~~~~

想要的结果

(想要的结果)

梁的丰 · 发表于 2016-2-22 16:27:22

在surfer里没试过，不过你可以输出EMF格式的图片，在AI里改，很方便。

wu460748616 · 发表于 2016-2-22 17:12:38

梁的丰发表于 2016-2-22 16:27
在surfer里没试过，不过你可以输出EMF格式的图片，在AI里改，很方便。

好的，我试试，谢谢！

chengxf · 发表于 2016-2-22 18:52:36

在 Surfer 里做不到。

泰达巴神 · 发表于 2016-2-22 22:55:18

我用过一个笨方法，不显示图例，然后手动插入与图中相同的符号以及取值范围，横着放在图下方

holz · 发表于 2016-2-24 09:03:55

其实要自己做图例也不难，如果用编程的方法，取出几个图例需要的参数就可以了，自己画图例还不是想放哪里放哪里，想怎么放怎么放。

下面是示范的代码，太简单就不做注释了：

Sub Main
Dim SurferApp As Object
Dim PlotDoc As Object
Dim MapFrame As Object
Dim ClassedPostLayer As Object
Dim i As Integer
Set SurferApp=CreateObject("Surfer.Application")
SurferApp.Visible=True
Set PlotDoc=SurferApp.Documents.Add
Set MapFrame=PlotDoc.Shapes.AddClassedPostMap2(SurferApp.Path+"\Samples\Demogrid.dat")
Set ClassedPostLayer=MapFrame.Overlays(1)
Debug.Print "分组数：" & ClassedPostLayer.NumClasses
For i=1 To ClassedPostLayer.NumClasses
Debug.Print " ----------第 " & i & " 组----------"
Debug.Print " 本组下限：" & ClassedPostLayer.BinLowerLimit(i)
Debug.Print " 本组上限：" & ClassedPostLayer.BinUpperLimit(i)
Debug.Print " 本组符号："
Debug.Print " 所用符号集：" & ClassedPostLayer.BinSymbol(i).Set
Debug.Print " 符号索引：" & ClassedPostLayer.BinSymbol(i).Index
Debug.Print " 符号大小：" & ClassedPostLayer.BinSymbol(i).Size
Debug.Print " 符号线条颜色：" & ClassedPostLayer.BinSymbol(i).LineColor
Debug.Print " 符号填充颜色:" & ClassedPostLayer.BinSymbol(i).FillColor
Next
End Sub

复制代码

a183467542 · 发表于 2016-3-9 09:01:17

谢谢楼主的无私分享~~

wu460748616 · 发表于 2016-3-11 16:55:52

holz 发表于 2016-2-24 09:03
其实要自己做图例也不难，如果用编程的方法，取出几个图例需要的参数就可以了，自己画图例还不是想放哪里放 ...

可是这要怎么用？不太懂surfer，只用它来画站点图了

vivonica · 发表于 2016-3-12 14:06:23

参考一下，受益。

追风者 · 发表于 2016-5-6 21:35:34

有点高深了，对于我这样的小白来说，还是先打好基础吧，这对台站级的应该很有用的，谢谢分享

		自动登录	找回密码
密码			立即注册

[图形美化] surfer站点图图例问题