POINTING NEW

POINTING NEW X,Y,Xref,Yref;[Err]

X,Y

 :

Position du tableau de pointage

Xref,Yref

 :

Position de la référence liée

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

Exemple

 DELETE ALL
 DEG
 ! Dessin de test
 PEN 1
 LINE 5,5,30,5
 LINE 30,5,30,11.516616777
 LINE 30,11.516616777,22.9810828711,18.5355339059
 ARC 19.4455489651,15,5,45,90
 LINE 19.4455489651,20,10,20
 ARC 10,15,5,90,180
 LINE 5,15,5,5
 CIRCLE 10,10,2.5
 RECTANGLE 15,8,9.5,4.5,0
 ! Taille et couleur du tableau
 POINTING TEXT 0,1.6,0.8,0,2.2;Err
 POINTING PEN 1,2,6;Err
 ! Numérotation des reperes
 POINTING NUMBER "a-z","",1
 ! Nouveau tableau de pointage
 Num=NB_ELEM+1
 POINTING NEW 35,5,0,0;Err
 ! Ajout d'un repere aux dessin de test
 FOR I=1 TO Num-1
   REQUEST I,#CODE;Code
   SELECT Code
   CASE #LINE
     POINTING ADD REP Num,I,0;Err
     POINTING ADD REP Num,I,1;Err
   CASE #ARC
     POINTING ADD REP Num,I,0;Err
     POINTING ADD REP Num,I,1;Err
     POINTING ADD REP Num,I,2;Err
   CASE #CIRCLE
     POINTING ADD REP Num,I,0;Err
   CASE #POINT
     POINTING ADD REP Num,I,0;Err
   CASE #RECTANGLE
     POINTING ADD REP Num,I,0;Err
     POINTING ADD REP Num,I,1;Err
     POINTING ADD REP Num,I,2;Err
     POINTING ADD REP Num,I,3;Err
   CASE #SYMBOL
     POINTING ADD REP Num,I,0;Err
   END SELECT
 NEXT I
 ! Mise a jour du tableau de pointage
 POINTING UPDATE Num;Err
 END
 END MACRO
 

Rubriques connexes
POINTING COL , POINTING COLOR , POINTING FORM , POINTING NUMBER , POINTING PAR , POINTING PEN , POINTING TEXT