banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

#1 Wed 30 June 2004 11:47

V Dpx
Invité

lecture de la geometrie de polygone

De: vincent
bonjour,
je suis a la recherche d un code vba qui, a partir d'une couche de type polygone, affiche les coordonnees de la geometrie de chaque polygone (point par point).

 

#2 Thu 01 July 2004 09:34

D Guilbert
Invité

Re: lecture de la geometrie de polygone

Bonjour,

Voici une solution :

Code:

Dim sEnum As String
Dim pEnum As IEnumVertex
Dim pPointcollection As IPointCollection

'QI entre IGeometryCollection et IPointcollection
Set pPointcollection = pPolygon
Set pEnum = pPointcollection.EnumVertices
pEnum.Reset 'Pour etre sur d'etre positionne au debut de l'enumerateur

Dim pPoint As IPoint, lPart As Long, lVertex As Long
pEnum.Next pPoint, lPart, lVertex

'Parcours du polygon point par point
Do While Not pPoint Is Nothing
  'On concatene le n° de partie, de vertex et les coordonnees du point
  sEnum = sEnum & partie n°  & lPart &  - vertex n°  & lVertex &  : X =  & pPoint.X & , Y =  & pPoint.Y & Chr(13)
  pEnum.Next pPoint, lPart, lVertex
Loop

MsgBox sEnum

extrait de : Introduction a la programmation en VBA sur ArcGIS de l'ENSG
Le cours est telechargeable au format pdf

Bon courage

David GUILBERT
Centre Regional de Phytosociologie/
Conservatoire Botanique National de Bailleul
Site web : http://www.cbnbl.org

 

Pied de page des forums

Powered by FluxBB