arcgis去除重复点要素，vba

arcgis去除重复点要素，vba 初次运行需要加载Microsoft Scripting Runtime运行库。图层处于编辑状态且对应点层处于第一层Sub Test() Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument SelectPoints pMxDoc.FocusMap.Layer(0) ' refresh the selection screen cache Dim pAV As IActiveView Set pAV = pMxDoc.FocusMap Dim lCacheID As Long lCacheID = pAV.ScreenCacheID(esriViewGeoSelection, Nothing) pAV.ScreenDisplay.Invalidate Nothing, True, lCacheID End Sub