Le portail francophone de la géomatique

include "C:\Program Files\MapInfo\MapBASic\MapBASic.def"
Declare sub main
Declare sub sub_ouvrir_table
Declare sub sub_Iteration
Declare sub Sub_fermeture
'------------------------------------
sub main
Create menu "Exercice 2" as
"creer ligne" calling sub_ouvrir_table,
"Itération" calling sub_Iteration,
"Fermer Appli" calling Sub_fermeture
alter menu bar add "Exercice 2"
end sub
'------------------------------------
sub sub_ouvrir_table
DIM ma_table AS STRING
DIM question AS logical
dim n as integer
dim i as integer
dim MaPolyLigne as Object
ma_table = FileOpENDLG ("G:\","","tab","OUVRIR TABLE")
   IF ma_table <> "" then
     open table ma_table as exercice
   END IF
Create PLine Into Variable MaPolyLigne 0
fetch first from exercice
n=0
   while eot (exercice) = false
     n=n+1
     Alter Object MaPolyLigne Node Add Position 1,n (exercice.x,exercice.y )
     fetch next from exercice
   wend
Insert Into  exercice (Object)  Values (MaPolyLigne)
end sub
'------------------------------------
sub sub_Iteration
end sub
'------------------------------------
sub Sub_fermeture
alter menu bar remove "Exercice 2"
Close all interactive
End sub