EXEMPLE MACRO12

Symbole

Exemple

 MACRO "symbol.mac"
 !
   Diam=0
   LOOP
 ! Entrée du diamètre
     INPUT NUMBER "Diamètre ?";Diam
 ! Entrée de la position
     DISP "Position"
     DIGITIZE X,Y
 ! Création du nom du symbole
     TEXT INIT "Trou Ø";Nom$
     TEXT ALPHA Diam;X$
     TEXT APPEND X$,1;Nom$
 ! Génération du symbole de type 'PUNCH'
     START SYMBOL X,Y,Nom$
     MODIFY NB_ELEM,#TYPE,"PUNCH"
     CIRCLE X,Y,Diam/2
     PEN 2
     LINE TYPE 3
     R=Diam/1.5
     LINE X-R,Y,X+R,Y
     LINE X,Y-R,X,Y+R
     PEN
     LINE TYPE
     END SYMBOL
   END LOOP
   END
   END MACRO