0 BEGIN PGM 1025_FR MM 
1 ;Programme permettant de définir un motif de points
2 ;où les trous sont percés en ligne sur une pièce
3 ;ronde.
4 ;Les lignes sont parallèles à l'axe X. La distance
5 ;qui sépare les trous se définit dans un paramètre.
6 ;La distance entre les lignes (sur l'axe Y) se
7 ;définit elle aussi dans un paramètre. Il s'agit
8 ;toutefois d'un facteur par lequel la distance en X
9 ;se trouve multipliée. A partir des paramètres
10 ;indiqués et du rayon d'outil calculé, la CN calcule
11 ;les positions de perçage qui sont envisageables pour
12 ;le cycle de perçage.
13 ;Dans ce programme, une pièce ronde est d'abord créée
14 ;par un appel de programme.
15 ;
16 ;Définition des paramètres
17 FN 0: Q1 =+80 ;CENTRE DE CERCLE EN X
18 FN 0: Q2 =+80 ;CENTRE DE CERCLE EN Y
19 FN 0: Q3 =+80 ;RAYON CERCLE
20 FN 0: Q4 =+8 ;DISTANCE ENTRE LES USINAGES
21 ;            ;EN X
22 FN 0: Q5 =+0.866 ;FACTEUR DE DISTANCE
23 ;            ;EN Y
24 ;            ;Q4 * Q5 =DISTANCE EN Y
25 FN 0: Q8 =+2 ;DISTANCE D'APPROCHE
26 ;Fin de la programmation des paramètres
27 ;
28 BLK FORM 0.1 Z X-0.5 Y-0.5 Z-20
29 BLK FORM 0.2  X+160.5  Y+160.5  Z+0
30 ;
31 ;Appel du programme 10251_fr.h permettant de pré-fraiser
32 ;la pièce ronde
33 CALL PGM 10251_fr.H
34 ;
35 ;Appel du foret
36 TOOL CALL 223 Z S200
37 ;
38 ;Définition du cycle d'usinage
39 CYCL DEF 1.0 PERCAGE PROFOND
40 CYCL DEF 1.1 DISTQ8
41 CYCL DEF 1.2 PROF-21
42 CYCL DEF 1.3 PASSE10
43 CYCL DEF 1.4 TEMP0
44 CYCL DEF 1.5 F100
45 ;
46 CALL LBL 1 ;Appel du sous-programme "Positions"
47 ;
48 ;Dégagement et fin de programme
49 L  Z+50 R0 FMAX M2
50 ;
51 ;Sous-programme "Positions"
52 LBL 1
53 ;Calcul des positions et de la première position
54 FN 2: Q14 =+Q3 - +Q108
55 FN 1: Q13 =+Q14 + +Q2
56 FN 1: Q15 =+Q3 + +Q108
57 FN 2: Q32 =+Q2 - +Q3
58 FN 2: Q32 =+Q32 - -Q108
59 FN 0: Q21 =+Q1
60 FN 0: Q22 =+Q32
61 FN 3: Q27 =+Q4 * +Q5
62 FN 3: Q23 =+Q4 * +0.5
63 FN 3: Q24 =+Q4 * +3
64 FN 1: Q24 =+Q24 + +Q3
65 ;
66 L  Z+100 R0 FMAX M3 ;Déplacement à la position d'approche
67 L  X+Q21  Y+Q22 R0 FMAX M3 ;Approche de la première position
68 L  Z+Q8 FMAX M99 ;Déplacement à la distance d'approche et appel du cycle
69 LBL 5 ;Détermination d'autres positions, approche et appel de cycle
70 FN 1: Q21 =+Q21 + -Q23
71 FN 1: Q22 =+Q22 + +Q27
72 FN 11: IF +Q22 GT +Q13 GOTO LBL 99
73 LBL 30
74 FN 1: Q21 =+Q21 + -Q4
75 CALL LBL 50
76 FN 12: IF +Q29 LT +Q14 GOTO LBL 30
77 FN 9: IF +Q29 EQU +Q14 GOTO LBL 31
78 LBL 32
79 FN 1: Q21 =+Q21 + +Q4
80 CALL LBL 50
81 FN 11: IF +Q29 GT +Q14 GOTO LBL 32
82 LBL 31
83 L  X+Q21  Y+Q22 R0 FMAX M99
84 FN 1: Q21 =+Q21 + +Q4
85 CALL LBL 50
86 FN 12: IF +Q29 LT +Q14 GOTO LBL 31
87 FN 9: IF +Q29 EQU +Q14 GOTO LBL 31
88 FN 1: Q21 =+Q21 + +Q23
89 FN 1: Q22 =+Q22 + +Q27
90 FN 11: IF +Q22 GT +Q13 GOTO LBL 99
91 LBL 40
92 FN 1: Q21 =+Q21 + +Q4
93 CALL LBL 50
94 FN 12: IF +Q29 LT +Q14 GOTO LBL 40
95 FN 9: IF +Q29 EQU +Q14 GOTO LBL 42
96 LBL 41
97 FN 1: Q21 =+Q21 + -Q4
98 CALL LBL 50
99 FN 11: IF +Q29 GT +Q14 GOTO LBL 41
100 LBL 42
101 L  X+Q21  Y+Q22 R0 FMAX M99
102 FN 1: Q21 =+Q21 + -Q4
103 CALL LBL 50
104 FN 12: IF +Q29 LT +Q14 GOTO LBL 42
105 FN 9: IF +Q29 EQU +Q14 GOTO LBL 42
106 FN 9: IF +0 EQU +0 GOTO LBL 5
107 LBL 0
108 LBL 50
109 FN 2: Q28 =+Q1 - +Q21
110 FN 2: Q29 =+Q2 - +Q22
111 FN 8: Q29 =+Q28 LEN +Q29
112 FN 3: Q30 =+Q28 * +Q28
113 FN 5: Q30 = SQRT +Q30
114 FN 11: IF +Q30 GT +Q24 GOTO LBL 99
115 LBL 0
116 LBL 99
117 L  Z+50 R0 FMAX ;Dégagement
118 LBL 0
119 END PGM 1025_FR MM