Le portail francophone de la géomatique

oui pas de problemes particuliers

tu sélectionnes ton objet et tu le mets dans une variable objet
tu crées un style brush pour le remplissage avec la commande makebrush
tu fais un alter objet de ce type : Alter Object  variable  Info  OBJ_INFO_BRUSH, brush créé

surtout tu n'oublies pas de faire un update sur la table avec le nouvel objet

un exemple complet:
sub main
    dim nomtable as string
    Dim b_water As Brush
    Dim b_trait As Pen
    dim cpt, num as integer
    dim obj_nic as object
   
        nomtable = clc00fr
   
        num = tableinfo (nomtable, TAB_INFO_NROWS)
       
        for cpt = 1 to num
            select *  from nomtable where rowid = cpt into query1
            obj_nic = query1.obj
            b_trait = Makepen (1,1,0)
            b_water = Makebrush(2, rgb(230,3,77),-1)
            set table nomtable useredit on
            Alter Object  obj_nic  Info  OBJ_INFO_BRUSH, b_water
            Alter Object  obj_nic  Info  OBJ_INFO_PEN , b_trait
            Update nomtable set obj=obj_nic where rowid=cpt
        next

end sub

et voili voila !