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

mkhsj927 · 发表于 2004-10-22 13:47:50

最初由 freeme 发布
[B]怎么用呀？命令是什么？ [/B]

在工具菜单中加载3ddx.dvb，然后运行宏名： m_3ddx

zzz8662 · 发表于 2004-10-22 15:54:24

最初由 mkhsj927 发布
[B]zzz8662 ：
等高线地形图已发到你邮箱，请查收

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

已经收到,谢谢了!.
但是我找不到引用对话框啊,怎么勾选不可用的库呢?哪些库没用呢?

yfy2003 · 发表于 2004-10-25 15:25:46

学习一下!
谢谢提供!

mkhsj927 · 发表于 2004-10-25 21:40:12

zzz8662:
这个程序我在调试时引用过其它类库，我当时运行时也出现过类似情况。本程序其实就直需要VB和CAD的类库就性了，把其他引用类库全去掉就行了。

oyxx_1023 · 发表于 2004-10-25 22:35:40

大哥，能不能公布源码让我门学习学习啊。

mkhsj927 · 发表于 2004-10-25 23:36:09

本来就是源代码呀！VBA的，我又没设密码，直接在CAD的VBA IDE里面大开就行了！

dearjdz123 · 发表于 2004-10-30 18:24:26

怎么还下不了呀

god · 发表于 2004-11-5 11:36:03

感觉不够完美，平顶山，望再接再厉

zzz8662 · 发表于 2004-11-9 21:42:03

还是出错，不能运行．楼主能不能修改一下传上来？偶不会修改错误哦

mkhsj927 · 发表于 2004-11-16 16:33:35

再发一下，不过还是没有修改平顶的问题

zhuxuhong · 发表于 2004-11-20 13:14:08

zzz8662 · 发表于 2004-11-24 12:17:22

不行，从来就没运行成功过

yfy2003 · 发表于 2004-11-25 09:24:33

能详细说明你的网格点的高程算法吗？

marstseng · 发表于 2004-11-26 19:24:46

非常實用的小工具,可惜今天才加入論壇,還沒資格下載使用ㄋㄟ

mkhsj927 · 发表于 2004-12-5 12:07:54

最初由 yfy2003 发布
[B]能详细说明你的网格点的高程算法吗？ [/B]

这个算法是最简单的，也是比较笨的哈：
先求出每条纵向网格线与等高线的交点，按顺序排列，再通过这些交点画轻量多义线，最后求每条横向网格线与此线的交点就是网格点了。本来如果想不形成平顶的问题，可以画样条线的，但求交点时有时求不到，不知是什么原因！所以网格点取得的原理还是同直线插值法一样的！

zzz8662兄，为什么从来没运行成功过？我这里一直正常啊，我用的是CAD2004。

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