0 BEGIN PGM 9040_FR MM 
1 ;Programme CN permettant de déterminer
2 ;automatiquement le nom du fichier et de
3 ;le graver sur la pièce avec un cycle.
4 ;La CN lit le chemin du programme le
5 ;chemin du fichier avec une fonction
6 ;string et l'ID correspondante et le
7 ;mémorise au paramètre QS1. La CN appelle
8 ;ensuite un autre programme dans lequel
9 ;elle sélectionne le nom du fichier dans
10 ;le chemin.
11 ;Elle transmet ensuite le nom du fichier
12 ;au programme appelant, sous forme de
13 ;paramètre string QS1. Là, elle s'en sert
14 ;comme texte à graver dans le cycle 225.
15 ;Si les fichiers utilisés n'ont pas besoin
16 ;de se trouver dans le même répertoire,
17 ;vous devrez adapter les données du
18 ;chemin en conséquence dans l'appel.
19 ;
20 BLK FORM 0.1 Z X+0 Y+0 Z-20
21 BLK FORM 0.2  X+100  Y+100  Z+0
22 ;
23 ;Appel de l'outil de gravure
24 TOOL CALL 151 Z S10000
25 ;
26 ;Dégagement
27 L  Z+100 R0 FMAX M3
28 ;
29 ;Lecture du chemin du fichier ID10010 NR1 et
30 ;mémorisation au paramètre QS1.
QS1 = SYSSTR( ID10010 NR1 )
31 ;
32 ;Appel du programme permettant de sélectionner
33 ;le nom du fichier dans le chemin
34 CALL PGM 90401_fr.H
35 ;
36 ;Gravure du nom de fichier qui se trouve au
37 ;paramètre QS1
38 CYCL DEF 225 GRAVAGE ~
   QS500= QS1     ;TEXTE GRAVAGE ~
    Q513=+8    ;HAUTEUR CARACTERES ~
    Q514=+0    ;FACTEUR ECART ~
    Q515=+0    ;POLICE ~
    Q516=+0    ;DISPOSITION TEXTE ~
    Q374=+0    ;POSITION ANGULAIRE ~
    Q517=+50   ;RAYON CERCLE ~
    Q207=+2000 ;AVANCE FRAISAGE ~
    Q201=-0.1  ;PROFONDEUR ~
    Q206=+150  ;AVANCE PLONGEE PROF. ~
    Q200=+2    ;DISTANCE D'APPROCHE ~
    Q203=+0    ;COORD. SURFACE PIECE ~
    Q204=+50   ;SAUT DE BRIDE
39 L  X+20  Y+40 R0 FMAX M99
40 ;
41 ;Dégagement
42 L  Z+100 R0 FMAX
43 ;
44 ;Fin du programme
45 M30
46 END PGM 9040_FR MM