0  BEGIN PGM 4215_IT MM 
1  ;Programma per la fresatura di una
2  ;scanalatura a spirale nella
3  ;superficie cilindrica di un albero.
4  ;Il programma offre la possibilità
5  ;di realizzare la scanalatura con
6  ;diametro del nucleo crescente. Se
7  ;si definisce il parametro
8  ;Lunghezza cono minore della lunghezza
9  ;totale della lavorazione, a partire
10 ;dal momento in cui si raggiunge la
11 ;lunghezza del cono si continua a
12 ;lavorare con diametro del nucleo
13 ;costante fino a raggiungere la
14 ;lunghezza totale.
15 ;Se non deve essere realizzato un cono,
16 ;il diametro in X0 si definisce uguale
17 ;al diametro di fine cono. In questo
18 ;modo viene fresata una scanalatura di
19 ;profondità costante fino al
20 ;raggiungimento della lunghezza totale.
21 ;Il programma offre inoltre la
22 ;possibilità di modificare in continuo
23 ;il passo della spirale. Nel parametro
24 ;Incremento passo a ogni giro si
25 ;definisce a tale scopo di quanti
26 ;millimetri il passo deve essere
27 ;modificato a ogni giro dell'albero.
28 ;Il controllo numerico divide il
29 ;percorso utensile in passi singoli.
30 ;Per ciascuno di tali passi calcola
31 ;le coordinate X e Z come pure un
32 ;angolo dell'asse A. Con il parametro
33 ;Divisione si definiscono i passi in
34 ;cui viene suddiviso un movimento di
35 ;360°.
36 ;IMPORTANTE!
37 ;L'albero deve essere serrato al
38 ;centro dell'asse A. L'asse A deve poter
39 ;girare di oltre 360°. La lavorazione
40 ;si avvia in X=0 e viene eseguita in
41 ;direzione positiva.
42 ;
43 ;
44 BLK FORM CYLINDER X R20 L150 DIST+150
45 ;
46 ;Chiamata utensile
47 TOOL CALL 155 Z S5000
48 ;
49 ;Immissione parametri
50 Q1 = 15 ;DIAMETRO A BASE SCANALATURA
51 ;       ;IN X0
52 Q2 = 35 ;DIAMETRO A BASE SCANALATURA
53 ;       ;A FINE CONO
54 Q3 = 75 ;LUNGHEZZA CONO
55 Q4 = 150 ;LUNGHEZZA TOTALE DELLA LAVORAZIONE
56 Q5 = 6 ;PASSO A INIZIO
57 Q6 = 1.5 ;INCREMENTO PASSO A OGNI GIRO
58 Q7 = 50 ;DIVISIONE
59 Q8 = 100 ;ALTEZZA DI SICUREZZA
60 Q9 = 0 ;ANGOLO DI PARTENZA
61 Q40 = 300 ;AVANZAMENTO IN PROFONDITA'
62 Q41 = 1000 ;AVANZAMENTO FRESATURA
63 ;Fine immissione parametri
64 ;
65 ;Richiamo della lavorazione
66 CALL LBL 10
67 ;
68 ;Disimpegno e fine programma
69 L  Z+100 R0 FMAX M30
70 ;
71 ;Lavorazione
72 LBL 10
73 ;Calcoli
74 Q10 = Q2 / 2 - Q1 / 2 ;Modifica raggio cono
75 Q11 = ATAN ( Q10 / Q3 ) ;Angolo del cono
76 Q12 = Q1 / 2 ;Posizione iniziale Z
77 Q13 = Q2 / 2 ;Posizione finale Z
78 Q17 = 360 / Q7 ;Passo angolare
79 Q18 = 0 ;Posizione iniziale X
80 Q27 = Q9 ;Angolo di partenza
81 ;
82 L  Z+Q8 R0 FMAX M3 ;Posizionamento ad altezza di sicurezza
83 L  X+0  Y+0 R0 FMAX ;Posizionamento su posizione iniziale X e Y
84 L  X+0  Y+0  Z+Q8  A+Q9 R0 FMAX ;Raggiungimento dell'angolo di partenza
85 L  Z+Q12 R0 FQ40 ;Posizionamento alla profondità di partenza
86 ;
87 ;Ripetizione per cono
88 LBL 1
89 Q27 = Q27 + Q17 ;Calcolo del nuovo angolo
90 Q30 = Q27 / 360 * ( Q5 + Q6 * Q27 / 360 ) ;Calcolo della nuova coordinata X
91 Q33 = Q12 + TAN Q11 * Q30 ;Calcolo della nuova coordinata Z
92 ;
93 L  X+Q30  Y+0  Z+Q33  A+Q27 R0 FQ41 ;Raggiungimento delle nuove coordinate e angolo
94 FN 12: IF +Q33 LT +Q13 GOTO LBL 1 ;Confronto se è stata raggiunta l'altezza finale Z
95 ;
96 ;Ripetizione per albero
97 LBL 2
98 Q27 = Q27 + Q17 ;Calcolo del nuovo angolo
99 Q30 = Q27 / 360 * ( Q5 + Q6 * Q27 / 360 ) ;Calcolo della nuova coordinata X
100 L  X+Q30  Y+0  Z+Q13  A+Q27 R0 FQ41 ;Raggiungimento della nuova coordinata X e nuovo angolo
101 FN 12: IF +Q30 LT +Q4 GOTO LBL 2 ;Confronto se è stato raggiunto il punto finale X
102 ;Fine lavorazione
103 LBL 0
104 END PGM 4215_IT MM