Le portail francophone de la géomatique

##################################################
Private Sub UIButtonControl2_Click()
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
Dim pFrRouteLayer As IFeatureLayer
Set pFrRouteLayer = pMxDoc.FocusMap.Layer(2)
Dim pFeatureSelection As IFeatureSelection
Dim pFBatilayer As IFeatureLayer
Set pFBatilayer = pMxDoc.FocusMap.Layer(4)

Dim pEnumGeom As IEnumGeometry
Set pEnumGeom = New EnumFeatureGeometry
Dim pEnumGeometrybind As IEnumGeometryBind

'QI entre IEnumµGeometryBind et IEnumGeometry

Set pEnumGeometrybind = pEnumGeom
pEnumGeometrybind.BindGeometrySource Nothing, pFBatilayer.FeatureClass

Dim pGeomFactory As IGeometryFactory
Set pGeomFactory = New GeometryEnvironment
Dim pGeom As IGeometry

'Creation d'uens eules geometrie a a partie de l'ensemble de Bati

Set pGeom = pGeomFactory.CreateGeometryFromEnumerator(pEnumGeom)

'Creation du filtre spatial
Dim pSpatialFilter As ISpatialFilter
Set pSpatialFilter = New SpatialFilter

'..sur la geometrie pGeom ...
Set pSpatialFilter.Geometry = pGeom

'..avec le relation Intersectent..
pSpatialFilter.SpatialRel = esriSpatialRelIntersects

' On selectionne les entites troncons

pFeatureSelection.SelectFeatures pSpatialFilter, esriSelectionResultNew, False

pMxDoc.ActiveView.Refresh

End Sub
##################################################