Latest Contributions by DuncanHornby

OK had a look at your code and you were getting the enumerate from the wrong layer. But I found reading your code a bit out of sync so whilst trying to understand I re-jigged and simplified so its easier. Also put some comments in! I had to fake some data to make it work (selected points selecting polygons) and I use different layer names and positions so this code does not replace your existing code. You need to look at this and see the key changes to understand where you were going wrong. Public Sub SelectSchoolDistrict()         Dim pMxApp As IMxApplication     Dim pMap As IMap     Dim pMxDoc As IMxDocument     Dim pActiveView As IActiveView     Dim pEnumFeature As IEnumFeature     Dim pFeature As IFeature     Set pMxApp = Application     Set pMxDoc = Application.Document     Set pActiveView = pMxDoc.FocusMap     Set pMap = pMxDoc.FocusMap          ' Get first layer and the selected ID's     Dim pFeatureCursor As IFeatureCursor     Dim pFeatureSelection As IFeatureSelection     Dim pSelectionSet As ISelectionSet     Dim pFeatureLayer As IFeatureLayer     Set pFeatureLayer = pMxDoc.FocusMap.Layer(0) ' A point layer     Set pFeatureSelection = pFeatureLayer     Set pSelectionSet = pFeatureSelection.SelectionSet     Dim pEnumParcelIDs As IEnumIDs     Set pEnumParcelIDs = pSelectionSet.IDs          ' Load selected points into  geometry bag     Dim pGeoColl As IGeometryCollection     Set pGeoColl = New GeometryBag     Dim pPoint As IPoint     Dim id As Long     id = pEnumParcelIDs.Next     Do While id <> -1         Set pFeature = pFeatureLayer.FeatureClass.GetFeature(id)         Set pPoint = pFeature.Shape         pGeoColl.AddGeometry pPoint         id = pEnumParcelIDs.Next     Loop     Dim pGeom As IGeometry     Set pGeom = pGeoColl          ' Get layer     Dim pISDLayer As IFeatureLayer     Dim ISDcount As Integer     For ISDcount = 0 To pMap.LayerCount - 1         Set pISDLayer = pMap.Layer(ISDcount)         If pISDLayer.Name = "Display Index" Then  ' A polygon layer         Exit For     End If     Next     Dim pISDfSel As IFeatureSelection     Set pISDfSel = pISDLayer       ' Create spatial filter     Dim pSpatialFilter As ISpatialFilter     Set pSpatialFilter = New SpatialFilter     With pSpatialFilter         Set .Geometry = pGeom         .GeometryField = "SHAPE"         .SpatialRel = esriSpatialRelWithin     End With          ' Do selection and refresh map     pISDfSel.SelectFeatures pSpatialFilter, esriSelectionResultNew, False     pActiveView.Refresh End Sub ... View more