1、.页眉.页脚1、 投影转换发现三个 shp 文件地图投影不一致问题使用 Data Management Tools / Projections and Transfer / Feature / Project.页眉.页脚选中 Import，导入另外两个图层任何一个都可以.页眉.页脚最后点 ok 就可以啦2、 按照图层属性表某一列，对其按照规定赋值这里要求 建筑村庄等有房子的地方赋值 5林地等 赋值 1田地、灌木等 赋值 3 保护区 赋值 1水 赋值 0.页眉.页脚三种方法：（1 ）先打开属性表，用 Select By ArttributesApply 之后，对新建的字段进行计算.页眉.页脚在
2、value 下面输入 ”0”(注意要写成英文形式).页眉.页脚（2 ）把图层整到 excel 表或者 access 里面选择 Export，将属性表导出为 dbf 格式文件，此文件可以直接用 excel 打开最后改好的 excel，可以直接 join 到图层属性表里（3 ） VBA 代码潮安县土地利用现状1、 打开潮安县图层属性列表，可以看到 DLMC 中的分类2、 选择 select by arttributes，潮安县图层的 DLMC 中包含以下 29 个类目.页眉.页脚3、 将这些类目复制出来，按照分类标准进行分类标准：建筑村庄等 赋值 5林地 赋值 1田、灌木等 赋值 3 保护区 赋值
3、 1水 赋值 0公路用地 其他园地 其他林地 其他草地 内陆滩涂 农村道路 坑塘水面 城市 建制镇 旱地 有林地 村庄 果园 水工建筑用地 水库水面 水浇地 水田 沙地 沟渠 河流水面 沼泽地 港口码头用地 灌木林地 茶园 裸地 设施农用地 采矿用地 铁路用地 风景名胜及特殊用地 打开潮安县图层属性表，新建一个字段，名为 Value，double 型在新建的字段右击打开 field calculator，勾选 Advanced在第一个框中输入代码，第二个写上 a，然后点 ok 即可.页眉.页脚代码：（代码请到 txt 文件中去复制，word 的代码复制过去会有格式错误，无法运行）dim a a
4、s stringdim b as stringb=DLMCif(b=“水库水面“ or b=“坑塘水面“ or b=“沟渠“ or b=“河流水面“)thena=“0“elseif(b=“公路用地“ or b=“其他园地“ or b=“其他林地“ or b=“其他草地“ or b=“内陆滩涂“ or b=“农村道路“ or b=“有林地“ or b=“旱地“ or b=“果园“ or b=“水浇地“ or b=“沙地“ or b=“沼泽地 “ or b=“铁路用地“ or b=“采矿用地“ or b=“设施农用地“ or b=“裸地“ or b=“茶园“)thena=“1“elseif(b=“
5、水田“ or b=“灌木林地“)thena=“3“elseif (b=“城市“ or b=“建制镇“ or b=“村庄“ or b=“水工建筑用地“ or b=“ 风景名胜及特殊用地“ or b=“港口码头用地“)thena=“5“end if.页眉.页脚饶平县的操作方法同理代码为：dim a as stringdim b as stringb=DLMCif(b=“水库水面“ or b=“坑塘水面“ or b=“沟渠“ or b=“河流水面“)thena=“0“elseif(b=“公路用地“ or b=“其他园地“ or b=“其他林地“ or b=“其他草地“ or b=“内陆滩涂“ or b=“农村道路“ or b=“有林地“ or b=“旱地“ or b=“果园“ or b=“水浇地“ or b=“沙地“ or b=“铁路用地“ or b=“采矿用地“ or b=“设施农用地“ or b=“裸地“ or b=“茶园“)thena=“1“elseif(b=“水田“ or b=“灌木林地“)thena=“3“elseif (b=“城市“ or b=“建制镇“ or b=“村庄“ or b=“水工建筑用地“ or b=“ 风景名胜及特殊用地“ or b=“港口码头用地“)thena=“5“end if
