AutoLisp结合Excel实现地类面积计算与统计自动化

刘先武, 余继锋

(湖北省地质局 第八地质大队,湖北 襄阳 441002)

AutoLisp结合Excel实现地类面积计算与统计自动化

刘先武, 余继锋

(湖北省地质局 第八地质大队,湖北 襄阳 441002)

通过实例论述应用AutoLisp语言程序结合Excel实现地类面积计算和统计自动化,分析常规方法与本方法的差别,获得了一些有实用价值的经验和程序,提出了地类面积计算和统计中值得注意的几个问题,具有一定的应用价值和进一步研究开发意义。

AutoLisp;地类面积；计算；统计;自动化

在土地整理项目测绘和地籍测量工作中,后期地类面积计算和统计工作量大,所需工时占项目总工时的1/4以上。以土地整理项目测绘为例,按一个行政村500个地块核算,加上道路、水系、居民地等地类,需统计的地块达到1 000个左右;而一个土地整理项目少则十几个村,多则达百余个村,地类面积计算和统计工作量很大,采用常规方法计算与统计极其繁琐,容易错、重、漏,精度不高。

AutoCAD是计算机上广泛应用的绘图软件[1],其绘图功能十分强大,国内以其为操作平台的数字化测图软件如南方CASS系列、励精思系列等已十分普及。而AutoCAD内嵌了编程功能——AutoLisp语言,利用该编程语言编写插件程序,可自动处理繁琐的重复工作。数字化地形图上地块面积的自动计算便是其中一例。

Excel是个人计算机上普及的数据电子表格软件,其统计功能十分强大,并且带有一般的函数功能和简单的逻辑编程功能。将编写的AutoLisp地块面积计算程序和Excel的自动统计功能结合起来,可以实现土地整理项目测绘中地类面积计算和统计的自动化。

本队2011年和2012年在老河口市仙人渡镇、薛集镇及李楼办事处三个土地整理项目测绘工地应用此方法,高效完成了后期繁琐的计算及统计工作,统计精度高,无重复遗漏,工作效率得到极大提高。

1 常规方法与本方法的差别

(1) 数字化地形图上地块面积计算一般采用先手工用闭合的PL线将要计算的地块圈出,再用CAD的对象特性查询功能查询PL线闭合多边形的面积,然后在图上标注地类和面积。而计算线状地物(如单线沟渠、单线乡村路等)的面积要先量出线状地物长度,再用计算器根据其宽度算出面积,标注在图上。这种方法有如下弊端:①容易重算、漏算地块及线状地物。②作闭合PL线及查询线状地物长度工作量大,且精度不高。③数据标注需手工进行,工作量大且繁琐。④数据提取采用一人读图另一人录入,容易错、重、漏,不便于统计。

(2) 采用本文所述的方法,地块面积计算只要所选地块是封闭的(不要求闭合),AutoLisp程序将对该地块进行自动节点寻址计算,自动标注地类和面积。同样,对线状地物、输入宽度、程序、自动节点,寻址计算该线状地物长度后计算其面积并标注。本方法有如下优点:①工作效率大大提高。②数据自动标注,无重复遗漏。③运用程序的数据自动提取功能,数据可以自动提取,生成数据文件,便于用Excel进行分类统计。④计算与统计无错、重、漏,精度显著提高。

2 程序使用步骤及注意事项

2.1 使用步骤

(1) 首先在数字化地形图上建立“面积”图层。

(2) 加载AutoLisp程序(appload命令)。

(3) 计算地块面积(mj命令)和线状地物面积(mjl命令),按程序提示输入相应内容。

(4) 关闭其它图层,仅保留“0”层和“面积”层,进行数据提取(tq命令),存盘(存为*.txt文件)。

2.2 注意事项

(1) 地块应封闭,不能有虚交的缺口,这是起码的数学要求,如图1,1、2、3地块可以计算,4地块不能计算。

图1 地块封闭示意图Fig.1 Schematic diagram of block sealing

(2) 地块内有不同地类的孤岛,孤岛面积需另行计算,同时孤岛外地块面积应标注减去孤岛面积后的数据(图2)。

图2 孤岛示意图Fig.2 Schematic diagram of isolated island

(3) 当少数不规则地块节点太多时,计算速度减慢,应用直线划小地块,使其成几个节点较少的地块分别计算后汇总标注。

(4) 为提高计算机运行速度,计算地块面积时可关闭不需面积计算的相应图层,亦可逐个图层打开计算。植被符号一个地块注记一个即可,待面积计算完毕后再补充注记。

3 Excel统计

用Excel打开提取数据时保存的*.txt文件,按字母进行排序,这样各地类将集中到一起,根据不同地类剪切到不同的列,然后用Excel的替换功能,用空白或无字符替换掉数字前的各地类代码(如ST,HD等),剩下的数字就是地块面积,最后进行统计。

因Excel已十分普及,其详细的使用方法不再赘述。

4 地类代码表的编制

地类面积数据自动计算和统计,地类代码编码很重要。按照地籍测量规范和土地开发整理标准的分级分类原则,地类代码编码为数字型;本着方便记忆及实用便利的原则,本队采用汉语拼音首字母编码,遇重复编码将不常见地类编码另编。各单位可根据自身使用习惯和各项目区地类分级分类情况依照地籍测量规范和土地开发整理标准的原则灵活掌握。自动统计完成后在数字化地形图上统一替换成数字型编码。

下面是本队在老河口市仙人渡镇土地整理项目采用的地类代码编码,供参考。

地类编码表(部分)

(1) 农用地(NYD)。

Ⅰ耕地(GD):水田(ST)、旱地(HD)。

Ⅱ园地(YD):果园(GY)、菜园(CY)。

Ⅲ其它农用地(QTNYD):农村道路(ND)、坑塘水面(KT)、农田水利用地(NS)。

(2) ……

5 应用评价

在具体应用方面,本方法经2011年和2012年在老河口市仙人渡镇、薛集镇及李楼办事处60多个村分村地类面积统计的应用,都有很好效果,工作效率提高5倍以上,统计精度提高2倍以上。具有较高的应用价值。

虽然作者编制的AutoLisp程序主要是配合土地整理项目测绘中的地类面积统计所用,但由于AutoLisp程序是开放型的,稍加改进也可用于其它方面的面积计算和统计。如2014年在农村宅基地确权登记发证项目中,应用本方法作样方统计,工作效率和统计精度都比采用常规方法提高3倍以上。同样,在城市规划测量、国土、森林调查及新农村建设等方面,结合其它编程语言也可开发出相应的地类面积统计系统软件,因而具有进一步研究开发意义。

[1] 徐泮林.数字化成图—AutoCAD地形图测绘高级开发[M].北京:地震出版社,2004.

(责任编辑：陈文宝)

Realization of Calculation of Area Data and Statistics Automation by AutoLisp with Excel

LIU Xianwu, YU Jifeng

(EighthGeologicalBrigadeofHubeiGeologicalBureau,Xiangyang,Hubei441002)

The paper illustrates the application of AutoLisp program with Excel to realize calculation of area data and statistics automation,analyses the difference of the normal method and this method ,get some valuable experiences and procedures,and puts forward some problems worthy of attention in calculation of area data and statistics ,has certain application value and further significance of research and development.

AutoLisp; area data; calculation; statistics; automation

2015-12-31;改回日期:2016-01-02

刘先武(1967-),男,工程师,测绘工程专业,从事精密工程测量(变形监测)及地籍测绘工作。E-mail:13871748690@163.com

P218; TP39

A

1671-1211(2016)02-0242-02

10.16536/j.cnki.issn.1671-1211.2016.02.023

数字出版网址:http://www.cnki.net/kcms/detail/42.1736.X.20160303.1056.004.html 数字出版日期:2016-03-03 10:56