Annonce
#1 Tue 13 July 2004 11:52
- V Dpx
- Invité
geometrie et attributs
Bonjour,
je suis a la recherche d un code mapbasic qui, a partir d'une table, affiche les coordonnees (point par point) de la geometrie de chaque objet (polygone, polyligne, point) ainsi que ses valeurs attributaires.
Et, tout ceci sans passer par un fichier intermediaire MIF/MID.
#2 Tue 13 July 2004 21:11
- Francois Biju-Duval
- Invité
Re: geometrie et attributs
Include MapBasic.def
Fetch First from TABLE
Do until EOT(TABLE)
note TABLE.COL1
note TABLE.COL5
if ObjectInfo(TABLE.obj,OBJ_INFO_TYPE) = OBJ_TYPE_POINT then
note ObjectGeography(TABLE.obj,OBJ_GEO_POINTX)
note ObjectGeography(TABLE.obj,OBJ_GEO_POINTY)
else
if ObjectInfo(TABLE.obj,OBJ_INFO_TYPE) = OBJ_TYPE_LINE then
note ObjectGeography(TABLE.obj,OBJ_GEO_LINEBEGX)
note ObjectGeography(TABLE.obj,OBJ_GEO_LINEBEGY)
note ObjectGeography(TABLE.obj,OBJ_GEO_LINEENDX)
note ObjectGeography(TABLE.obj,OBJ_GEO_LINEENDY)
else
if ObjectInfo(TABLE.obj,OBJ_INFO_TYPE) = OBJ_TYPE_PLINE or
ObjectInfo(TABLE.obj,OBJ_INFO_TYPE) = OBJ_TYPE_REGION then
For i = 1 to ObjectInfo(TABLE.obj,OBJ_INFO_NPOLYGONS)
For j = 1 to ObjectInfo(TABLE.obj,OBJ_INFO_NPOLYGONS+i)
note ObjectNodeX(TABLE.obj,i,j)
note ObjectNodeY(TABLE.obj,i,j)
Next
Next
end if
end if
end if
Fetch Next from TABLE
Loop
Bon courage !
