Le portail francophone de la géomatique

Spécifiez l'expression de calcul. Vous pouvez saisir l'expression dans cette zone, ou y ajouter des champs et des opérateurs en cliquant sur ces éléments dans la boîte de dialogue. Dans les expressions de calcul de valeurs de champs, les champs se trouvent entre crochets [ ] et les chaînes de texte entre guillemets doubles : "chaîne".
Procédure d'utilisation du code Visual Basic dans une expression de calcul
Cochez la case Avancé pour saisir le code Visual Basic For Applications (VBA) qui sera traité avant l'exécution de l'expression de calcul. Ce code peut être utilisé dans différentes méthodes permettant de préparer ou de prétraiter les données à calculer.

Procédure d'utilisation du code Visual Basic pour calculer les champs en fonction de la surface, de la longueur, du périmètre, etc.

1.    Ces exemples de codes renvoient une valeur de type 'double' ; vous pouvez donc les utiliser pour calculer un champ existant de type 'double' ou un nouveau champ de type 'double' que vous avez ajouté à la table. Par exemple, vous pouvez les ajouter pour mettre à jour le champ de surface, de longueur ou de périmètre existant dans la table attributaire d'un fichier de formes.
2.    Cochez la case Avancé. Deux zones de texte vides apparaissent.
3.    Entrez l'un des quatre exemples de codes dans la première zone de texte. Astuce : vous pouvez cliquer avec le bouton droit de la souris sur cette rubrique d'aide pour la copier dans le Bloc-notes de Windows.

Pour calculer la surface :   
Dim Output as double
Dim pArea as IArea
Set pArea = [shape]
Output = pArea.area

Pour calculer la longueur ou le périmètre   
Dim Output as double
(selon que les entités     Dim pCurve as ICurve représentent des lignes ou des polygones) :   
Set pCurve = [shape]
Output = pCurve.Length

Pour ajouter les coordonnées x des points :   
Dim Output As Double
Dim pPoint As IPoint
   
Output = pPoint.X

Pour ajouter les coordonnées x des centroïdes    Dim Output As Double
de polygones :   
Dim pArea As IArea
Set pArea = [Shape]

Output = pArea.Centroid.X

4.    Saisissez la variable de sortie dans la deuxième zone de texte. N'utilisez pas de guillemets ni de crochets.
5.     Cliquez sur OK.

Les unités des valeurs calculées représenteront les unités dans lesquelles vos entités sont stockées. Si vos données sont stockées en pieds, les valeurs calculées seront également exprimées en pieds. Si vous souhaitez stocker les données calculées dans d'autres unités que les unités de données, vous pouvez ajouter une conversion dans l'expression de calcul ou (plus simplement) projeter vos données dans un système de coordonnées utilisant les unités dans lesquelles vous souhaitez stocker les valeurs, avant d'effectuer le calcul.

Astuce : N'oubliez pas que les classes d'entités géodatabase conservent automatiquement leurs champs de surface (Shape_Area), de longueur (Shape_Length) et de périmètre (Shape_Length). Vous n'avez pas besoin de mettre à jour manuellement ces champs.

Salut Lyly

Je me permets de rajouter que si tu travailles dans la version 9.2 du logiciel, tu n'as plus besoin d'appliquer la formule fournie ci-dessus par les autres membres. Il y a à présent une nouvelle commande juste sous la commande Calculate Values, appelée Calculate Geometry, qui te permet de calculer la superficie d'un clic sur le champ de ton choix et sans formule à recopier.

Et si tu me permets, je te conseillerai carrément de convertir tes shapefiles en classes d'entités de géodatabase qui te fourniront automatiquement les superficies de tes polygones mis à jour sans calcul aucun.

Déborah