OBJECT GET EDGE FACE

OBJECT GET EDGE FACE Obj_num,Num_edge;Face1,Face2,[Err]

Cette instruction retourne les deux faces adjacentes d'une arête de l'objet spécifié.

Exemple

OBJECT EDGE NB Num,Nb,Err
FOR Arete=1 TO Nb
   OBJECT GET EDGE POINT Num,Arete;S1,S2,[Err]
   OBJECT GET EDGE FACE Num,Arete;F1,F2,[Err]
   PRINT "Arete ",Arete," Sommets ",S1,S2," Faces ",F1,F2
NEXT Arete