祁祥礼

【摘 要】本文针对水文测验潮流数据绘图时间长，大量重复性工作等问题，通过Excel VBA编程语言，批量写入AutoCAD脚本文件，实现自动化绘制潮流羽状图。

【关键字】Excel VBA ；AutoCAD；潮流羽状图

中图分类号： TP391.72 文献标识码： A 文章编号： 2095-2457（2018）14-0063-002

DOI：10.19694/j.cnki.issn2095-2457.2018.14.027

Using Excel VBA to realize power flow feather diagram in AutoCAD

QI Xiang-li

（Tianjin water transport engineering survey and Design Institute Tianjin Key Laboratory of water transport engineering surveying and mapping， Tianjin 300456， China）

【Abstract】In this paper， in view of the long time of drawing the tidal current data and a lot of repetitive work， this paper writes the AutoCAD script file in batch through the programming language of Excel VBA， and realizes the automatic drawing of the tidal plume.

【Key words】Excel VBA； AutoCAD； Tidal plumes

0 引言

随着计算机硬件和软件技术的发展，各种编程及绘图软件应运而生，大大提高了绘图效率和美观度，在水文数据的成果展示中，Surfer、Tecplot、mapinfo等软件都得到了广泛的应用[1]，但有些观测的数据，如潮流、余流、悬沙粒径级配曲线的绘制，绘图处理非常复杂。

以绘制潮流羽状图为例，数据一般存储于excel表格中，再利用AutoCAD根据数据进行矢量绘图，绘图操作简单，但报表中数据量大，手动绘制重复劳动多，耗时长，效率较低，且容易出现错误，此外，这种绘制方式因个人绘图习惯不同，没有统一的出图标准，随意性大。

AutoCAD提供SCR文件、DXF文件和AutoLisp等多种接口方式[2]，其中SCR文件为脚本文件，可批量写入绘图命令，解决重复劳动的弊端，本文即利用Excel VBA编程语言，编写代码程序将潮流数据循环写入SCR文件，方便AutoCAD程序调用。

1 图形各要素的绘制方法

潮流羽状图包含潮流矢量起点位置、流速、流向、箭头、坐标轴及其刻度标注、比例尺及其刻度标注、图名等要素组成。采用Excel VBA向脚本文件中写入的相应要素的命令分为画圆、线段、文字标注等命令，各要素涉及到的命令如下。

2 程序的实现

基于Excel成果报表，通过VBA编程语言，将羽状图各组成要素以AutoCAD的命令格式批量写入SCR文件。代码中采用的函数命令：

表1 潮流……