HEIDENHAIN TNC 426 (280 476) - Manuel (Page 424)

398 10 Programmation: Paramètres Q
1
0
.1
1 Ex
emples de pr
ogr
a
mmation
20 CALL LBL 10 Appeler l’usinage
21 L Z+100 R0 F MAX M2 Dégager l’outil, fin du programme
22 LBL 10 Sous-programme 10: Usinage
23 Q16 = Q6 - Q10 - Q108 Calcul surépaisseur et outil par rapport au rayon du cylindre
24 FN 0: Q20 = +1 Initialiser le compteur pour les pas fraisés
25 FN 0: Q24 = +Q4 Copier l’angle initial dans l’espace (plan Z/X)
26 Q25 = (Q5 - Q4) / Q13 Calculer l'incrément angulaire
27 CYCL DEF 7.0 POINT ZERO Décaler le point zéro au centre du cylindre (axe X)
28 CYCL DEF 7.1 X+Q1
29 CYCL DEF 7.2 Y+Q2
30 CYCL DEF 7.3 Z+Q3
31 CYCL DEF 10.0 ROTATION Calculer la position angulaire dans le plan
32 CYCL DEF 10.1 ROT+Q8
33 L X+0 Y+0 R0 F MAX Pré-positionnement dans le plan, au centre du cylindre
34 L Z+5 R0 F1000 M3 Pré-positionnement dans l’axe de broche
35 LBL 1
36 CC Z+0 X+0 Initialiser le pôle dans le plan Z/X
37 LP PR+Q16 PA+Q24 FQ11 Aborder position initiale du cylindre, obliquement dans la matière
38 L Y+Q7 R0 FQ12 Coupe longitudinale dans le sens Y+
39 FN 1: Q20 = +Q20 + +1 Actualiser le compteur
40 FN 1: Q24 = +Q24 + +Q25 Actualiser l’angle solide
41 FN 11: IF +Q20 GT +Q13 GOTO LBL 99 Demande si travail terminé, si oui, aller à la fin
42 LP PR+Q16 PA+Q24 FQ11 Aborder l'“arc” pour usiner la coupe longitudinale suivante
43 L Y+0 R0 FQ12 Coupe longitudinale dans le sens Y–
44 FN 1: Q20 = +Q20 + +1 Actualiser le compteur
45 FN 1: Q24 = +Q24 + +Q25 Actualiser l’angle solide
46 FN 12: IF +Q20 LT +Q13 GOTO LBL 1 Demande si travail non encore terminé, si oui, retour à LBL 1
47 LBL 99
48 CYCL DEF 10.0 ROTATION Annuler la rotation
49 CYCL DEF 10.1 ROT+0
50 CYCL DEF 7.0 POINT ZERO Annuler le décalage du point zéro
51 CYCL DEF 7.1 X+0
52 CYCL DEF 7.2 Y+0
53 CYCL DEF 7.3 Z+0
54 LBL 0 Fin du sous-programme
55 END PGM CYLIN