ATTRIB GET

ATTRIB GET entité,Num_attr;Code,Type,Nb,[Value|Value$|Value(*),[Err]]

Cette instruction retourne le contenu de l'attribut spécifié liés à l'entité définie. Le paramètre contenant la valeur doit être du même type que l'attribut.

Exemple

ATTRIB GET Num,Num_attr;Code,Type,N
SELECT Type
CASE #ENTITY,#DOUBLE,#FLOAT,#LONG,#SHORT,#COORD2,#COORD3,#DATE
   IF N=1 THEN
     ATTRIB GET Num,Num_attr;Code,Type,N,Val
     PRINT "CODE=",Code," TYPE=",Type," NB=",N," VAL=",Val
   ELSE
     REDIM Val(N)
     ATTRIB GET Num,Num_attr;Code,Type,N,Val(*)
     PRINT "CODE=",Code," TYPE=",Type," NB=",N," VAL=",Val(*)
   END IF
CASE #CHAR
   ATTRIB GET Num,Num_attr;Code,Type,N,Val$
   PRINT "CODE=",Code," TYPE=",Type," NB=",N," VAL=",Val$
END SELECT