VBA数字成图

VBA数字成图是一款CAD_VBA的数字成图的辅助插件，这个版本主要功能，主要是增加数据处理区域化功能，增强断面生成计量功能。因AutoCAD R14、AutoCAD 2000 版本 VBA 功能所限制，所以《VBA数字成图V0.914》将不支持Auto CAD 2000 及以下版本，请以AutoCAD 2002或以上版本运行本程式。

所有功能：

1：多格式文件展点；
2：坐标文件条件筛选；
3：两期土方坐标文件生成；
4：插入高程点或高程文本；
5：区域删除高程文本，点；
6：DTM联三角网；
7：绘等高线；
8：土方计量；(推荐)
9：绘断面；(Update 推荐)
10：Mesh网模拟三维地形图；
11：界址点号标注；
12：坐标标注；
13：彩色区分有高程值的对象；
14：彩色三维面；
15：方位角标注；
16：图面数据另存；
17：强力册除；
18：布局图纸打印；
在AutoCAD中新增下述功能：
1.  CAD 功能聚合
2.  图层状态管理
3.1 文字、图块、圆批操作(推荐)
3.2 文字、图块旋转对齐直线
3.3 块属性转换文本
3.4 去CAD文字对齐BUG
3.5 CASS7绘断面后文字调整 
3.6 Z坐标对齐文字内容值 
3.7 文字增量拷贝
4.1 坐标标注
4.2 界址点号标注
4.3 方位角标注
4.4 距离标注引出线长度修改
4.5 距离标注新增引出线
4.6 距离标注合并
5.1 线段插入端点
5.2 线段删除端点
5.3 线段打断于点
5.4 线段长度转变成面积区域
5.5 样例长度选取线段
5.6 线批操作
6   易选择(推荐)
7   线框选取对象
8   强力删除(推荐)
9   线向拷贝
10  布局打印
11  目录文件列表输出
12  清理所有DWG文件 
A   展点(可展CASS高程)
B.1 图面数据另存为
B.2 彩色区分有高程值的对象(推荐)
B.3 图面插入高程点或高程文本
B.4>图面区域删除高程文本
B.5 图面需更新的数据区域改层
B.6 坐标文件条件筛选
C   三角网
D   等值线(等高线)
E   三角网法土方计量
F   断面
G   模拟三维图

加载程式方法：

1：运行CAD；
2：在CAD中键入“VBALoad”命令加载本程式“Celiang_Project.dvb”既可。

注意事项：

1：CAD在运行中时，如果不完全退出了CAD。CAD再次运行可能会不能使用打开文件对话框。
   如没有打开文件对话框请重新在命令行输入“filedia”命令。改值为1。
   这是CAD的一个BUG，不是本程式的错误。如果想尽量避免出现这现象，请不要运行本程式。
2：加载本程式时如果出错，在CAD中键入“vbaide”命令，打开VBA编辑器，
   点击“工具”菜单->“选项”子菜单，打开“选项”对话框，
   点击“通用”项，在“错误捕获”中，选取“在类模块中中断”选项。