GEAR TABLE NEW

GEAR TABLE NEW Num,X,Y,Xref,Yref;[Err]

Cette fonction génère dans le dessin un tableau d'engrenage lié à l'engrenage spécifié.

Paramètres d'entrée

Num	:	Numéro de l'entité engrenage lié
X,Y	:	Position du tableau d'engrenage
Xref,Yref	:	Position du marqueur de référence

Paramètre de sortie

Err	:	Numéro de l'erreur
		0 = Modification des paramètres sans erreur
		64 = Valeur fausse ou hors limites
		204 = Impossible de créer ou modifier en mode consultation
		981 = L'entité spécifiée n'est pas un engrenage
		998 = L'engrenage est déjà lié à un tableau

Exemple

FOR I=1 TO NB_ELEM
   COMPONENT GET TYPE I;Type
! Test si engrenage
   IF Type=480 THEN
! Centre et rayon de l'engrenage
     REQUEST I,#X1;X
     REQUEST I,#Y1;Y
     COMPONENT GET PAR I,"REXT";R
! Paramètre du tableau d'engrenage
     GEAR TABLE PEN 1,2,6
     GEAR TABLE COLOR 1,1,1
     GEAR TABLE TEXT 0,3.5,0.8,0,1.8
     GEAR TABLE PAR 0,0,1,1,3,""
     GEAR TABLE TOL "0/-20","±2"
! Création du tableau d'engrenage
     GEAR TABLE NEW I,X+R*1.2,Y-R,X+R*0.8,Y;Err
   END IF
NEXT I
END
END MACRO

Rubriques connexes
GEAR TABLE COLOR , GEAR TABLE PAR , GEAR TABLE PEN , GEAR TABLE TEXT , GEAR TABLE TOL