AutoCADVBA的新用途

     作者：张毅

    本文以福建省南平市武夷新区新岭片区河道工程为例，用VBA编制的程序对其进行断面绘制，为以后类似河道工程绘制横断面提供捷径。

    1工程简介及问题的提出

    1.1工程简介

    南平市武夷新区新岭片区（含彭墩）总面积约22.72 km2，片区集雨面积为41.67 km2，片区上游山区山洪现状均通过规划园区用地汇入崇阳溪。河道布置方案在不改变天然汇水方式的条件下，在区内布置3条河道，分别为新岭河、新岭一支河和新岭二支河，长度分别为9.901 km、4.973 km和1.151 km。

    施工图阶段河道每隔约200 m需绘制一个横断面，加上局部加密断面共需绘制68个断面。断面堤顶道路形式和护坡坡度不变，河底断面形式、河底高程、堤顶高程、亲水平台高程及设计洪水位是不断变化的。常规绘制横断面的方法是：将绘制完好的同类断面复制后按照护坡长度和坡度将堤顶移动到指定位置，完善护坡、更改高程、插入地面线。

    1.2问题的提出

    由于常规方法绘制横断面不仅效率低且在修改高程时很容易出错，而本工程河道横断面绘制具有规律型，很适合采用VBA实现横断面的自动套绘。

    2横断面自动套绘方法介绍

    在CAD中将河底类型、左岸堤顶、右岸堤顶、水位高程标注做成块。用VBA从txt文件读入断面数据，将以上块插入CAD中指定位置并绘制护坡、标注高程及尺寸，即可形成断面；用VBA从txt文件读人地面线坐标数据，插入指定断面的指定位置后横断面绘制基本完成。

    3实现步骤

    3.1写txt文件

    将已经生成的纵断面数据按桩号对应的河底高程、亲水平台高程、设计洪水位、堤顶高程顺序导出。保存文件，命名为“断面数据.txt”。

    在txt文件添加以下几项：坡脚到河道中心线的水平距离、河底块类型、左岸块名称、右岸块名称，保存文件。生成的txt文件部分截图见图1。 

    3.2在CAD中定义块

    1)断面属性块。将设计的断面类型中河底部分、左岸防汛通道、右岸防汛通道分别制作成需要的块，并命名，名称与txt文件中河底块类型、左岸块、右岸块一一对应。以A型断面为例，河底块、左岸块、右岸块分别见图2-图4。 

    2)标注类块。将水位和标高按常用的形式制作成块（见图5），基点在三角形顶点。分别命名为“sw”和“标高”。 

    套绘程序运行界面见图6、部分代码见图7。此程序自动读取以上txt文件后，在CAD中进行绘图，实现尺寸标注、高程标注、写图名、插入地面线。 

    4不同方法绘制断面的比较

    将写好的txt文件放在指定d盘根目录下。在cad文件中点击菜单栏→工具→宏→VBA管理器→加载，加载程序后，点击Visual BasiC编辑器，进入程序，点击运行后自动进入CAD界面，点击运行按钮，等待程序完成。

    程序绘制的断面取其中一个桩号CO+100.00的断面（见图8）；手绘制的交付施工单位的对应桩号的断面见图9。可见，程序绘制的断面只需把挖填方的边界线按需、按规范添加上之后稍加改动便能达到施工图标准。手工绘制68个断面达到施工图要求需要7d工作时间，而用程序准确绘制68个断面并达到施工图要求只需3d左右，断面数量越多节省的时间越多，效率越高，尤其是方案比选省时高效。 

    5结语

    本文以福建省南平市武夷新区新岭片区河道工程为例，采用VBA语言编写横断面套绘程序快速并准确地将所有桩号对应的断面绘出，进行尺寸标注、标高标注、写图名、插入地面线，正确省时，达到事半功倍的效果。

    6摘要：

    水工河道工程横断面套绘工作繁琐而又不断重复，设计人员在绘制过程中不仅费时费力，而且很容易出现错误。以福建省南平市武夷新区新岭片区河道工程为例，用VBA编制的套绘程序对其进行横断面绘制，并与手绘断面进行对比。实践表明，利用程序来进行横断面绘制效率可提高数倍。