高鹏远河北省煤田地质局物测地质队

Autolisp程序在土地确权内业工作中的一些有效应用

高鹏远
河北省煤田地质局物测地质队

基于Autolisp语言设计的程序，能高效便捷的解决土地确权内业工作中的相关问题。

土地确权；Autolisp Autocad

现在我国正在大范围开展农村土地确权项目，在外业测量工作完成后，还有大量重复繁琐的内业工作，主要会遇到宗地界址坐标提取问题、拓扑问题、以及宗地归属信息与地块的匹配问题。Autolisp是cad的内置语言，利用lisp语言开发的一些程序可以有效的解决土地确权内业处理过程中的一些实际问题，极大的缩减了内业工作量，降低成本，创造财富。

1、利用autolisp程序获取宗地所属界址坐标点

宗地界址坐标在cad中查看时比较繁琐，而且宗地数量很多，挨块查看费时费力，利用lisp程序可以批量提取。

主要代码如下：

这样可以将宗地所属界址坐标点加入到pl这个集合当中，可利用上述程序制作宗地界址成果表。

2、利用宗地所属界址坐标点获取宗地边界线坐标，从而解决拓扑错误

对于宗地来说，宗地的一条边只能在图上出现两次，我们在获取宗地边界线坐标后，只要与图上其他宗地的边界线作数量对比，如果数量小于两次，宗地肯定有缝隙、重叠、悬挂等拓扑错误。如果数量超过两次则肯定是重复边界。

获取宗地边界线坐标主要代码如下：

3、利用宗地所属界址坐标点检查图中宗地内文字是否出框及压盖问题

在图上每块宗地内都会有户主姓名、实测亩数、/、合同亩数4个文字，在文字录入过程中可能会存在文字过大出框压盖到相邻地块中，以及宗地内出现2个相同文字互相压盖的问题，由于每个村宗地数量众多，挨块宗地查看费时费力，在获取宗地所属界址坐标点后，利用lisp的窗选功能，将宗地内文字加入到一个选集当中，然后查看选集的数量是否为4，如果不等于4说明存在上述问题。

主要代码如下：

通过我们在项目中的实际应用，上述程序能极大的缩减内业的工作量，并且错误率极低，可以减少人工处理的繁琐工作，给土地确权数据处理工作带来很大的便利。

[1]吴永进，林美樱.AutoCAD程序设计魔法书，2002(12)