[原创]测量 测绘 CAD_VBA展点+等高线+断面生成程式包

caowenjian

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

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

[fly]这个是我编的欢迎指点。[/fly]

myfreemind

楼主再接再厉！

yu-gn

厉害！！！！！厉害！！！！！！！！！！

yu-gn

鲜花一朵

yfy2003

不错！

caowenjian

使用说明： “ 昨忘记发了：）”



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：等候结果。 [fly]欢迎测量人土与我交流[/fly]

zzz8662

好厉害 能把celiang2的算法介绍一下吗？

caowenjian

zzz8662发表于2004-3-23 19:28:00好厉害 能把celiang2的算法介绍一下吗？

http://www.celiang.net/celiang/forum_list.asp?forum_id=9

zjdsx

好厉害

anital

顶,狂顶,美中不足的地方好像是展出的点没有点号,不知楼主能不能把展点号这一步也加进去.