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

#1 Mon 26 May 2008 15:01

yoda
Participant occasionnel
Date d'inscription: 5 Sep 2007
Messages: 15

creation de polylignes à l'aide d'un tab

je crée une polyligne à l'aide de ce code mais je ne sais pas comment l'afficher faut il créer une table? comment sauvegarde t'on cet objet(polyligne) dans cette table

merci

Hors ligne

 

#2 Mon 26 May 2008 15:50

Maurice
Membre
Lieu: Montpellier
Date d'inscription: 5 Sep 2005
Messages: 5331

Re: creation de polylignes à l'aide d'un tab

Un code "corrigé"

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


ps: conseil: indentez le code et utilisez les majuscules à bon escient...

Hors ligne

 

#3 Mon 26 May 2008 17:20

yoda
Participant occasionnel
Date d'inscription: 5 Sep 2007
Messages: 15

Re: creation de polylignes à l'aide d'un tab

j'ai le message fichier en lecture seule lorque j'insere un objet dans la table

Hors ligne

 

#4 Mon 26 May 2008 17:45

Maurice
Membre
Lieu: Montpellier
Date d'inscription: 5 Sep 2005
Messages: 5331

Re: creation de polylignes à l'aide d'un tab

Alors c'est que les fichiers dat,id,map,tab de la table ouverte sont en lecture seule (modifiez si vous en avez le droit par l'explorateur Windows, clic droit->propriétés)
Ou que le tab de cette table est muni en dernière ligne de "Read Only" (verifiez avec Wordpad et effacez)
Ou choisissez une autre table tongue

Hors ligne

 

Pied de page des forums

Powered by FluxBB