Le portail francophone de la géomatique

Salut,

Une solution possible est de travailler avec la FMB (Fenêtre MapBasic) -> Options -> Afficher Fenêtre MapBasic.
Voilà le code à coller dedans (en modifiant les noms de Table et de champs pour ton cas personnel).

Dim OriginX as float
Dim OriginY as float
Dim DestinX as float
Dim DestinY as float
Dim Dist as Float
set coordsys table TaTable
select * from TaTable where (Date = "JJMMAA" and heure = "08:00:00") or (Date = "JJMMAA" and heure = "09:00:00") into Selection
Fetch First From Selection
OriginX=centroidX(Selection.obj)
OriginY=centroidY(Selection.obj)
Fetch next From Selection
DestinX=centroidX(Selection.obj)
DestinY=centroidY(Selection.obj)
Dist = Distance(OriginX, OriginY, DestinX, DestinY, "m")
print Dist
undim OriginX
undim OriginY
undim DestinX
undim DestinY
Undim Dist

PS:Attention il te faudra sélectionner tout le code avant validation sinon la FMB ne prendra en compte que la dernière ligne .
A+
Joël

Salut,

OK, je croyais que tu voulais interroger ta table ponctuellement.
Maintenant si tu veux les distances dans ta table.
Une solution possible est de créer un nouveau champ dans ta table de nature "entier" appelons le "Num".
Puis tu incrémentes cette colonne avec la fonction "RowId".
--> Table --> Mettre à jour colonne.
Tu remplis la fenêtre avec le nom de table et le nom de la colonne à incrémenter puis dans valeur --> mettre RowId.
Ensuite tu fais une copie de cette table.Tu modifies le champ "Num" avec -> Mettre à jour colonne -> Dans Valeur -> mettre "RowId+1".
Enfin une jointure comme ceci:

Select * from TaTable, CopieTaTable where TaTable.Num=CopieTaTable.Num into Resultat.

Tu enregistres la table "Resultat", tu effaces les champs superflus.
Ainsi tu retrouveras dans cette table pour chaque ligne, 2 séries de coordonnées (début et fin d'un segment de déplacement).
Avec ceci il est facile de créer ces segments de droite avec la fonction "CreateLine(X1, Y1, X2, Y2)".
Pour terminer il te faut créer une nouvelle colonne "Distance" -> pour la remplir --> Utilise la fonction "ObjectLen(obj, "m")".
Un lien intéressant --> http://georezo.net/forum/viewtopic.php?id=90006.
PS:Il est trés facile maintenant d'interroger ta table pour connaître les heures où tes bouquetins sont les plus actifs
En espérant que celà t'aide
A+
Joël

Dernière modification par Spacejo (Thu 30 January 2014 10:52)

Les manips qui te posent problème sont t'elles celles ci:
"CreateLine(X1, Y1, X2, Y2)" et "ObjectLen(obj, "m")"?

Pour "objectlen" tu peux passer par la fenêtre --> Table -> Mettre à jour colonne -> à côté de valeur, il y a un bouton qui te donne accés à toutes les fonctions dispos.Il te suffit de cliquer sur objectLen et de modifer l'unité de mesure (passer de Km en m).
Pour "CreateLine".
Lors de la création de tes segments:

update TaTable Set obj = createline(ChampX1, ChampY1, ChampX2, ChampY2)

PS:Lorsque tu auras de nouveaux points

Select * from TaTable where Champ distance=0 into AModifier
update AModifier Set obj = createline(ChampX1, ChampY1, ChampX2, ChampY2)

Dernière modification par Spacejo (Thu 30 January 2014 11:36)

Attention avant toutes manips --> Faire une copie de tes tables que tu mets de côté (sécurité oblige )
Si on reprends toute la procédure où en es tu?

et avec ceci:

Set coordsys table Resultat
update Resultat set obj=createline(_X, _Y, _X_2, _Y_2)

Dernière modification par Spacejo (Thu 30 January 2014 12:10)

Quand on ne peux pas passer par la porte on passe par la fenêtre
Il existe un petit outil --> http://www.mapinfotools.com/index.php?o … ;Itemid=53
A+
Joël

Encore mieux --> Voir -> Create Lines from Database
--> http://www.geoas.net/Help/1200/GeoAS_Ma … tabase.htm
Voilà où télécharger --> http://www.geoas.de/pages/en/download-center.php

Dernière modification par Spacejo (Thu 30 January 2014 13:04)