等值线线条或填充自动上色

holz · 发表于 2014-6-5 13:53:49

登录后查看更多精彩内容~

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

x

以往用自动化，需要給等值线图上色时，总是使用lvl文件，或者clr文件。
有时候不想动用lvl文件，有的时候做的一系列图，不能适用同一个lvl文件。
于是想到让代码自动給每条等值线或每个填充区间分配颜色。
效果：

只弄了一个最古老的彩虹色带，其他色彩渐变应该很容易做到，只要知道rgb分量的过渡关系即可。

Colorful_Contour_Line.zip (950 Bytes, 下载次数: 38)

chengxf · 发表于 2014-6-5 14:44:05

受益匪浅，感谢Holz，Surfer自动化是个亮点，学习了。

zyzhi · 发表于 2014-6-5 18:03:17

自动化批操作牛

陌小默的 · 发表于 2014-6-5 21:36:53

感谢这个处理文件

holz · 发表于 2014-6-6 09:04:50

忘记做一些说明了。
1、如果不要设置等值线线条，要改为填充等值线，把 .Levels(i).Line.ForeColor 中的 Line 改为 Fill 即可。
2、如果要让等值线填充生效，要在 End With 之前加入 .FillContours=True 语句。
3、如果要改为等值线填充，最后一个rgb最好改为 RGB(255, 0, c)，颜色过渡会显得更和顺。之前那个rgb是为了加深凸显最后几条等值线线条。
4、因为没有专门用 Surfer 12 的新属性和方法，所以，本人在 Surfer8和Surfer12都通过了测试。

郭小侠V · 发表于 2014-6-6 09:35:15

holz 发表于 2014-6-6 09:04
忘记做一些说明了。
1、如果不要设置等值线线条，要改为填充等值线，把 .Levels(i).Line.ForeColor 中的 L ...

surfer大神啊，佩服！学习了，谢谢！

kongfeng0824 · 发表于 2014-6-6 11:55:57

谢谢分享

qxtlyf · 发表于 2014-6-10 02:16:36

surfer大神啊，佩服！学习了，谢谢！

prily · 发表于 2014-6-22 12:20:39

这个不错的

budehui · 发表于 2014-6-23 09:41:16

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

[vbscript] 等值线线条或填充自动上色

登录后查看更多精彩内容~

评分