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

本文主要是介绍关于国土系统中二调地类权属汇总统计问题，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

第一章项目背景

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 土地利用现状分类》进行代码编写。通过此步操作，可将“三大类名称”属性加入二调数据库中所有图斑。