Le portail francophone de la géomatique

Bonjour,

Je ne suis pas sur de bien comprendre votre demande, il peut s'agir de :
1 - vous desirez obtenir des polygones representant le trace de vos polylignes, dans ce cas utilisez les fonctions de Buffer/Zone Tampon
2 - vous souhaitez obtenir l'emprise de vos polylignes cad le rectangle englobant toutes les polylignes, dans ce cas la vous devrez passer par du developpement VB/VBA, collectez toutes les polylignes selectionnees et faites l'union des IEnveloppe de chaque entites avec la precedente.

Voila comment on peut faire cela :

Private Sub GetEnveloppeFromSelectedPolylines()
Dim oDoc As IMxDocument
Dim oMap As IMap
Dim oEnumFeat As IEnumFeature
Dim oFeat As IFeature
Dim oGlobalFeature As IFeature
Dim oEnveloppe As IEnvelope

Set oDoc = ThisDocument
Set oMap = oDoc.FocusMap
Set oEnveloppe = New Envelope
Set oEnumFeat = oMap.FeatureSelection
Set oFeat = oEnumFeat.Next
While Not oFeat Is Nothing
oEnveloppe.Union oFeat.Shape.Envelope
Set oFeat = oEnumFeat.Next
Wend
Debug.Print oEnveloppe.XMin
Debug.Print oEnveloppe.XMax
Debug.Print oEnveloppe.YMin
Debug.Print oEnveloppe.YMax
End Sub

Cordialement

Olivier GUYOT de LA POMMERAYE
Ingenieur SIG et Teledetection