LISP语言在宗地界址点成果表的应用

摘要：在农村土地确权发证的项目中，要求每一个社制作社宗地界址成果表，在工作中利用AUTOCAD的内部编程语言AUTOLISP开发实用小程序，解决生成社宗地界址点成果表的难题，提高作业效率。文章介绍了如何在南方CASS中生成社宗地界址点成果表TXT数据文件。

关键词：AUTOLISP；界址点成果表；顺时针；逆时针；折线距离

中图分类号：TP391 文献标识码：A 文章编号：1009-2374（2013）15-0037-04

1 概述

全国正在大范围开展农村土地确权发证项目，要求对每个村民小组进行宗地图、宗地界址点成果表的制作，从而进行土地申报，发放土地证。本文介绍如何在南方CASS中生成社宗地界址点成果表TXT数据文件。

2 问题的提出

在农村土地确权发证的项目中，要求每一个社制作社宗地界址成果表，由于每个社宗地界址线端点太多，只需在主要拐弯处设置界址点，其余界址线端点不设置界址点，界址点号按顺时针方向进行编号，界址边长取界址线折线边长。在南方CASS地籍图上自动生成界址点成果表TXT文件就会碰到以下四个问题：

（1）界址线不一定是以顺时针方向进行绘制的。

（2）界址点起始点位置的确定。

（3）哪些端点上有界址点及界点圆圈。

（4）如何求取两界址点间在界址线上的折线距离。

针对以上问题，采用AUTOLISP语言编制程序进行处理，包括以下两个子程序和一个主程序。

3 判断界址线方向（子程序DDXFX）

上面vlax-curve-getDistAtPoint函数求取曲线从开始点到指定点的曲线段的长度，差值dis则为两点间的曲线段长度，但如果曲线开始点在所求两个点的中间时，则差值dis就不是两点间的曲线段长度，而是闭合曲线长度减去差值dis为两点间的曲线段长度。下面判断当折线距离大于界址线（闭合曲线）总长一半时取小值为两点间的曲线段长度。

6 结语

此LISP程序得到了社宗地界址点成果表TXT文件，工作中一般要求界址点成果表为WORD或EXCEL表格形式表示，笔者采用VB程序对TXT数据进行再处理生成EXCEL表格文件。以上程序人工干预较少，基本上达到了自动处理的效果，减少人为因素造成数据错误，提高了作业效率。

参考文献

[1] 黎新懿，赵景亮.用Visual LISP开发AutoCAD2004应用程序[M].北京：科学出版社，2003.

[2] 方戈亮，孙力红.Visual+LISP程序设计（AutoCAD+2006）[M].北京：清华大学出版社，2006.

作者简介：邹富生（1977—），男，重庆人，国家测绘地理信息局重庆测绘院工程师，研究方向：大比例尺数字图测绘与技术应用。