LISP语言和Word的邮件合并功能在地籍调查中的应用

徐 阳,王鹏程,王子健

(1.山东省煤田地质局第一勘探队,山东 青岛 266555;2.山东泰山技师学院,山东 枣庄 277500)

0 引 言

农村地籍调查是国家推出的明确农村住房和宅基地产权归属、保障农民合法权益、深入推进农村制度改革的一项重要举措,其具体工作需要深入每家每户,测量每个房屋的界址点,确认房屋的所属权利人并调查权利人的身份信息等。测量调查工作量十分庞大,在后期整理数据需要大量的人工筛选和图形编辑绘制等工作[1-2]。

农村地籍调查宗地数量庞大,使用传统的技术方法需要大量的人工操作,工作效率低下,急需一种新的方法提高工作效率。本人在工作中发现地籍调查的数据结构具有一定的共性,研究出一种通过运用Word邮件合并功能将CASS 8.0导出的宗地属性中的数据直接导入地籍调查表格中[3-4],并进行了批量打印,大大缩短了人工填写的时间。

在CASS 8.0生成的单张宗地图中,发现所生成的图形仍旧需要大量的人工调整,其调整步骤具有一定的统一性和顺序性,LISP语言是一种基于CAD基础上发展的具有人工智能的汇编语言,编程方式简单且针对性强,利用在CAD基础上的二次开发的LISP语言简化CASS 8.0生成的宗地图的修改步骤,替代了手动修改宗地图的过程,提高了修改宗地图的效率与质量,降低出错率,该种方法在保证质量的前提下有效的提高了宗地图的输出速度,在正常修改宗地图速度下每人每日最多处理25张图的情况下,将修改宗地图速度提高到了每日200张左右的速度,使地籍调查工作更加科学、便捷。本文首次提出利用在CAD基础上的利用LISP语言对宗地图进行批量的修改并分类,大大提高了修改宗地图的效率[5-10]。

1 地籍调查中Word邮件合并功能和LISP语言的应用

1.1 使用传统方法生成地籍调查成果

在地籍调查中发现,每户宗地需要采集以下信息并填入地籍调查表中,如表1所示。

表1 地籍调查表所需信息

例如一个500户左右自然村,如果采用人工手动填写,需填写的数据可达上万处。

根据《第三次全国国土调查技术规程》(TD/T 1055-2019),在野外测量数据采集后,在CASS中根据规程要求设置好成图模板后,通过CASS 8.0的成图系统批量生成的单张宗地图(图1),需要通过大量的人工修改整理调整等工作才能符合标准(图2)。

图1 CASS自动生成的原始宗地图样式

图2 宗地图人工修改操作步骤流程图

在所生成的图形中,需要大量的重复性的处理工作。在有限的时间内整理出完整的资料需要大量的人工操作,工作效率急需提高。

1.2 使用Word的邮件合并功能和LISP语言生成地籍调查成果

1.2．1 使用Word邮件合并功能自动化填充地籍调查表格

在使用Word邮件合并功能后仅仅需要以下几个简单的步骤(图3)即可自动化填充地籍表格并完成批量打印的操作,极大提高了工作效率。

图3 邮件合并功能自动填充地籍调查表步骤

具体操作步骤如下(以Word2019为例):

(1)将数据整理成表1的格式,并保存为1.xls。

(2)使用Word 2019打开空白的电子版的地籍调查表,点击“引用”,点击最右侧的邮件;点击“打开数据源”,选择桌面1.xls,选择sheet1,点击“确定”。

(3)将光标放在需要填写姓名的空格内,点击“插入合并域”弹出如图4(a)所示对话框,点击“姓名”,点击“插入”,即可将姓名这一列中所有内容合并与地籍调查表中。

图4 地籍调查表自动填充

(4)重复以上步骤,分别将证件编号、土地坐落等内容插入地籍调查表中,生成如图4(b)所示内容;点击“查看合并数据”即可查看每一位宗地权利所属人的地籍信息。

(5)点击“合并到打印机”即可对所生成的地籍调查表进行批量打印。

利用以上方法,同样可以解决申请书的批量填写问题,大大节省了人工填写的时间。

1.2．2 使用LISP语言批量处理地籍调查中的宗地图

本项目提出利用在CAD基础上的二次开发的LISP语言简化CASS 8.0生成的宗地图的修改步骤,替代了手动修改宗地图的过程,提高了修改宗地图的效率与质量,降低出错率,该种方法在保证质量的前提下有效的提高了宗地图的输出速度,在正常修改宗地图速度下每人每日最多处理25张图的情况下,将修改宗地图速度提高到了每日200张左右的速度,使地籍调查工作更加科学、便捷。调整后的图形如图5所示。

图5 通过LISP小程序批量处理后的宗地图

具体可以通过LISP语言调整部分如下:

(1)宗地代码由未修改的编号改为本宗地权利人编号并变为规定的字体。

(2)土地权利人的姓名由未填写变为本宗地权利人姓名并放在对应的位置。

(3)所在图幅号调整位置后并改为规定的字体。

(4)宗地面积由未填写变为本宗地的面积并填写到对应的位置。

(5)宗地图的四至由未填充变为自动填充到对应的位置。

(6)对相应的红色权属线进行前置处理。

(7)删除左上角的参考四至以及左下角解析界址点上自动生成的日期。

(8)将权利人的姓名以及宗地代码填充到图形中间正确的位置。

(9)对围墙线有交叉出错的部分进行自动修剪并删除。

(10)删除界址线以外的其他邻宗的界址点,只保留界址线的部分。

(11)对生成的新的宗地图按照比例进行重新命名。

(12)对经过人工再处理后的宗地图进行分类并分文件夹放置,并生成宗地草图。

为解决以上问题,本文通过研究LISP语言,利用宗地图权属线属性中的数据,编辑小程序对以上问题进行批量处理,并将同一比例尺的宗地图存放在同一文件夹内。

LISP语言是在CAD的基础上二次开发的语言,可以运用到任何以CAD为基础开发的软件中,如CASS 8.0中,下面以填写宗地代码、宗地所在图符号。宗地面积为例,简要说明批量处理的步骤(图6)。

图6 批量处理程序代码

本文通过编写能够对宗地图进行批量处理的LISP程序,使其在CASS 8.0的环境中正常运行。采用该程序后的处理过程如图7所示。

图7 运行LISP程序后的宗地图修改步骤

通过LISP程序处理后的宗地图替代了人工操作的很多步骤,无邻宗的单张宗地图甚至无须任何处理。通过人工进一步修改后即可进行批量打印操作。在提高修图正确率的同时,速度由单人修图日均25份的提升至单人修图日均200份左右,工作效率得到大大的提升。

2 结 语

本文通过LISP和Word的邮件合并功能实现了地籍调查成果的自动化输出,提高了输出效率与质量,得到了如下结论。

(1)利用Word邮件合并功能,可以批量打印同一文本框中不同内容的地基调查表,节省了大量的人工填写时间,降低了出错率。

(2)运用LISP编程语言对生成的宗地图进行批量预处理,完善了CASS 8.0在宗地图的绘制,极大的提高了工作效率和工作质量。

未来的地籍调查相关工作将会越来越自动化,软件化,代替人工操作提高工作效率。