#2 Mon 21 August 2006 08:29
- Frédéric Prally
- Participant occasionnel
- Date d'inscription: 25 Oct 2005
- Messages: 16
Re: Modifier l'échelle de référence via du code
Bonjour,
Voici un exemple pour modifier l'échelle de référence dans AV9.0 :
Code:
Public Sub SetReferenceMap() Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument Dim pMap As IMap Set pMap = pMxDoc.FocusMap 'Assigne une échelle de référence à la carte pMap.ReferenceScale = 1000 End Sub
En espérant que cela t'aide.
Hors ligne