VB+Surfer等值线作图

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的

cxidm · 发表于 2014-1-9 17:29:05

能用就太完美了节约不少时间

geophylika · 发表于 2014-2-10 21:53:40

vb直接调用sufer，感觉做的很好呀！
先留个记号，不够金钱下载，等够的时候再来下载

qq200602116 · 发表于 2014-2-18 10:46:29

不错，很不错

7356295 · 发表于 2014-2-18 13:44:24

学习一下，果然是好东西

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

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