Le portail francophone de la géomatique

merci maurice pour m'avoir guider.
j'ai avancé mais il doit y avoir quelque chose qui cloche car il me modifie que le premier objet.

merci d'avance

voilà où j'en suis :
Dim Enr as integer
Dim NumTab as integer
Dim NumWindows as integer
Dim NomTab as string
dim  c_var as Pen
dim  b_var as Brush
Dim SelObj as object


include "mapbasic.def"


c_var=MakePen(1,2,0)         

b_var=MakeBrush(2,255,16777215)   

NumWindows=tableinfo (NumTab,TAB_INFO_NROWS)
For NumTab=1 to NumWindows
   
    NomTab=TableInfo(NumTab,TAB_INFO_NAME)
    Select * from NomTab into selection

        Fetch first from selection     
   
        For Enr=1 to SelectionInfo(SEL_INFO_NROWS) 

        SelObj=selection.obj     

                Alter Object SelObj Info OBJ_INFO_PEN, c_var   

                Alter Object SelObj Info OBJ_INFO_BRUSH, b_var

                Update selection Set Obj=SelObj where rowid=NumTab
          
    Fetch next from selection
 
    next

next

Je reposte ici pour rendre la réponse plus visible
Après réflexion je vous propose ce code, qui suppose que plusieurs tables sont ouvertes et qu'il existe une sélection dans l'une d'entre elles

Include "mapbasic.def"
Include "menu.def"
Dim i as integer NomTab,message1,message2 as string c_var as Pen b_var as Brush SelObj as object l_continue,l_save as Logical
Declare Sub Main
Sub Main
 If SelectionInfo(SEL_INFO_NROWS)=0 Then
  Note "Aucune sélection en cours, faites une sélection."
  exit sub
 Else
  NomTab=SelectionInfo(SEL_INFO_TABLENAME)
  message1="Il y a une sélection dans la table "+NomTab+chr$(13)+"On en modidie l'aspect ??"
  l_continue=Ask (message1,"OUI","NON") 
 End If
 If Not l_continue Then exit sub
 Else
  c_var=MakePen(1,2,0)         
  b_var=MakeBrush(2,255,16777215)   
  Set Map Layer NomTab Editable On
   For i=1 to SelectionInfo(SEL_INFO_NROWS)
    Fetch Rec i from selection     
    SelObj=selection.obj     
    Alter Object SelObj Info OBJ_INFO_PEN, c_var   
    Alter Object SelObj Info OBJ_INFO_BRUSH, b_var
    Update selection Set Obj=SelObj where rowid=i
   Next
  Run Menu Command 304 
 End If
message2="Sauvegarder les changements"+chr$(13)+"dans la table "+NomTab+" ??"
l_save=Ask (message2,"OUI","NON")
 If Not l_save Then
  RollBack Table NomTab
 Else
  Commit Table NomTab
 End If
End Sub

Bonjour,
Je me permets de relancer ce poste datant un petit peu car je rencontre un peu le même problème.
Je souhaite faire une sélection d'objets et changer leur couleur. Le programme de Maurice fonctionne très bien, sauf que moi je souhaiterai changer uniquement la couleur de mes objets sans toucher à leur trame ou leur style car ma sélection peut contenir des polygones n'ayant pas la même trame.
Sous MapInfo 9.5 avec l'outil "style polygone" on peut changer la couleur de deux polygones sans changer leur trame mais je ne trouve pas le code mapbasic permettant cela.
Si quelqu'un a déjà rencontré ce problème là je suis preneuse.
Merci d'avance.
Mathilde

Je veux changer la symbologie (enfin juste la couleur) de mes sélections avec MapBasic.
Par exemple, je sélectionne 2 polygones ayant des trames différentes, je clique sur un bouton qui me propose 3 couleurs au choix sous forme de cases à cocher, j'en sélectionne une et hop, il me change les couleurs de mes polygones sans modifier leurs trames.