0 BEGIN PGM 7110_it MM 
1 ;Programma per la lavorazione esterna di
2 ;una semisfera con una fresa a candela.
3 ;La fresatura viene eseguita in una
4 ;traiettoria X/Z dal basso verso l'alto.
5 ;Questo movimento viene suddiviso in
6 ;singole traiettorie lineari. Il sistema
7 ;di coordinate viene quindi ruotato e
8 ;viene percorsa la traiettoria successiva.
9 ;Grazie alle divisioni definite viene
10 ;determinata l'accuratezza e la qualità
11 ;della superficie.
12 ;
13 ;Immissione parametri
14 FN 0: Q1 =+55 ;CENTRO SFERA NELL'ASSE X
15 FN 0: Q2 =+55 ;CENTRO SFERA NELL'ASSE Y
16 FN 0: Q3 =-50 ;CENTRO SFERA NELL'ASSE Z
17 FN 0: Q4 =+50 ;RAGGIO SFERA
18 FN 0: Q5 =+60 ;DIVISIONE NEL PIANO X/Y
19 ;             ;DEFINISCE IN QUANTE
20 ;             ;TRAIETTORIE DI FRESATURA
21 ;             ;SI SUDDIVIDONO I 360 GRADI
22 ;             ;NEL PIANO X/Y
23 FN 0: Q6 =+15 ;DIVISIONE NEL PIANO X/Z
24 ;             ;DEFINISCE IN QUANTI 
25 ;             ;ELEMENTI LINEARI SI SUDDIVIDE 
26 ;             ;IL MOVIMENTO 3D 
27 ;             ;NELL'ASSE X, Y E Z
28 FN 0: Q7 =+20 ;DISTANZA DI SICUREZZA LATERALE
29 ;             ;DISTANZA TRA CORPO E UTENSILE 
30 ;             ;PER PREPOSIZIONAMENTO
31 FN 0: Q8 =+3 ;DISTANZA DI SICUREZZA IN Z
32 FN 0: Q9 =+2000 ;AVANZAMENTO PREPOSIZIONAMENTO
33 FN 0: Q10 =+500 ;AVANZAMENTO IN PROFONDITA'
34 FN 0: Q11 =+800 ;AVANZAMENTO FRESATURA
35 ;Fine immissione parametri
36 ;
37 BLK FORM 0.1 Z X+0 Y+0 Z-55
38 BLK FORM 0.2  X+110  Y+110  Z+0
39 ;
40 ;Chiamata utensile fresa a candela
41 TOOL CALL 50 Z S6000
42 ;
43 ;Calcoli
44 FN 4: Q15 =+360 DIV +Q5 ;Passo angolare piano X/Y
45 FN 2: Q25 =+Q5 - +1 ;Numero di ripetizioni piano X/Y
46 FN 4: Q16 =+90 DIV +Q6 ;Passo angolare piano X/Z
47 FN 2: Q26 =+Q6 - +1 ;Numero di ripetizioni piano X/Z
48 FN 1: Q17 =+Q7 + +Q4 ;Posizione per preposizionamento
49 FN 1: Q18 =+Q4 + +Q8 ;Posizione di sicurezza in Z
50 ;Fine calcoli
51 ;
52 ;Spostamento dell'origine al centro della sfera
53 CYCL DEF 7.0 NULLPUNKT
54 CYCL DEF 7.1  X+Q1
55 CYCL DEF 7.2  Y+Q2
56 CYCL DEF 7.3  Z+Q3
57 ;
58 ;Preposizionamento
59 L  X+Q17  Y+0 R0 FMAX M3
60 L  Z+Q8 R0 FMAX
61 ;
62 L  Y+0  Z+0 R0 FQ10 ;1. Penetrazione
63 LBL 2
64 CC  Z+0  X+Q108
65 L  Y+0 R0 FQ11
66 LP  PR+Q4  PA+90 R0 FQ11 ;Avvicinamento al profilo
67 LBL 3
68 LP IPA-Q16 FQ11 ;Passo lineare nel piano X/Z
69 CALL LBL 3 REPQ26 ;Ripetizione passo lineare
70 L  Z+Q18 R0 FQ9 ;Posizionamento alla distanza di sicurezza
71 L  X+Q17 R0 FQ9 ;Nuovo preposizionamento
72 L  Z+0  Y+0 R0 FQ10
73 ;Rotazione del sistema di coordinate
74 CYCL DEF 10.0 DREHUNG
75 CYCL DEF 10.1 IROT+Q15
76 CALL LBL 2 REPQ25 ;Ripetizione traiettoria circolare
77 ;Reset delle conversioni delle coordinate
78 CYCL DEF 10.0 DREHUNG
79 CYCL DEF 10.1  ROT+0
80 CYCL DEF 7.0 NULLPUNKT
81 CYCL DEF 7.1  X+0
82 CYCL DEF 7.2  Y+0
83 CYCL DEF 7.3  Z+0
84 ;Disimpegno e fine programma
85 L  Z+100 R0 FMAX M30
86 END PGM 7110_it MM