CAD中等高线的绘制

用法：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.5002,,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：等候结果。