0 BEGIN PGM 9035_fr MM 
1 ;Programme CN permettant de
2 ;déterminer automatiquement
3 ;le nom du fichier et de le
4 ;graver sur la pièce avec un
5 ;cycle.
6 ;La CN appelle le fichier
7 ;masque. Ce dernier inscrit
8 ;le chemin du fichier dans un
9 ;fichier texte.
10 ;La CN appelle ensuite un
11 ;programme qui permet de
12 ;sélectionner le nom du
13 ;programme depuis le chemin du
14 ;fichier. La CN mémorise le
15 ;nom du fichier dans QS1. La
16 ;CN se réfère à QS1 lorsqu'elle
17 ;revient dans ce programme et
18 ;l'utilise dans le cycle de
19 ;gravure 225.
20 ;Si les fichiers utilisés n'ont
21 ;pas besoin de se trouver dans
22 ;le même répertoire, vous devrez
23 ;adapter les données du chemin
24 ;en conséquence dans les appels!
25 ;!IMPORTANT! Le programme ne
26 ;fonctionne pas en Test de
27 ;programme car la copie d'un
28 ;fichier texte dans un
29 ;programme CN n'est pas autorisée
30 ;dans ce mode !
31 ;
32 BLK FORM 0.1 Z  X+0  Y+0  Z-20
33 BLK FORM 0.2  X+100  Y+100  Z+0
34 ;
35 ;Appel de l'outil de gravure
36 TOOL CALL 151 Z S6000
37 M3
38 ;
39 L  Z+100 R0 FMAX
40 ;
41 ;Inscription du contenu du fichier
42 ;"mask" dans le fichier "File".
43 ;Le nom du programme est alors
44 ;repris dans la syntaxe.
45 FN 16: F-PRINT mask.a / FILE.a
46 ;
47 ;Appel du programme permettant de
48 ;former le string de texte
49 CALL PGM 90351_fr.H
50 ;
51 ;
52 ;Gravure du nom du fichier qui se
53 ;trouve au paramètre QS1
54 CYCL DEF 225 GRAVAGE ~
   QS500= QS1     ;TEXTE GRAVAGE ~
    Q513=+10   ;HAUTEUR CARACTERES ~
    Q514=+0    ;FACTEUR ECART ~
    Q515=+0    ;POLICE ~
    Q516=+0    ;DISPOSITION TEXTE ~
    Q374=+0    ;POSITION ANGULAIRE ~
    Q517=+50   ;RAYON CERCLE ~
    Q207=+500  ;AVANCE FRAISAGE ~
    Q201=-0.3  ;PROFONDEUR ~
    Q206=+150  ;AVANCE PLONGEE PROF. ~
    Q200=+2    ;DISTANCE D'APPROCHE ~
    Q203=+0    ;COORD. SURFACE PIECE ~
    Q204=+50   ;SAUT DE BRIDE
55 ;
56 ;Appel du cycle au point de départ
57 L  X+20  Y+40 R0 FMAX M99
58 ;
59 ;Freifahren
60 L  Z+100 R0 FMAX
61 ;
62 ;Dégagement
63 M30
64 END PGM 9035_fr MM