农村土地承包经营权项目中基于AUTOLISP开发交互式地块四至关系调查填写插件的研究

农村土地承包经营权项目中基于AUTOLISP开发交互式地块四至关系调查填写插件的研究

敬文涛王光虹

四川省地质矿产勘查开发局测绘队

摘要：在农村土地承包经营权确权项目中，承包地地块四至关系调查填写的工作量十分巨大，成为农村土地承包经营权确权项目的主要工作量之一。本文通过基于AUTOLISP编写交互式地块四至关系调查填写插件来提高农村土地承包经营权登记项目中的四至关系调查填写效率，保证正确率。

关键词：承包经营权；四至关系；填写；插件

引言

开展农村土地承包经营权登记，是保持现有土地承包关系稳定并长久不变、维护农民土地承包权益，加强农村社会管理的重大举措。目前全国的农村土地承包经营权登记工作正在全面铺开。做优做实农村土地承包经营权确权登记项目，既是测绘单位的经济增长点，也能为四川农村经济发展夯实基础。在开展农村土地承包经营权登记工作中，承包地地块的四至关系调查和填写是一项重要工作。然而一个县级农村土地承包经营权项目中的承包地地块数量可达到几百万至数千万，导致承包地地块四至关系调查和填写数量巨大。下面研究通过基于AUTOLISP编写交互式地块四至关系填写插件程序的方式来提高农村土地承包经营权登记项目中的四至关系调查和填写效率。。

一、当前承包地地块四至关系填写的几种方法对比：

当前承包地地块四至关系填写主要有二种方法。第一种方法是用图形软件打开图形，人工对照图形将地块的四至关系填写到表格中。这种方法容易填写错别字，并且效率低，人均一天能填写约300个承包地地块的四至关系。第二种是采用相关数据库软件提取承包地地块四至关系的方法。这样方法只能将相互靠在一起的承包地地块的四至关系自动提取出来，但该地块没有相邻地块或同一方向有多个地块，就无法准确提取地块的四至关系。由于承包地块间一般都被较宽的田埂分割开（特别是在丘陵和山区的梯田梯地更为突出），导致大量承包地块的四至关系不能自动提取出来，需要后期人工逐个地块检查和补填四至关系，综合下来这种方法的效率很低。二种方法各有优缺点，但都效率不高，不能适应当前项目的生产的需求。

二、交互式四至关系填写方法的思路：

既然二种方法各有优缺点，能不能找到一种折中的方式来提高农村土地承包经营权登记项目中的四至关系调查和填写效率。上述的第一种方法的缺点是文字输入影响速度且易漏易错，第二种方法的缺点是大量地块的四至关系不能自动读取，后期人工补填很慢。通过思考，我们想到一种人机交互式地块四至关系填写的方式。

所谓人机交互的方式就是地块四至关系的判读通过人工的方式进行，做到四至判读准确，而表格的填写和记录由程序自动完成，做到不错不漏。即只需人工在图面点选地块相应的四至关系，程序将点选的地块的四至关系自动填写到相应的表册中，并将已填写四至关系的地块在图面做标记。这样一个地块的四至关系的调查和填写只需用鼠标在图面点一点完成了，就能大幅度提高工作效率，同时由程序将点选的地块四至关系自动填写到相应的表册中，能保证地块的四至关系的调查和填写不漏不错。既然思路可行，剩下的就是通过基于AUTOLISP开发交互式地块四至关系填写的插件来完成相应功能。

三、交互式四至关系填写插件的实现：

1、CAD图面整理：

CAD图面整理是指调查和填写地块四至关系前的整理准备工作，主要是将地块编号和地块四至属性等表示到图面上，便于人工判读和点选。关于CAD图面整理的方法很多，这里就不过多描述了，整理后的图面如下：

2、交互式四至关系填写插件的代码编写思路：

交互式四至关系填写插件，要实现将点选的图面四至关系写到相应表册中，并作相应标记。我们规定从图面调查和点选地块的四至关系的顺序为地块编号-东至-南至-西至-北至，插件程序按照规定的顺序将地块编号及其四至关系填写到相应的表册中，并将四至关系填写完整的地块的编号颜色改成红色作为已调查地块标记。不过在实际操作中，我们还会遇到另一种情况，地块的四至相邻为未调查整理属性的地物如林地、道路、房屋等在图面上没有地块四至属性。这种情况我们可以通过手工输入四至关系或将常见的四至关系预先编辑在程序中供选择。

3、交互式四至关系填写插件的程序代码：

插件程序的编写思路已经很详细了，代码也不复杂，下面就简单的分析一下代码。

（princ"交互式四至关系填写插件，执行命令为：txsz"）

（defunc：txsz（）

（setvar"osmode"0）

（setvar"cmdecho"0）

；定义pd1、pd，加上一个循环一句，用于是否连续填写地块的四至关系。

（setqpd1"No"）

（setqpd"Yes"）

（while（/=pdpd1）

；定义并以追加方式打开填写地块四至关系列表的txt文档。

（setqf（open"d：/temp/四至列表.txt""a"））

；点选读取准备填写四至关系地块的编号并将编号写入四至关系列表的txt文档。

（setqe1（car（entsel"\n请选择地块编号："）））

（setqe（entgete1））

（setqdkbh（cdr（assoc1（entgete1））））

（princdkbh）

（princ"\n"）

（princdkbhf）

（princ"，"f）

；点选读取地块四至关系中的东至，并判断点选的是文字内容还是非文字内容。如果是文字内容，则认为是要选取的东至内容，如果是非文字内容，则提供：水田、旱地、林地、道路、房屋、池塘、其它等7项选择，如果选择其他，则人工输入需要的东至关系。将调查的东至写入四至关系列表的txt文档

（setqe2（car（entsel"请选择东至："）））

（setqpd2（cdr（assoc0（entgete2））））

（if（=pd2"TEXT"）

（setqdkbh（cdr（assoc1（entgete2））））

（progn

（setqzh1（getint"\n请选地类：1：水田，2：旱地，3：林地：4：道路，5：房屋，6：池塘，7：其它。"））

（cond（（=zh11）（setqdkbh"水田"））

（（=zh12）（setqdkbh"旱地"））

（（=zh13）（setqdkbh"林地"））

（（=zh14）（setqdkbh"道路"））

（（=zh15）（setqdkbh"房屋"））

（（=zh16）（setqdkbh"池塘"））

（（=zh17）（setqdkbh（getstring"\n请输入内容："））））））

（princ"\n东至为："）

（princdkbh）

（princ"\n"）

（princdkbhf）

（princ"，"f）

……

然后按南、西北的循序编写同东至一样的代码，这里就不复述了。

……

；将已完成四至关系填写的地块的编号改成红色。

（setqe（cons（cons621）e））

（entmode）

（closef）

（initget"YesNo"）

（closef））

四、交互式四至关系填写插件的使用演示：

我们将编写好的插件程序通过CAD的APPLOAD命令进行加载，根据提示输入命令txsc，然后根据命令行的提示就可以开始调查和填写地块的四至关系了。

在输入txsc命令后，命令行会提示“请选择地块编号：”根据提示在图面点选准备填写四至关系的地块编号，这里我们点选“00274”。点选后命令行会提示“请选择东至：”根据提示在图面点选00274号地块的东至地块（00254号地块）的四至属性，这里我们点选“熊启才（地）”，点选后命令行会显示我们“东至为：熊启才（地）”，并提示“请选择南至：”。可以看出00274号地块的南至没有相邻的地块，无法通过点选地块的四至属性来填写四至关系。我们在程序中预先编辑了6项常见的选项供选择，这样就需要先在图面点选非文字的图形内容，进入选项界面。在这里我们点选地块的红色范围线就可以进入选项界面了，如图：

00274号地块的南至是房屋，所以我们输入“5”后回车即完成了南至的填写，命令行会显示“南至为：房屋”，并提示“请选择西至”。00274号地块的西至有地块相邻，点选地块的四至属性“熊启平（地）”就可以了。命令行会显示“西至为：熊启平（地）”，同时命令行提示“请选择北至：”。可以看出00274号地块的北至没有相邻的地块，无法通过点选地块的四至属性来填写四至关系，同时00274号地块的北至是本组空地，在程序预先编辑的6项常见选项中也没有选项，但是在选项中有“其它”选项，我们试试。我们点选地块的红色范围线就进入选项界面。我们输入“7”选择“其它”选项后回车，插件程序不是把“其它”作为地块的北至写进表册，而是在命令行提示“请输入内容”，如图：

在命令行提示“请输入内容”时，输入我们想要的四至关系，在这里我们输入“本组空地”后回车，就完成了地块北至的填写，并在命令行会显示“北至为：本组空地”。同时由于填写完北至后就完成了一个地块的四至关系的调查和填写，所以程序自动将该地块的地块编号改为红色作为标记，并在命令行提示是否继续录入四至。如果我们输入“Y”就继续下一个地块的四至关系的调查和填写，如果输入“N”就退出程序。这样通过交互式四至关系填写插件点选的四至关系就可以在d：/temp/目录下形成一个四至关系列表，四至关系列表如下：

五、结束语

基于AUTOLISP编写的交互式地块四至关系填写插件的应用可以大幅度提高生产效率，在保证正确率的情况下达到人均一天能填写约2500个地块的四至关系，是其它方式的8倍以上。同时插件还可以根据项目要求作相应的修改以适应项目的需要，例如增加提示、查错、报错等人性化的环节以进一步提高工作效率。该插件能有效降低农村土地承包经营权项目的生产成本和缩短项目工期。目前已在我单位的农村土地承包经营权项目中大量使用。