ExempleMacro04

Tableau

Cette macro permet de créer un tableau de coordonnées dans le dessin en donnant son origine en haut à gauche. Les coordonnées des points digitalisés ensuite seront écrites automatiquement en colonnes selon le format défini dans la macro.

Exemple

  MACRO "array.mac"
!
! Entrée de la position du tableau (haut, gauche)
   DISP "Position du tableau ?"
   DIGITIZE Xt,Yt
   Xtc=Xt
   Ytc=Yt
! Tracé de l'entête du tableau
   LINE TYPE 0
   LORG 1
   CSIZE 3.5
   RATIO 0.8
   SLANT 0
   PEN 1
   LFONT 1
   MOVE Xtc,Ytc
   LABEL " N X Y"
   LFONT
   PEN 2
   Xte=Xtc+3.5*0.8*29
   LINE Xtc,Ytc+4.5,Xte,Ytc+4.5
   LINE Xtc,Ytc-1,Xte,Ytc-1
   Ytc=Ytc-5.5
! Initialisation de la numérotation
   N=1
   WHILE (1)
! Entrée d'un point du tableau
     DISP "Point ?"
     DIGITIZE X,Y,Rep
     IF Rep THEN GOTO Fin
! Recherche du point de fin le plus proche de

EXEMPLE MACRO04