0 BEGIN PGM 1110_FR MM 
1 ;Programme permettant de définir un motif de points en
2 ;forme de cercle. Cet exemple inclut également un
3 ;deuxième programme, dans lequel les perçages sont
4 ;réalisés en fraisage et les mouvements hélicoïdaux
5 :programmés. Ce programme n'utilise toutefois aucun cycle.
6 ;Après avoir défini l'outil et les paramètres utiles, c'est
7 ;le cycle d'usinage qui est défini. Dans cet exemple, un
8 ;deuxième programme est appelé au moyen du cycle 12. Les
9 ;différentes positions sont ensuite approchées et le cycle
10 ;appelé.
11 ;
12 ;Définition des paramètres du cercle de trous
13 FN 0: Q31 =+40 ;RAYON DU CERCLE DE TROUS
14 FN 0: Q32 =+0 ;ANGLE INITIAL
15 FN 0: Q33 =+50 ;CENTRE CERCLE DE TROUS SUR L'AXE X
16 FN 0: Q34 =+50 ;CENTRE CERCLE DE TROUS SUR L'AXE Y
17 FN 0: Q35 =+30 ;INCREMENT ANGULAIRE
18 FN 0: Q36 =+12 ;NOMBRE D'USINAGES
19 ;Fin de la programmation des paramètres du cercle de trous
20 ;Définition des paramètres des perçages
21 FN 0: Q40 =+10 ;DIAMETRE DU CERCLE DE TROUS
22 FN 0: Q41 =-30 ;PROFONDEUR
23 FN 0: Q42 =+25 ;NOMBRE DE TRAJECTOIRES HELICOIDALES
24 FN 0: Q43 =+2 ;DISTANCE D'APPROCHE
25 FN 0: Q44 =+1200 ;AVANCE FRAISAGE
26 ;Fin de la programmation des paramètres des perçages
27 ;
28 ;Calculs
29 ;Cercle de trous
30 FN 2: Q37 =+Q36 - +2 ;Nombre de répétitions
31 ;Perçages
32 FN 4: Q45 =+Q40 DIV +2 ;Rayon de perçage
33 FN 3: Q46 =+Q42 * +360 ;Angle de l'hélice hélicoïdale
34 ;Fin des calculs
35 ;
36 BLK FORM 0.1 Z X+0 Y+0 Z-40
37 BLK FORM 0.2  X+100  Y+100  Z+0
38 ;
39 ;Appel de l'outil de fraisage
40 TOOL CALL 4 Z S8000
41 ;
42 ;Dégager l'outil
43 L  Z+100 R0 FMAX M3
44 ;
45 ;Définition du programme 11101_fr.h comme cycle
46 CYCL DEF 12.0 PGM CALL
47 CYCL DEF 12.1 PGM 11101_fr.h
48 ;
49 CALL LBL 1 ;Appel des positions
50 ;
51 ;Dégagement et fin de programme
52 L  Z+50 R0 F9999 M2
53 ;
54 ;Sous-programme "Positions"
55 LBL 1
56 CC  X+Q33  Y+Q34 ;Centre du cercle de trous
57 LP  PR+Q31  PA+Q32 R0 F9999 ;Première position
58 CYCL CALL
59 LBL 2
60 CC  X+Q33  Y+Q34 ;Centre du cercle de trous
61 LP IPA+Q35 F9999 M99 ;Incrément angulaire
62 CALL LBL 2 REPQ37
63 LBL 0
64 END PGM 1110_FR MM