搞要：文章基于纬地三维道路CAD系统开发的垂直于路线方向标注的桥涵构造物文字，结合软件本身、Autolisp的二次开发及Excel开发的桥涵构造物标注方法。
　　关键词：纬地道路；桥涵标注；Autolisp开发；VBA开发
　　概述
　　桥涵构造物标注，是平面和总体图中重要的构造物标注。纬地三维道路CAD系统具有标注桥涵构造物标注的功能，在图中标注是带引线构造物平行于路线的方向，在桥涵构造物较多的情况下，会出现文字重叠的现象，需要进行手工移动，调整图面。因此，开发一个垂直于路线的构造物标注程序，有着重要的现实意义。
　　结合纬地道路、Autolisp及Excel VBA开发的桥涵构造物标注方法，有效地解决了构造物重叠现象，大大缩短了修改图面的时间，提高了绘图效率。因此，笔者开发了“LISP桥涵构造物垂直标注”程序。
　　两种标注方法图面比较
　　（1）纬地软件本身桥涵桥造物，如下图所示：
　　（2）采用“LISP桥构造物垂直标注”标注的构造物，如下图所示：
　　比较：从上面两幅图中可以明显看出采用采用“LISP桥构造物标注程序”明显比纬地软件本身标注的美观的多。
　　程序开发思路及方法
　　根据路线走向、实地调查及相关计算，确定好桥涵的桩号、斜交角度、跨径、结构型式后，即可以进行桥涵标注前的数据准备。最终的绘图数据格式：”桩号，北坐标（N），东坐标（E），标注角度D，跨径，结构型式（利用状况）”
　　（1）根据桩号计算坐标
　　使用纬地道路工具→坐标高程→坐标文件计算坐标。坐标文件采用支距的格式：桩号，斜角，距离。
　　可从计算的数据中可以提取所需坐标。
　　（2）计算构造物图块标注角度
　　根据纬地逐桩坐标表，计算各逐点间方位角，再依据方位角确定图块角度。
　　使用纬地道路表格→输出逐桩坐标表→指定桩号间距（包含曲线要素桩）间距 5 米→数据文件（文本格式）。
　　计算得出逐桩坐标表后，可根据相邻两点计算方位角，将以前數据复制至Excel中，按空格进行分列。可采用Excel VBA进行定义方位角的函数，便可快速求出方位角F。桥涵构造物块标注角度计算公式：标注角度D=360°-（F-180°）
　　到此，基本数据格式已基本完成。下一步进行属性块块的制作。
　　桥涵构造物属性块的制作
　　在AutoCAD中，用att命令创建属性块，要求定义文字属性的有桩号（桥梁桩号与桥梁名称在同一行）、跨径及结构类型。
　　LISP语言开发绘图程序
　　以上基本数据及属性块做好后，需要Autolisp语言进行二次开发，进行批量绘图。
　　LISP代码如下：
　　加载以上代码后，快捷键为QHBZ（桥涵标注简称）命令运行该程序，即可绘制出桥涵构造物文字标注。
　　本程序批量绘制桥涵构造物的文字属性块标注的方法，桥涵平面及总体的跨径标注使用纬地的标注。用纬地进行构造物标注时，把软件本身的文字标注及引线批量删除即可。
　　结语
　　“LISP桥涵构造物垂直标注”程序的开发，有效地解决了文字重叠的现象。数据准备好后，可快速精准地绘制出所需要的桥涵构物的文字标注。
　　参考文献：
　　[1]《公路工程基本建设项目设计编制办法》交公路发[2007]358号，人民交通出版社，2007.
　　[2]吴永进，林美樱，AutoCAD完全应用指南，科学出版社，2011.
　　[3]罗刚君，Excel VBA程序开发自学宝典，电子工业出版社，2011.
　　作者简介：
　　许迎春（1988-），男，安徽合肥人，助理工程师，从事道路设计工作。