0 BEGIN PGM 3230_IT MM 
1 ;Programma per la fresatura di un arrotondamento su
2 ;un bordo del foro.
3 ;La lavorazione viene eseguita con una fresa a
4 ;candela. La traiettoria di fresatura viene eseguita
5 ;in una traiettoria circolare linearizzata nel
6 ;piano X/Z. Il numero degli incrementi lineari per
7 ;quarto di cerchio si definisce con il parametro Q6.
8 ;Allo stesso modo si definisce la frequenza con cui
9 ;questa traiettoria di fresatura deve essere
10 ;ripetuta per fresare l'arrotondamento su tutto il
11 ;perimetro (Q4).
12 ;
13 BLK FORM 0.1 Z X+0 Y+0 Z-30
14 BLK FORM 0.2  X+30  Y+30  Z+0
15 ;
16 ;Foratura
17 ;Chiamata utensile punta
18 TOOL CALL 237 Z S3000 F200
19 L  Z+100 R0 FMAX M3
20 L  X+15  Y+15 R0 FMAX
21 L  Z+2 R0 FMAX
22 L  Z-20 R0 F AUTO
23 L  Z+100 R0 FMAX
24 ;
25 ;Fresatura arrotondamenti
26 ;Immissione parametri
27 FN 0: Q1 =+15 ;CENTRO 1. ASSE
28 FN 0: Q2 =+15 ;CENTRO 1. ASSE
29 FN 0: Q3 =+10 ;RAGGIO FORO
30 FN 0: Q4 =+100 ;NUMERO DI TRAIETTORIE DI FRESATURA
31 FN 0: Q5 =+5 ;RAGGIO DA REALIZZARE
32 FN 0: Q6 =+30 ;DIVISIONE DELLE TRAIETTORIE DI FRESATURA
33 FN 0: Q7 =+2 ;DISTANZA DI SICUREZZA
34 FN 0: Q8 =+300 ;AVANZAMENTO IN PROFONDITA'
35 FN 0: Q9 =+1200 ;AVANZAMENTO FRESATURA
36 ;Fine immissione parametri
37 ;
38 ;Chiamata utensile fresa a candela
39 TOOL CALL 6 Z S8000
40 ;
41 ;Calcoli
42 FN 4: Q10 =+360 DIV +Q4 ;Passo angolare piano
43 FN 2: Q11 =+Q4 - +1 ;Numero delle ripetizioni nel piano
44 FN 4: Q12 =+90 DIV +Q6 ;Passo angolare traiettoria di fresatura
45 FN 2: Q13 =+Q6 - +1 ;Numero di ripetizioni per traiettoria di fresatura
46 FN 1: Q14 =+Q3 + +Q5 ;Centro dell'arrotondamento
47 FN 2: Q15 =+Q14 - +Q108 ;Compensazione raggio
48 ;Fine calcoli
49 ;
50 L  X+Q1  Y+Q2 R0 F9999 M3 ;Preposizionamento
51 L  Z+Q7 ;Raggiungimento dell'altezza di sicurezza
52 L  Z-Q5 FQ8 ;Penetrazione
53 ;Spostamento origine al centro
54 CYCL DEF 7.0 PUNTO ZERO
55 CYCL DEF 7.1  X+Q1
56 CYCL DEF 7.2  Y+Q2
57 LBL 1
58 CC  X-Q15  Z-Q5 ;Definizione CC per raggio
59 LP  PR+Q5  PA+90 R0 FQ9 ;Raggiungimento del profilo
60 LBL 2
61 LP IPA-Q12 ;Raggiungimento segmento lineare arrotondamento
62 CALL LBL 2 REPQ13 ;Richiamo della ripetizione
63 L  Z+Q7 ;Raggiungimento dell'altezza di sicurezza
64 L  X+0  Y+0 ;Nuovo preposizionamento
65 ;Rotazione nel piano
66 CYCL DEF 10.0 ROTAZIONE
67 CYCL DEF 10.1 IROT+Q10
68 CALL LBL 1 REPQ11 ;Ripetizione traiettoria di fresatura
69 ;
70 ;Reset rotazione
71 CYCL DEF 10.0 ROTAZIONE
72 CYCL DEF 10.1  ROT+0
73 ;Reset origine
74 CYCL DEF 7.0 PUNTO ZERO
75 CYCL DEF 7.1  X+0
76 CYCL DEF 7.2  Y+0
77 CYCL DEF 7.3  Z+0
78 ;Disimpegno e fine programma
79 L  Z+20 R0 FMAX M2
80 END PGM 3230_IT MM