ATTRIB MODIFY ENTITY

ATTRIB MODIFY ENTITY Num,Num_att,Num_ent;[Err]

Num

 :

Numéro de l'entité contenant l'attribut a modifier

Num_att

 :

Numéro de l'attribut a générer

Num_ent

 :

Numéro de l'entité du dessin

Err

 :

0 = Pas d'erreur

64 = Valeur fausse ou hors limites

180 = Le numéro de l'entité est faux

181 = Le numéro de l'attribut est faux

182 = Le type de l'attribut est faux

183 = Le code de l'attribut est faux

Exemple

 ...
! Numéro de l'objet

       Num=1

! Recherche de l'attribut contenant le texte

       ATTRIB GET NB Num;Nb

       FOR I=1 TO Nb

         ATTRIB GET Num,I;Code,Type,Nb

         IF Type=13 AND Code=101 THEN

           ATTRIB STAT ENTITY Num,I;Code

           IF Code=#TEXT THEN

! Generation de l'entité texte dans le dessin

             ATTRIB GEN ENTITY Num,I

! Lecture du texte

             REQUEST NB_ELEM,#COMM;Text$

! Modification du texte

             Text$=VAL$(VAL(Text$)+1)

             MODIFY NB_ELEM,#COMM,Text$

! Modification de l'attribut entité

             ATTRIB MODIFY ENTITY Num,I,NB_ELEM

! Suppression du texte temporaire genere dans le dessin

             DELETE ELEM NB_ELEM

           END IF

         END IF

       NEXT I

! Initialisation de l'arbre de construction

       HOB INIT Num;Err

! Generation de l'objet

       HOB EXEC Err

! Fermeture de l'arbre de construction

       HOB CLOSE

 ...