[原创]：地形表面模型建立VBA源程序

mkhsj927 · 发表于 2004-10-18 15:22:13

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

×

本程序采用矩形网格法建立地形表面模型
网格点数在181×181＝32761以下比较块，超过了比较慢
使用时先在等高线地形图上用矩形画个范围包住等高线

mkhsj927 · 发表于 2004-10-18 15:42:06

源地形图

mkhsj927 · 发表于 2004-10-18 15:43:11

程序建立的地表模型

mkhsj927 · 发表于 2004-10-18 15:47:12

关闭等高线后的效果

ntchjie · 发表于 2004-10-18 19:43:43

好东西，多谢楼主，向你学习。

bzy777 · 发表于 2004-10-18 20:58:20

真是好东西，我先下了

zzz8662 · 发表于 2004-10-20 11:22:55

怎么使用呢?所用等高线是什么样的,有要求吗??怎么一画包围等高线的矩形窗口时,自动结束程序?

god · 发表于 2004-10-20 14:39:04

楼主能不能发个等高线图上来试试

mkhsj927 · 发表于 2004-10-21 00:51:39

好几天没上了，sorry！
首先程序中计算出的网格点高程有错误，现已改正，请重新下载！抱歉！
本程序现只支持Line线和2DPline线两种
还希望大家多提意见和建议，在此谢了！

mkhsj927 · 发表于 2004-10-21 01:10:30

想发个地形图的，可是我把814k大小的DWG文件压缩成了3个，每个最大仅300k都提示检测到文件大了，试了多次都不能发！怎么办？
唉，解释一下吧，等高线就是带Evalation属性的二维多段线！

mkhsj927 · 发表于 2004-10-21 01:18:06

上图生成的地形（CAD默认体作色模式下，网格间距5）

mkhsj927 · 发表于 2004-10-21 01:20:12

唉，还是上传不上去！

zzz8662 · 发表于 2004-10-21 13:48:28

做的很不错的,佩服.能不能把等高线地形图发我邮箱里?zzz8662@sohu.com 谢谢
另外,[U]ReDim m_jdst(m_xn - 1, m_yn * 3 - 1) As Double '存储全部网格点坐标[/U] 编译错误,找不到工程或库

mkhsj927 · 发表于 2004-10-21 15:22:01

zzz8662 ：
等高线地形图已发到你邮箱，请查收

ReDim m_jdst(m_xn - 1, m_yn * 3 - 1) As Double 编译错误,找不到工程或库的原因应该是引用了不可用的库，在引用对话框中把不用的库前面的勾去掉再运行

freeme · 发表于 2004-10-21 21:28:38

怎么用呀？命令是什么？

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