摘要： Sub deleteDuplicatedFeature()Dim app As IApplicationSet app = ApplicationDim pMxDocument As IMxDocumentSet pMxDocument = Application.DocumentDim pMap As IMapSet pMap = pMxDocument.FocusMapDim pFeatureLayer As IFeatureLayerSet pFeatureLayer = pMap.Layer(0)Dim pFeatureClass As IFeatureClassSet pFeatur 阅读全文