关于国土系统中二调地类权属汇总统计问题

第一章 项目背景

1.1 项目背景

       在国土系统中，往往需要统计相关地块的土地利用现状地类及权属，地类信息依据第二次全国土地利用现状调查成果及每年进行年度变更后的更新成果（以下简称二调），权属信息依全国农村集体土地所有权确权成果（以下简称所有权）。二调数据库和所有权数据库是两个独立的数据库，且二调数据库中土地利用现状分类只分到二级类，实际工作中往往要求合并到三大类（农用地、建设用地、未利用地），为方便统计权属地类，需要将现有二调及所有权成果整合到一起。

1.2 工作思路

        通过gis软件将二调数据库与所有权数据库进行整合，将目标地块套合到整合后的数据库，导出目标地块范围内二调地类和所有权成果权属的excel表，然后通过vba代码对excel表进行分类汇总并排版，生成最终权属地类汇总表。

第二章 二调数据库及所有权数据库的整合

2.1 二调数据库信息

                                      （上图为二调现状图及属性字段信息）

上图为二调现状图及现状图中地类图斑的属性表（arcgis软件中操作），DLBM字段即为图斑的地类编码，地类编码为二级类名称（关于地类编码及分类可参考《第二次全国土地调查土地分类》及《GBT 21010-2007 土地利用现状分类》）。操作步骤为：首先在属性表中增加一个字段“三大类名称”，通过gis软件中字段计算器写入二级类转三大类vb脚本，可快速根据二级类代码生成对应的三大类名称，见下图：

vb脚本代码如下：

Dim density
if [DLBM] ="012"Then
density ="农用地"
elseif [DLBM] ="013"Then
density= "农用地"
elseif [DLBM] ="021"Then
density= "农用地"
elseif [DLBM] ="023"Then
density= "农用地"
elseif [DLBM] ="031"Then
density= "农用地"
elseif [DLBM] ="033"Then
density= "农用地"
elseif [DLBM] ="104"Then
density= "农用地"
elseif [DLBM] ="114"Then
density= "农用地"
elseif [DLBM] ="117"Then
density= "农用地"
elseif [DLBM] ="122"Then
density= "农用地"
elseif [DLBM] ="043"Then
density= "农用地"
elseif [DLBM] ="201"Then
density= "建设用地"
elseif [DLBM] ="202"Then
density= "建设用地"
elseif [DLBM] ="203"Then
density= "建设用地"
elseif [DLBM] ="204"Then
density= "建设用地"
elseif [DLBM] ="205"Then
density= "建设用地"
elseif [DLBM] ="101"Then
density= "建设用地"
elseif [DLBM] ="102"Then
density= "建设用地"
elseif [DLBM] ="113"Then
density= "建设用地"
elseif [DLBM] ="118"Then
density= "建设用地"
elseif [DLBM] ="111"Then
density= "未利用地"
elseif [DLBM] ="116"Then
density= "未利用地"
elseif [DLBM] ="125"Then
density= "未利用地"
else
density= "错误"
end if 
此代码根据当地实际地类情况进行编写，当地不存在的二级类地类未写进代码，不同地区应根据实际情况参考《第二次全国土地调查土地分类》及《GBT 21010-2007 土地利用现状分类》进行代码编写。通过此步操作，可将“三大类名称”属性加入二调数据库中所有图斑。

2.2 所有权数据库信息

下图为所有权数据库信息：

所有权数据库中的“QSDWMC”字段即为权属单位名称，若当地所有权数据库中集体土地使用证证号信息，根据工作需要可在所有权数据库中增加属性信息，通过所有权与发证excel表中相同字段（如地籍号或宗地号）进行属性挂接。

2.3对二调数据库与所有权数据库进行属性合并

因地类名称与权属单位名称分别位于两个数据库中，故需通过arcgis的地理处理功能将两个数据库进行相交，生成一个带有二调通过地类名称和所有权权属单位名称的综合数据库。如图所示，该属性表包含三大类名称及所有权权属信息。

第三章 excel VBA编程进行分类汇总出表

3.1 提取地块权属地类信息

将地块坐标（shp格式）导入gis软件中，通过地理处理（相交）功能可生成地块范围内图斑，图斑属性已包含三大类、所有权等字段，之后导出到excel表中，见下图。

3.2 根据原始excel表数据进行vba编程生成地类权属汇总表

通过excel自带vba编辑器进行代码输入并调试，下图为调试代码界面

（此处未展示完整vba代码）代码完成后保存为宏，直接运行宏即可。

3.3 成果展示

下图为宏运行后的表格

经过以上步骤，已实现对地块进行权属和地类统计汇总出表工作。