Le portail francophone de la géomatique

Dim pmxdoc As IMxDocument
Set pmxdoc = ThisDocument

'Mon fichier:=== Point.shp
Dim pfRouteLayer As IFeatureLayer
Set pfRouteLayer = pmxdoc.FocusMap.Layer(0)

Dim pFeatureselection As IFeatureSelection
Set pFeatureselection = pfRouteLayer

'Mon fichier:=== Polygone.shp
Dim pFBatilayer As IFeatureLayer
Set pFBatilayer = pmxdoc.FocusMap.Layer(1)


Dim pEnumGeom As IEnumGeometry
Set pEnumGeom = New EnumFeatureGeometry
Dim pEnumGeometryBind As IEnumGeometryBind
Set pEnumGeometryBind = pEnumGeom
pEnumGeometryBind.BindGeometrySource Nothing, pFBatilayer.FeatureClass
Dim pGeomFactory As IGeometryFactory
Set pGeomFactory = New GeometryEnvironment
Dim pGeom As IGeometry
Set pGeom = pGeomFactory.CreateGeometryFromEnumerator(pEnumGeom)

'creation du filtre
Dim pSpatialFilter As ISpatialFilter
Set pSpatialFilter = New SpatialFilter
'..sur la geometry pgeom
Set pSpatialFilter.Geometry = pGeom
'..avec la relation intersect
pSpatialFilter.SpatialRel = esriSpatialRelIntersects
'On selectionne les entites
pFeatureselection.SelectFeatures pSpatialFilter, esriSelectionResultNew, False

pmxdoc.ActiveView.Refresh