0 BEGIN PGM 7085_IT MM 
1 ;Programma per la lavorazione di un cono
2 ;dall'interno con una fresa a candela.
3 ;La lavorazione viene eseguita con un
4 ;movimento in X e Z. In un parametro si
5 ;definisce la frequenza con cui questa
6 ;traiettoria di fresatura deve essere
7 ;ripetuta per fresare il cono su tutto
8 ;il perimetro (Q10).
9 ;
10 BLK FORM 0.1 Z X+0 Y+0 Z-30
11 BLK FORM 0.2  X+50  Y+50  Z+0
12 ;
13 ;Immissione parametri
14 FN 0: Q1 =+25 ;CENTRO PRIMO ASSE
15 FN 0: Q2 =+25 ;CENTRO SECONDO ASSE
16 FN 0: Q3 =+0 ;COORDINATA Z IN ALTO
17 FN 0: Q5 =+25 ;RAGGIO IN ALTO
18 FN 0: Q4 =-20 ;COORDINATA Z IN BASSO
19 FN 0: Q6 =+15 ;RAGGIO IN BASSO
20 FN 0: Q7 =+2 ;DISTANZA DI SICUREZZA
21 FN 0: Q8 =+600 ;AVANZAMENTO FRESATURA
22 FN 0: Q9 =+9999 ;AVANZAMENTO RITORNO
23 FN 0: Q10 =+180 ;DIVISIONE
24 ;Fine immissione parametri
25 ;
26 ;Chiamata utensile fresa a candela
27 TOOL CALL 8 Z S5555
28 ;
29 ;Calcoli
30 FN 1: Q11 =+Q3 + +Q7 ;Altezza di sicurezza
31 FN 2: Q12 =+Q5 - +Q108 ;Raggio compensato in alto
32 FN 2: Q13 =+Q6 - +Q108 ;Raggio compensato in basso
33 FN 4: Q14 =+360 DIV +Q10 ;Passo angolare
34 FN 2: Q15 =+Q10 - +1 ;Numero di ripetizioni
35 ;Fine calcoli
36 ;
37 L  Z+100 R0 FMAX M3 ;Disimpegno
38 ;
39 ;Spostamento origine al centro
40 CYCL DEF 7.0 NULLPUNKT
41 CYCL DEF 7.1  X+Q1
42 CYCL DEF 7.2  Y+Q2
43 L  X+0  Y+0 R0 FMAX ;Preposizionamento
44 L  Z+Q11 R0 FMAX ;Posizionamento ad altezza di sicurezza
45 LBL 1
46 L  X+Q12  Y+0 R0 FQ9 ;Raggiungimento raggio superiore
47 L  Z+Q3 R0 FQ8 ;Posizionamento su superficie in Z
48 L  X+Q13  Y+0  Z+Q4 ;Posizionamento su raggio inferiore e a profondità
49 L  X+0  Y+0 R0 ;Posizionamento al centro
50 L  Z+Q11 R0 FQ9 ;Posizionamento ad altezza di sicurezza
51 ;Passo angolare
52 CYCL DEF 10.0 DREHUNG
53 CYCL DEF 10.1 IROT+Q14
54 CALL LBL 1 REPQ15 ;Ripetizione
55 ;
56 ;Reset conversione delle coordinate
57 CYCL DEF 10.0 DREHUNG
58 CYCL DEF 10.1  ROT+0
59 CYCL DEF 7.0 NULLPUNKT
60 CYCL DEF 7.1  X+0
61 CYCL DEF 7.2  Y+0
62 CYCL DEF 7.3  Z+0
63 ;Disimpegno e fine programma
64 L  Z+100 R0 FQ9 M30
65 END PGM 7085_IT MM