ATTRIB STAT ETITY

ATTRIB STAT ENTITY Num,Num_att;Code,[Err]

Num

 :

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

Num_att

 :

Numéro de l'attribut à analyser

Code

 :

Type de l'entité de l'attribut

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

 ...