#1 Fri 22 August 2008 11:43
- Fabien.Krzewinski
- Participant occasionnel
- Date d'inscription: 19 Aug 2008
- Messages: 18
[Vba] Récupérer l'extent
Bonjour,
Après de longue recherches (forum, IMap,ILayer,etc..), je ne vois pas comment récupérer l'extent en vba...
Si quelqu'un pouvait m'aider, je lui en serai très reconnaissant 
.
D'avance, merci !
Fabien
Hors ligne
#2 Fri 22 August 2008 12:16
- Tnarbiv
- Participant assidu
- Lieu: Véretz
- Date d'inscription: 5 Sep 2005
- Messages: 392
Re: [Vba] Récupérer l'extent
tu veux récupérer l'extent de quoi ???
voici un exemple pour récupérer l'extent de chaque entité d'une couche.
Code:
Sub test()
Dim pmxdoc As IMxDocument
Set pmxdoc = ThisDocument
Dim pmap As IMap
Set pmap = pmxdoc.FocusMap
Dim player As ILayer
Set player = pmap.Layer(0)
If TypeOf player Is IFeatureLayer Then
Dim pfl As IFeatureLayer
Set pfl = player
Dim pfc As IFeatureClass
Set pfc = pfl.FeatureClass
Dim pfcursor As IFeatureCursor
Set pfcursor = pfc.Search(Nothing, True)
Dim pfeature As IFeature
Set pfeature = pfcursor.NextFeature
Do Until pfeature Is Nothing
Debug.Print pfeature.Extent.XMin
Debug.Print pfeature.Extent.XMax
Debug.Print pfeature.Extent.YMin
Debug.Print pfeature.Extent.YMax
Loop
End If
End SubAyez le réflexe "Développement Durable": N'imprimez ce message que si nécessaire.
Hors ligne
#3 Fri 22 August 2008 13:56
- Fabien.Krzewinski
- Participant occasionnel
- Date d'inscription: 19 Aug 2008
- Messages: 18
Re: [Vba] Récupérer l'extent
Je voulais récupérer l'extent d'une couche.
Je te remercie de ton aide.
Fabien.
Hors ligne
#4 Fri 22 August 2008 14:12
- Tnarbiv
- Participant assidu
- Lieu: Véretz
- Date d'inscription: 5 Sep 2005
- Messages: 392
Re: [Vba] Récupérer l'extent
voici comment obtenir l'extent d'une couche
Code:
Sub test() Dim pmxdoc As IMxDocument Set pmxdoc = ThisDocument Dim pmap As IMap Set pmap = pmxdoc.FocusMap Dim player As ILayer Set player = pmap.Layer(0) Dim penv As IEnvelope Set penv = player.AreaOfInterest Debug.Print penv.XMin Debug.Print penv.XMax Debug.Print penv.YMin Debug.Print penv.YMax End Sub
Ayez le réflexe "Développement Durable": N'imprimez ce message que si nécessaire.
Hors ligne
