【ArcGIS Pro二次开发】(76)：面积平差工具

之前做过一个【三调土地利用现状分类面积汇总】的工具，在流程中使用了面积平差的方法。

考虑了在其它场合可能也需要进行面积平差，因此单独提取出来作为一个工具。

平差实现的方法如下图：

主要的计算过程如上图所示，算出总面积差值后，就开始平差计算。

平差计算也分2步。

第一步按比例分配。

如果还有剩下的未分配值，则再进行第二步按面积由大到小排序分摊。

一、要实现的功能

如上图所示，在【数据处理】组—【要素综合】面板下，点击【平差工具】工具。

在弹出的工具框中，分别输入参数：

1、输入地块要素图层。

2、输入用来计算面积平差计算字段。必须是可编辑的双精度字段

3、输入范围图层。这个范围必须和图斑的范围一致，简单的验算方法，两个要素互相擦除得到的是空值。

4，5，6、面积的几个参数设置。

生成结果如下：

汇总统计一下：

对照一下范围要素计算出来的面积：

完全一致，完美。

二、实现流程

直接上代码。

代码中存在例如【Arcpy.FeatureToLine(area, area_line);】等代码块，这是预封装好的arcpy地理处理方法，具体写法可以参看：

【ArcGIS Pro二次开发】(9)：GeoProcessing工具和自定义工具的调用-CSDN博客

// 裁剪平差计算public static string Adjustment(string yd, string area, string clipfc_sort, string area_type = "投影面积", string unit = "平方米", int digit = 2){string def_gdb = Project.Current.DefaultGeodatabasePath;string area_line = def_gdb + @"\area_line";string clipfc = def_gdb + @"\clipfc";string clipfc_sta = def_gdb + @"\clipfc_sta";string clipfc_updata = def_gdb + @"\clipfc_updata";// 单位系数设置double unit_xs = 0;if (unit == "平方米") { unit_xs = 1; }else if (unit == "公顷") { unit_xs = 10000; }else if (unit == "平方公里") { unit_xs = 1000000; }else if (unit == "亩") { unit_xs = 666.66667; }// 计算图斑的投影面积和图斑面积Arcpy.Clip(yd, area, clipfc);Arcpy.AddField(clipfc, area_type, "DOUBLE");Arcpy.AddField(area, area_type, "DOUBLE");if (area_type == "投影面积"){Arcpy.CalculateField(clipfc, "投影面积", $"round(!shape_area!/{unit_xs},{digit})");Arcpy.Statistics(clipfc, clipfc_sta, area_type, "");          // 汇总// 计算范围的投影面积和图斑面积Arcpy.CalculateField(area, area_type, $"round(!shape_area!/{unit_xs},{digit})");}else if (area_type == "图斑面积"){Arcpy.CalculateField(clipfc, area_type, $"round(!shape.geodesicarea!/{unit_xs},{digit})");Arcpy.Statistics(clipfc, clipfc_sta, area_type, "");          // 汇总// 计算范围的投影面积和图斑面积Arcpy.CalculateField(area, area_type, $"round(!shape.geodesicarea!/{unit_xs},{digit})");}// 获取投影面积，图斑面积double mj_fc = double.Parse(GisTool.GetCellFromPath(clipfc_sta, $"SUM_{area_type}", ""));double mj_area = double.Parse(GisTool.GetCellFromPath(area, area_type, ""));// 面积差值double dif_mj = Math.Round(Math.Round(mj_area, digit) - Math.Round(mj_fc, digit), digit);// 空间连接，找出变化图斑（即需要平差的图斑）Arcpy.FeatureToLine(area, area_line);Arcpy.SpatialJoin(clipfc, area_line, clipfc_updata);Arcpy.AddField(clipfc_updata, "平差", "TEXT");Arcpy.CalculateField(clipfc_updata, "平差", "''");// 排序Arcpy.Sort(clipfc_updata, clipfc_sort, "Shape_Area DESCENDING", "UR");double area_total = 0;// 获取Tableusing Table table = clipfc_sort.TargetTable();// 汇总变化图斑的面积using (RowCursor rowCursor = table.Search()){while (rowCursor.MoveNext()){using (Row row = rowCursor.Current){var va = int.Parse(row["Join_Count"].ToString());if (va == 1)     // 如果是变化图斑{area_total += double.Parse(row[area_type].ToString());}}}}// 第一轮平差double area_pc_1 = 0;using (RowCursor rowCursor1 = table.Search()){while (rowCursor1.MoveNext()){using (Row row = rowCursor1.Current){var va = int.Parse(row["Join_Count"].ToString());if (va == 1){double area_1 = double.Parse(row[area_type].ToString());// 单个图斑需要平差的值double area_pc = Math.Round(area_1 / area_total * dif_mj, digit);area_pc_1 += area_pc;// 面积平差row[area_type] = area_1 + area_pc;}row.Store();}}}// 计算剩余平差面积，进行第二轮平差double area_total_next = Math.Round(dif_mj - area_pc_1, digit);using (RowCursor rowCursor2 = table.Search()){while (rowCursor2.MoveNext()){using (Row row = rowCursor2.Current){// 最小平差值double diMin = Math.Round(Math.Pow(0.1, digit), digit);var va = int.Parse(row["Join_Count"].ToString());if (va == 1){double area_2 = double.Parse(row[area_type].ToString());// 面积平差if (area_total_next > 0){row[area_type] = area_2 + diMin;area_total_next -= diMin;}else if (area_total_next < 0){row[area_type] = area_2 - diMin;area_total_next += diMin;}row.Store();}}}}// 删除中间要素List<string> all = new List<string>() { "area_line", "clipfc", "clipfc_sta", "clipfc_updata" };foreach (var item in all){Arcpy.Delect(def_gdb + @"\" + item);}// 返回值return clipfc_sort;}

除去前半部分的业务流程。重点在后面的两轮平差计算，需仔细阅读。