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é ?

Annonce

Rencontres QGIS 2025

L'appel à participation est ouvert jusqu'au 19 janvier 2025!

#1 Tue 26 August 2008 15:27

Fabien.Krzewinski
Participant occasionnel
Date d'inscription: 19 Aug 2008
Messages: 18

[VBA] calcul de coordonée d'un point suite à un déplacement en mètre

Bonjour à tous et à toutes,

J'aimerais pouvoir calculer la nouvelle coordonnée d'un point lorsque que je le déplace d'une certaine distance en mètre mais comment faire ?

En vous remerciant d'avance,


Fabien

Hors ligne

 

#2 Tue 26 August 2008 16:44

Tnarbiv
Participant assidu
Lieu: Véretz
Date d'inscription: 5 Sep 2005
Messages: 392

Re: [VBA] calcul de coordonée d'un point suite à un déplacement en mètre

tu connais la coordonnée d'origine ?
si oui il te suffit simplement d'additionner ou soustraire la distance en mètre avec la coordonnée d'origine


Ayez le réflexe "Développement Durable": N'imprimez ce message que si nécessaire.

Hors ligne

 

#3 Tue 26 August 2008 17:02

Fabien.Krzewinski
Participant occasionnel
Date d'inscription: 19 Aug 2008
Messages: 18

Re: [VBA] calcul de coordonée d'un point suite à un déplacement en mètre

Oui, je connais la coordonnée d'origine en Degré Minute Seconde ou en Degré Décimal etc...

Afin d'illustrer mon problème voici le code suivant:

Code:

    Dim point As IPoint
    Set point = New esriGeometry.point

    ' valeur du x
    point.x =  15.03
    ' valeur du y
    point.y =  17.09
    point.x=point.x+ 10 (mètre !!)

Si le point est dans une couche où l'unité de mesure n'est pas en mètre, comment ajouter 10 mètres à ce point? Dans l'exemple, j'ajoute 10 d'unités de mesure de la couche pas 10 mètres :-(

Ca doit être simple mais je ne vois pas trop...

Merci d'avance,

Fabien

Hors ligne

 

Pied de page des forums

Powered by FluxBB