赵志清

（呼和浩特铁路局 建设管理处，呼和浩特 010010）

AutoCAD VBA办公自动化程序应用实例
——排水流向标注程序

赵志清

（呼和浩特铁路局 建设管理处，呼和浩特 010010）

本文介绍AutoCAD VBA办公自动化应用实例—排水流向标注程序的设计思想、设计过程以及使用说明等相关内容。对创建形文件、创建线形、自动标注等内容进行了详细描述。

AutoCAD VBA；办公自动化；线形；形文件

线路路基应有一个完整、畅通的排水系统。设计者要综合平面图、纵断面图、横断面图的设计，配合桥梁、涵洞、站场的排水设施，考虑地质、地形、气候等因素，设计排水系统。排水系统图的设计是在线路平面图的基础上，利用排水线勾画出排水系统中水沟的位置、长度，并标注坡度和标高。

排水系统设计完成后，生成排水表。排水表中包括水沟的起讫里程、长度、最小坡度、起止点高程等内容。将排水表的数据体现在平面图中即排水系统平面图。此项工作含量较低却十分繁琐，浪费设计者大量的时间，且容易出错。

现在，使用排水流向标注程序可以解决这一问题。它可以自动标注水沟长度和坡度、流向箭头、起讫里程处的高程，便捷高效。

1 程序设计思想

1.1 线型

排水系统图的惯例要求排水线既要标示水沟的起讫历程、长度，还要标示水流的流向。通常采用单侧箭头作为线型的单元，如图1所示。

图1 线型单元示意图

实现上述线型的方法有3种：

（1）复制法

这种方法简单但是繁琐，用户需画出一个箭头并不断复制完成排水线的绘制。……