Table des Matières
Publicité
20
LBL 10
21
CYCL DEF 7.0 POINT ZERO
22
CYCL DEF 7.1 X+Q1
23
CYCL DEF 7.2 Y+Q2
24
CYCL DEF 10.0 ROTATION
25
CYCL DEF 10.1 ROT+Q8
26
Q35 = (Q6 - Q5) / Q7
27
Q36 = Q5
28
Q37 = 0
29
Q21 = Q3 * COS Q36
30
Q22 = Q4 * SIN Q36
31
L X+Q21 Y+Q22 R0 FMAX M3
32
L Z+Q12 R0 FMAX
33
L Z-Q9 R0 FQ10
34
LBL 1
35
Q36 = Q36 + Q35
36
Q37 = Q37 + 1
37
Q21 = Q3 * COS Q36
38
Q22 = Q4 * SIN Q36
39
L X+Q21 Y+Q22 R0 FQ11
40
FN 12: IF +Q37 LT +Q7 GOTO LBL 1
41
CYCL DEF 10.0 ROTATION
42
CYCL DEF 10.1 ROT+0
43
CYCL DEF 7.0 POINT ZERO
44
CYCL DEF 7.1 X+0
45
CYCL DEF 7.2 Y+0
46
L Z+Q12 R0 FMAX
47
LBL 0
48
END PGM ELLIPSE MM
TNC 410 HEIDENHAIN
Sous-programme 10: Usinage
Décaler le point zéro au centre de l'ellipse
Calculer la position angulaire dans le plan
Calculer le pas angulaire
Copier l'angle initial
Initialiser le compteur pour les pas fraisés
Calculer la coordonnée X du point initial
Calculer la coordonnée Y du point initial
Aborder le point initial dans le plan
Pré-positionnement à la distance d'approche dans l'axe de broche
Aller à la profondeur d'usinage
Actualiser l'angle
Actualiser le compteur
Calculer la coordonnée X effective
Calculer la coordonnée Y effective
Aborder le point suivant
Demande si travail non encore terminé, si oui, retour à LBL 1
Annuler la rotation
Annuler le décalage du point zéro
Aller à la distance d'approche
Fin du sous-programme
225
Publicité
Table des Matières
