Le portail francophone de la géomatique

Bonjour,


Je cherche un moyen de déterminer le nombre de côtés d'un polygone. l'idée que j'ai eu est de chercher le nombre de côté en utilisant le code VBA suivant :

Code VBA pour récupérer le nombre de sommet

Dim pCollection as IPointCollection
Dim nVertex as Long
Set pCollection = [Shape]
nVertex = pCollection.PointCount
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

nVertex

Il retourne le nombre de sommet plus 1 (doublon du point de départ correspondant au point d'arrivée)
ensuite il ne reste plus qu'à soustraire 1 au résultat. Néanmoins cette solution ne s'applique pas lorsque l'on a un point au milieux d'un segment (cf exemple)

La solution que j'ai envisager est d'utiliser une notion d'angle significatif entre les points du polygone, permettant ainsi de ne pas prendre en compte les points se trouvant sur un segment.
Est-ce que quelqu'un à une idée pour compléter le code VBA ou une autre solution pour déterminer le nombre de côté d'un polygone

Merci d'avance

Ben