#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 SubEn espérant que cela t'aide.
Hors ligne


