AutoCAD二次开发在公路路产登记中的应用

王振辉

(国家测绘局第七地形测量队，海南海口 570203)

1 引言

公路路产是国家财产，受国家法律保护，任何单位和个人均不得侵占和破坏。公路作为促进社会经济高速发展的基础性设施，在国民经济中的重要作用日益突出。保护公路路产最重要的方面即是对公路路产进行确权登记和建档，它是公路路产管理的前提和基本手段。而公路路产登记资料之一是公路用地权属范围图，图中需要标注道路中心线的中桩以及对应用地范围线边桩的坐标。公路用地权属确认的过程十分复杂，确权部门因多种因素会经常对用地范围线进行更改，如果通过手工对道路中、边桩的坐标进行标注，会因用地范围线的变更而重复做很多工作。因此，通过AutoCAD二次开发，运用程序进行中桩和边桩的坐标自动标注，能很大程度提高工作效率。

AutoLISP作为通用LISP语言的一个小子集，严格地遵循其语法和惯例，又添加了许多针对AutoCAD的功能。通过AutoLISP，用户可以运用适合于编写图形应用程序的强大的高级语言来编写宏程序和函数，并开发出各种软件包。从AutoCAD R14起，Visual LISP就被引入到AutoCAD中，它增强及扩展了AutoLISP，嵌于AutoCAD内部，是一种智能型语言。运用Visual LISP可以灵活方便地增加AutoCAD的新命令，几乎能无限地扩展AutoCAD的功能。Visual LISP没有特殊的硬件需求，能运行AutoCAD即可运行Visual LISP。

本文将通过一个公路路产登记实例介绍Visual LISP在自动标注道路中、边桩坐标工作中的应用，通过编写程序来提高工作效率，避免人工重复、繁琐的工作以及避免手工操作引起的遗漏和错误。

2 AutoCAD二次开发对路产登记工作的必要性

公路路产登记工作中用地权属确认的过程往往会因多种因素经常变更用地范围线，如果用手工对道路中、边桩的坐标进行标注，会导致大量的重复工作。另外路产登记的公路往往是几千米甚至十几千米，道路中心线中桩的标注和其用地范围线边桩的坐标标注，如果按百米来标注，其工作量非常大。因此，通过AutoCAD二次开发，运用Visual LISP程序批量自动处理，能很大程度提高工作效率。

本文通过某市县道X506进行路产登记的工作实例，介绍Visual LISP程序对提高路产登记工作效率的贡献。

3 实例

本程序有三个子程序，分别是自动计算并标注中桩号、求辅助线和用地线交点、用地线坐标自动标注。

3.1 自动计算并标注中桩号

本子程序会生成“道路中心线”、“bak”、“道路桩号”三个图层。将用户选取的多线段放入“道路中心线”层并更改属性。通过用户输入的标注中桩的间距，由中心线的起点开始计算出中桩的坐标，并在该坐标上标注桩号和中桩线，并放入“道路桩号”层。子程序还做了一个为下一步做铺垫的工作，即沿中桩线的方向作延长线，与用地边线相交，并将该辅助线放入“bak”层。

本子程序的部分代码如下:

其中，函数a－get－Angle是中桩线角度的获取程序。

本子程序运行后如图1所示，绿线为道路中心线，红线为用地范围线，黑线为辅助线。

图1 自动标注中桩号

3.2 求辅助线和用地线交点

本子程序利用上一子程序运行后生成的辅助线，计算其与两边用地范围线的交点坐标，并写入文件。这是为下一步的用地范围线对应中桩的边桩进行坐标标注做准备。

本子程序的部分代码如下:

3.3 用地范围线坐标自动标注

本子程序利用上一子程序计算出的交点坐标，对用地范围线对应中桩的边桩进行坐标标注。程序先根据交点坐标作用地线的垂线，坐标引线是由用户输入字体的大小按比例画，坐标文字注记是按坐标引线的方向进行标注。

本子程序的部分代码如下:

图2 成果图

本实例最后成果如图2所示(因篇幅原因只显示部分图面成果)。由于本程序标注的坐标是由计算得出并赋值标注出来，所以避免了人工标注坐标时出现捕捉错点位的情况。

4 结语

目前，在各工程设计单位中AutoCAD已经得到普及应用，Visual LISP对于拓展AutoCAD的功能具有重要意义。本文通过一个公路路产登记实例说明Auto-CAD的二次开发在实际工作中发挥着重要的作用，充分说明在工程设计工作中结合本专业要求开发一定功能的Visual LISP程序可以有效降低工作人员的劳动强度，从而使AutoCAD不仅仅是绘图工具，而真正成为设计人员得心应手的高效设计平台。

［1］李长勋.AutoCAD Visual LISP程序开发技术［M］.北京:国防工业出版社，2005

［2］陈伯雄，冯伟.Visual LISP程序设计—技巧与范例［M］.北京:人民邮电出版社，2002

［3］康博创作室.Visual LISP实用教程［M］.北京:人民邮电出版社，1999

［4］汤峻.AutoCAD2000高级应用与Visual LISP开发宝典［M］.北京:人民邮电出版社，2001

［5］GB/T 20257.1－2007.1 ∶500、1 ∶1000、1 ∶2000 地形图图式［S］

［6］米桂杰.AutoCAD在公路路线绘图中的应用［J］.企业技术开发，2010，29(5)