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