VB+Surfer等值线作图

风荷1 · 发表于 2013-12-8 11:49:29

图的效果不错，挺漂亮

风荷1 · 发表于 2013-12-8 11:52:14

最好有使用说明

axiaohua · 发表于 2013-12-8 14:38:26

哇哦省局的啊

林夕 · 发表于 2013-12-9 09:05:45

大湖北的~话说我要把这个推荐给@zhuvieri

holz · 发表于 2013-12-9 09:48:22

楼主这个给他人用还得改进。
粗看了下，有两个地方用了绝对路径。
其中一个应属不允许，就是生成 basemap 那句：
basemap = Doc.Shapes.AddBasemap(ImportFileName:="F:\ArcGIS\ArcGIS边界\hubeixianjie.shp")

天堂ミ亚澜 · 发表于 2013-12-9 10:59:52

..要学习呢~~

亦青亦蓝 · 发表于 2013-12-9 12:40:21

holz 发表于 2013-12-9 09:48

登录/注册后可看大图

楼主这个给他人用还得改进。
粗看了下，有两个地方用了绝对路径。
其中一个应属不允许，就是生成 basemap ...

嗯！谢谢提醒！这个地方可以直接用选择边界那个文件路径，我忘改了！

nmgzjf0518 · 发表于 2013-12-10 10:00:24

希望楼主继续改进，把这个软件变成傻瓜式软件

holz · 发表于 2013-12-12 09:12:42

亦青亦蓝发表于 2013-12-9 12:40

登录/注册后可看大图

嗯！谢谢提醒！这个地方可以直接用选择边界那个文件路径，我忘改了！

这样，你所能选用的边界文件，只能有一个多边形对象。
如果遇到复合多边形的白化文件，就不能直接用来做basemap，试试就知道咋回事。
作者可以这样，用程序解决，检测到边界文件内有多个多边形对象的，自动建立一个“只有一个复合多边形对象”的白化文件用于白化，原边界文件用来做basemap。如此适用范围就广了。

bekaku · 发表于 2013-12-13 00:26:08

不错，请问一下，你的色标是自动设置的还是用lvl的

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

[资源分享] VB+Surfer等值线作图