arcgis去除重复点要素,vba初次运行需要加载MicrosoftScriptingRuntime运行库。图层处于编辑状态且对应点层处于第一层SubTest() DimpMxDocAsIMxDocument SetpMxDoc=ThisDocument SelectPointspMxDoc.FocusMap.Layer(0) 'refreshtheselectionscreencache DimpAVAsIActiveView SetpAV=pMxDoc.FocusMap