Le portail francophone de la géomatique

Bonjour,

1.Creer une zone tampon a partir de vos points avec un rayon 50 m de cote (outil>> creation de zone tampon)

2. Pour convertir de la zone tampon circulaire en carre, utiliser l'expression suivante pour cela.
* Ouvrir la table attributaire
* clic droit sur le champ shape et ouvrir la calculatrice dans la boite de dialogue de la calculatrice
* cocher la case avance
* copier/coller le code dans la partie Pre-logic
* dans la partie en dessous copier pPolygon
Les cercles se transforment en parcelles carres d'1 ha

Dim pMxDoc As IMxDocument
Dim pGeometry As IGeometry
Dim pMap As IMap
Dim pEnvelope As IEnvelope
Dim pPolygon As IPolygon
Dim pPointColl As IPointCollection
Dim pLL As IPoint
Dim pLR As IPoint
Dim pUL As IPoint
Dim pUR As IPoint
Set pMxDoc = ThisDocument
Set pMap = pMxDoc.FocusMap
If (Not IsNull([Shape])) Then
  Set pGeometry = [Shape]
  If (Not pGeometry.IsEmpty) Then
    Set pEnvelope = pGeometry.Envelope
    Set pLL = pEnvelope.LowerLeft
    Set pLR = pEnvelope.LowerRight
    Set pUR = pEnvelope.UpperRight
    Set pUL = pEnvelope.UpperLeft
    Set pPointColl = New Polygon
    pPointColl.AddPoint pLL
    pPointColl.AddPoint pLR
    pPointColl.AddPoint pUR
    pPointColl.AddPoint pUL
    Set pPolygon = pPointColl
  End If
End If

3. Le probleme avec ce code, trouve sur forum d'ESRI.com, est que les polygones ne sont pas correctement fermes.
Pour qu'il soit correctement ferme, je suis passee par EASY calculate
EasyCalculate 5.0 for ArcGIS sur http://www.ian-ko.com/
Ce programme permet de rajouter des outils.
J'ai utilise dans l'onglet polygon , l'outil clean polygon.
J'obtiens une nouvelle couche de polygones fermes.

C'est beaucoup d'etape, mais comme j'en ai eu besoin peu de fois, je n'ai pas cherche autres choses.

Cordialement,

Flora Lokonadinpoulle (VCAT SIG/Foret)
IRD
UMR AMAP
Cayenne