Le portail francophone de la géomatique

Bonjour,

voici les elements de reponses relatifs a la question posee (rappelee en bas
de message) que j'ai recus directement, en complement de ce qui a ete envoye
sur la liste :

==> les commandes proposees par Sebastien Roddier (message directement poste
sur la liste) fonctionnent bien, il convient juste de veiller au systeme de
projection : par defaut, MI renvoit les infos en lat/long :
Complement d'infos de S. Roddier :
Pour specifier le systemes de coordonnees dans lequel MapInfo doit
travailler je
vous suggere d'essayer cette ligne de commande dans la fenetre mapbasic:

set coordsys table table de reference

Une fois cette ligne executee MapInfo travaillera dans le systeme de
projection
de la table de reference (table de reference est une table ouverte dont vous
connaissez le systeme de
coordonnees.)
Astuce : si vous travaillez tout le temps avec le meme systeme de projection
et que vous
disposez d'une table dans ce systeme je vous conseille de rajouter les
lignes
suivantes dans le document STARTUP.WOR (dans le repertoire d'installation de
MI)et de sauvegarder les modifs:

open table table de reference
set coordsys table table de reference
close table table de reference

Au lancement de mapInfo, le logiciel vient executer les lignes de commandes
du
document STARTUP.WOR et initialisera toutes vos operations en se basant sur
le
systeme de projection de votre table de reference.

==> autre possibilite (envoyee par Antoine Varoquaux
(antoine.varoquaux@texte-a-enlever.sncf.fr)) :
En faisant un export Mid Mif de la Polyligne, et en
ouvrant le fichier exporte avec un editeur de texte,
on a bien toute les coordonnees des noeuds intermediaires !

A la prochaine ;-)

Christian Marmond

Il suffit de recuperer les coordonnees des points composant la polyligne ou
les extremites de la ligne.

Exemple de creation de points a partir de troncons routiers de la BdCarto :

include mapbasic.def
include menu.def
declare sub main

sub main
dim i,j,n,l as integer
'***************************************************************************
*************************
'
' Creation de points avec attributs x,y et identif.route a partir des
troncons routiers de la BdCarto
'
'  Il faut creer une nouvelle table POINTS avec champs ID_ROUTE 11 car., XP
Entier, YP Entier
'
' la table a ouvrir doit se nommer RESEAU
'
'
'
'***************************************************************************
***************************

dim x,y,z as float
dim objet as object
dim route As String*11
set coordsys table reseau
for i=1 to tableinfo(reseau,TAB_INFO_NROWS)
fetch rec i from reseau
objet=reseau.obj
l=Len(reseau.numero)

route= Left(reseau.numero,1) + String((5-l), 00 ) +
Mid(reseau.numero,2,l-1)
do case Objectinfo(objet,OBJ_INFO_TYPE)
case OBJ_TYPE_LINE
x=Objectgeography(objet,OBJ_GEO_LINEBEGX)
y=Objectgeography(objet,OBJ_GEO_LINEBEGY)
Insert Into points (id_route,xp,yp,obj) Values
(route,x,y,createpoint(x,y))
x=Objectgeography(objet,OBJ_GEO_LINEENDX)
y=Objectgeography(objet,OBJ_GEO_LINEENDY)
Insert Into points (id_route,xp,yp,obj) Values
(route,x,y,createpoint(x,y))
case OBJ_TYPE_PLINE
n=ObjectInfo(objet,OBJ_INFO_NPNTS)
For j=1 to n
x=ObjectNodeX(objet,1,j)
y=ObjectNodeY(objet,1,j)
Insert Into points (id_route,xp,yp,obj) Values
(route,x,y,createpoint(x,y))
Next
end case
Next
end sub

Dominique HOUOT
Pole Regional de Diffusion
Departement Informatique - ITS
Cete de l'Est