#1 Wed 29 March 2006 09:54
- Benji
- Juste Inscrit !
- Date d'inscription: 15 Mar 2006
- Messages: 4
Création de points en vba
Je cherche à créer des points sous ArcMap en vba en intégrant des coordonnées géographiques.
Merci d'avance
cordialement
Benji
Hors ligne
#2 Thu 30 March 2006 18:33
- Kevin Jousseaume
- Participant assidu
- Lieu: Nanterre, région parisienne
- Date d'inscription: 20 Mar 2006
- Messages: 217
Re: Création de points en vba
Bonjour,
Le code indiqué ci-dessous vous permet de définir un point à partir de coordonnées géographiques exprimées en WGS84. Cependant, ce point est "virtuel", en cela qu'il n'est pas créé dans une classe d'entités. Mais vous pouvez vous en servir dans d'autres fonctions, par exemple pour centrer la carte à cet endroit.
Code:
'Definition d'un point
Dim pPtEvent As IPoint
Dim dblLon As Double
Dim dblLat As Double
'Définition d'un système de coordonnées géographiques
Dim pSpatialReferenceFactory As ISpatialReferenceFactory
Dim pGeographicCoordinateSystem As IGeographicCoordinateSystem
'Spécification d'un système de coordonnées géographiques WGS1984
Set pSpatialReferenceFactory = New SpatialReferenceEnvironment
Set pGeographicCoordinateSystem = _
pSpatialReferenceFactory.CreateGeographicCoordinateSystem(esriSRGeoCS_WGS1984)
'Creation d'un point
'----------------------
Set pPtEvent = New Point
Set pPtEvent.SpatialReference = pGeographicCoordinateSystem
'Affectation des coordonnées
dblLon = 'A renseigner
dblLat = 'A renseigner
pPtEvent.PutCoords dblLon, dblLatEst-ce que cela répond à votre question ?
Cordialement,
Kevin Jousseaume
Dernière modification par Kevin Jousseaume (Thu 30 March 2006 18:34)
Hors ligne
