#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
Hors ligne