[VBA程序]：测量 测绘 CAD_VBA 展点+等高线+断面生成程式包

caowenjian

CAD_VBA展点+等高线+断面生成程式包

下载地址：
http://www.celiang.net/celiang/down_view.asp?id=7

[fly]这个是我编的欢迎指点。[/fly]
*-*7 *-*4

hooyd

好像提示有错误？

自由的鱼

楼主可以留一个联系方式吗？我也是做测绘的！

yfy2003

直接到他的望站下，是源程序！

caowenjian

最初由 caowenjian 发布
[B]CAD_VBA展点+等高线+断面生成程式包
好像提示有错误？  




hooyd 附带了这个的图片 :


*... [/B]

是在什么情况下出现错误？

待会我发使用说明：


发下了我只能先发在这：

CAD_VBA展点+等高线+断面生成程式包由VBA编成。2004年1月始共用时二个月。

用法：
     1：启动AUTO_CAD；
     2：在Command中输入vbaload命令，装载需要运行扩展名为dvb文件（本程式名为：“Celiang_Project.dvb”）。
     3：在Command中输入vbarun命令（快捷键Alt+F8），选取需要运行的功能。

其中:
     CeliangToolbar功能为增加一个本程式包的工具条；
     celiang1为展点程式；
     celiang2为等高线生成程式；
     celiang3为断面图生成程式。

查看原代码：
     在Command中输入vbaide命令（快捷键Alt+F11）。



celiang1是展点程式，暂只能展Cass扩展名为dat文件格式。

     Cass格式：
     1,name1,2904.500,2637.800,-4.500
     2,,2910.900,2644.700,-5.000
     ... ...

     其中：1为点序号；name1为点名；2904.500为X坐标；2637.800为Y坐标；-4.500为高程。
     
     功能：生成层指定名；
           可选择展出三维坐标点、点名、序号、坐标；
           坐标X、Y轴对换；
           

     使用方法：
     1：在CAD用vbaload命令装载Celiang_Project.dvb程序；
     2：后运行-vbarun命令，输入celiang1,回车；
     3：按开始键，装入需要展点的原始dat文件。

     速度如下表：(CPU：1.8G 内存：256M 测试)
     
     展点数；    商业测量软件； 未打开过程显示的本程式式；
     65000个点；   1.5分钟；      1分钟；



celiang2是生成三角网和等高线程式。

     只能由图面点生成，暂无边界选取功能。（偶尔有边角部分三角网生成不合理，有三角网交叉。原因是取点距离判

断太短，修改“三角网边长”项数值可减少这钟情况。三角网边长值越大用时越长。）

     所以在点分布有凹形明显地方生成等高线会有许多不合理的小短线。        

     功能：可选择生成三角网或等高线；
           等高线按部分标高值生成；         
           

     使用方法：
     1：在CAD用vbaload命令装载Celiang_Project.dvb程序;(已装载无须装载）
     2：后运行-vbarun命令，输入celiang2,回车；
     3：按开始键，在CAD选取图面点，回车；
     4：等候结果。

     由于是用VBA编写的，加上算法不够优化，所以速度奇慢。
     速度如下表：(CPU：1.8G 内存：256M 测试)
     
     处理点数；   商业测量软件； 本程式；      打开过程显示的本程式；
     5000个点；   小于1分钟；    1分钟；       1*2分钟
     10000个点；  1分钟；        4分钟；       4*2分钟   
     30000个点；  6分钟；        18分钟；      18*2分钟
     100000个点；                200分钟；     200*2分钟
     X个点；                     18*（X/30000）^2


celiang3是生成断面图的程式。

     只能由图面点生成，无中间文件存取功能。（所以一定先要生成三至五个断面看看效果，调整参数以能达到好一点

效果。）
     功能：
          根据图面点和中线，加n条剖面线，就可自动生成n个断面图；
          选取的点是飞行属于不同层的话，则可生成多条断面线；
          根据地范围线对断面线进行分开计算面积。
         
     使用方法：
     1：在CAD用vbaload命令装载Celiang_Project.dvb程序;(已装载无须装载）
     2：后运行-vbarun命令，输入celiang3,回车；
     3：按开始键，在CAD选取图面点和n条剖面线，回车；
     4：图面选取中心线（一定要和剖线有个交点）。
     5：图面选取计量范围线（可不选），（要和剖线有相交）。回车；
     6：等候结果。

yfy2003

说什么好了？
你的程序是CAD_VBA，他用的是VB调用啊！

wlzhzj

我也是搞测绘的，谢谢你！

caowenjian

*-*7 *-*)

123ytuio

我下了，不怎么好用。还望改进。

wylong

不错不错！谢谢

kdst

有原代码吗？

zhuxiaoming

楼主你提供的那个网站里面的东西都可以下载吗,可以免费使用吗?很多回复的说下载了不能用啊?

01470147

可以免费使用吗?很多回复的说下载了不能用啊?

wudashi

感觉晓东！！！！！！

ourhsy

好的，有没有更好的。