Annonce
#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
