图元擦除   procedure mGetMapErase(mPr_map:Variant;mPr_EditLayer:Variant); var   mPr_Intersection:Variant;   mPr_Ftrs:Variant;   mPr_Ftr:Variant;   pri_count:integer;   pri_i:integer; begin   pri_count:=mPr_EditLayer.Selection.Count;   if pri_count>0 then   begin     mPr_Ftrs:=mPr_EditLayer.Selection;     for pri_i:=1 to mPr_Ftrs.count do     begin       if  mPr_Ftrs.item[pri_i].Type<>miFeatureTypeRegion then       begin         ShowMessageinfo('系统只能对区域图元对象做相交处理 ...','ERROR');         exit;       end;     end;     mPr_Intersection:=mPr_map.EraseFeature(mPr_Ftrs.item[1],mPr_Ftrs.item[2]);     mPr_EditLayer.AddFeature(mPr_Intersection);   end; end;