0  BEGIN PGM 4225_IT MM 
1  ;Programma per eseguire con utensile inclinato
2  ;diverse lavorazioni che si trovano su una
3  ;retta.
4  ;In questo esempio vengono fresate dapprima
5  ;delle tasche con una fresa al fine di
6  ;realizzare una superficie. In una seconda
7  ;passata, perpendicolarmente alla base
8  ;inferiore della tasca vengono creati dei
9  ;fori.
10 ;Di seguito devono essere definiti tutti i
11 ;necessari parametri. Anche i dati
12 ;utensile ed eventualmente i cicli devono
13 ;essere adattati.
14 ;!IMPORTANTE! Il programma è creato per
15 ;macchine che sono configurate per la
16 ;rotazione del piano di lavoro con angolo
17 ;solido. Se la macchina in uso funziona
18 ;soltanto con angoli asse, è necessario
19 ;modificare anche le immissioni nel
20 ;ciclo 19. Prima della rotazione del piano
21 ;di lavoro è anche necessario portarsi su
22 ;una posizione di sicurezza correlata alla
23 ;macchina, affinché alla traslazione degli
24 ;assi rotativi non si verifichi una
25 ;collisione.
26 ;
27 BLK FORM 0.1 Z X+0 Y+0 Z-30
28 BLK FORM 0.2  X+100  Y+100  Z+0
29 ;
30 ;Immissione parametri
31 ;Posizione e disposizione dei fori
32 FN 0: Q10 =+15 ;COORDINATA 1. FORO IN X
33 FN 0: Q11 =+15 ;COORDINATA 1. FORO IN Y
34 FN 0: Q12 =+10 ;DISTANZA DEI FORI 
35 ;              ;NELL'ASSE X
36 FN 0: Q13 =+10 ;DISTANZA DEI FORI 
37 ;              ;NELL'ASSE Y
38 FN 0: Q14 =+8 ;NUMERO DI FORI
39 FN 0: Q15 =+30 ;ANGOLO SOLIDO A DELLA LAVORAZIONE
40 FN 0: Q16 =+0 ;ANGOLO SOLIDO B DELLA LAVORAZIONE
41 FN 0: Q17 =-150 ;ANGOLO SOLIDO C DELLA LAVORAZIONE
42 ;Parametri per la fresatura della tasca
43 FN 0: Q2 =+3 ;PROFONDITA' TASCA
44 FN 0: Q3 =+8 ;DIAMETRO TASCA
45 FN 0: Q18 =+400 ;AVANZAMENTO FRESATURA TASCA
46 ;Parametri per la foratura
47 FN 0: Q4 =+20 ;PROFONDITA' FORO
48 FN 0: Q19 =+500 ;AVANZAMENTO FORATURA
49 ;Fine immissione parametri
50 ;
51 ;Calcoli
52 FN 2: Q1 =+Q14 - +2 ;Numero di ripetizioni
53 ;Fine calcoli
54 ;
55 M3
56 ;Chiamata utensile fresa a candela per centrinatura
57 TOOL CALL 2 Z S2000 F300
58 ;Chiamata sottoprogramma per reset
59 CALL LBL 10
60 ;Ciclo per la creazione di una superficie
61 ;piana / centrinatura
62 CYCL DEF 252 TASCA CIRCOLARE ~
    Q215=+0    ;TIPO LAVORAZIONE ~
    Q223=+Q3   ;DIAMETRO CERCHIO ~
    Q368=+0    ;QUOTA LATERALE CONS. ~
    Q207=+Q18  ;AVANZAM. FRESATURA ~
    Q351=+1    ;MODO FRESATURA ~
    Q201=-Q2   ;PROFONDITA ~
    Q202=+5    ;PROF. INCREMENTO ~
    Q369=+0    ;PROFONDITA' CONSEN. ~
    Q206=+Q18  ;AVANZ. INCREMENTO ~
    Q338=+0    ;INCREMENTO FINITURA ~
    Q200=+2    ;DISTANZA SICUREZZA ~
    Q203=+0    ;COORD. SUPERFICIE ~
    Q204=+50   ;2. DIST. SICUREZZA ~
    Q370=+1    ;SOVRAPP.TRAIET.UT. ~
    Q366=+1    ;PENETRAZIONE ~
    Q385=+500  ;AVANZAMENTO FINITURA
63 ;Chiamata sottoprogramma per il posizionamento
64 ;e la lavorazione
65 CALL LBL 3
66 ;Disimpegno
67 L  Z+50 F2222
68 ;
69 ;Chiamata utensile punta
70 TOOL CALL 227 Z S1000 F300
71 ;Definizione Ciclo di foratura
72 CYCL DEF 200 FORATURA ~
    Q200=+5    ;DISTANZA SICUREZZA ~
    Q201=-Q4   ;PROFONDITA ~
    Q206=+Q19  ;AVANZ. INCREMENTO ~
    Q202=+5    ;PROF. INCREMENTO ~
    Q210=+0    ;TEMPO ATTESA SOPRA ~
    Q203=+0    ;COORD. SUPERFICIE ~
    Q204=+50   ;2. DIST. SICUREZZA ~
    Q211=+0    ;TEMPO ATTESA SOTTO ~
    Q395=+0    ;RIFERIM. PROFONDITA'
73 ;Chiamata sottoprogramma per il posizionamento
74 ;e la lavorazione
75 CALL LBL 3
76 ;Disimpegno e fine programma
77 L  Z+50 F2222 M30
78 ;
79 ;Sottoprogramma per il posizionamento e
80 ;la lavorazione
81 LBL 3
82 ;Spostamento origine sulla prima lavorazione
83 CYCL DEF 7.0 PUNTO ZERO
84 CYCL DEF 7.1  Y+Q10
85 CYCL DEF 7.2  X+Q11
86 ;Rotazione del piano di lavoro
87 CYCL DEF 19.0 PIANO DI LAVORO
88 CYCL DEF 19.1  A+Q15  B+Q16  C+Q17
89 ;Raggiungimento posizione di sicurezza
90 M140 MB MAX F9999
91 ;Posizionamento degli assi rotativi
92 L  A+Q120  B+Q121  C+Q122 R0 FMAX
93 ;Raggiungimento della prima posizione di
94 ;lavorazione
95 L  X+0  Y+0  Z+50 R0 FMAX M3
96 ;Chiamata ciclo
97 M99
98 ;Ripetizione di blocchi di programma per
99 ;le successive
100 ;lavorazioni
101 LBL 2
102 ;Ripetizione di blocchi di programma per le
103 ;successive lavorazioni
104 CALL LBL 1
105 ;Chiamata delle ripetizioni
106 CALL LBL 2 REPQ1
107 ;Disimpegno
108 M140 MB MAX F9999
109 ;Chiamata sottoprogramma per reset
110 CALL LBL 10
111 ;Riposizionamento degli assi rotativi
112 L  A+Q120  B+Q121  C+Q122 R0 FMAX
113 ;Reset dello spostamento origine
114 CYCL DEF 7.0 PUNTO ZERO
115 CYCL DEF 7.1  Y+0
116 CYCL DEF 7.2  X+0
117 LBL 0
118 ;
119 ;Sottoprogramma per successive lavorazioni
120 LBL 1
121 ;Chiamata sottoprogramma per reset
122 CALL LBL 10
123 ;Spostamento origine in valore incrementale
124 ;sulla posizione successiva
125 CYCL DEF 7.0 PUNTO ZERO
126 CYCL DEF 7.1 IX+Q12
127 CYCL DEF 7.2 IY+Q13
128 ;Rotazione piano di lavoro
129 CYCL DEF 19.0 PIANO DI LAVORO
130 CYCL DEF 19.1  A+Q15  B+Q16  C+Q17
131 ;Avvicinamento posizione di lavorazione
132 L  X+0  Y+0  Z+50 R0 FMAX
133 ;Chiamata ciclo
134 M99
135 ;Chiamata sottoprogramma per reset
136 CALL LBL 10
137 LBL 0
138 ;
139 ;Sottoprogramma per reset
140 LBL 10
141 ;Riposizionamento piano di lavoro
142 CYCL DEF 19.0 PIANO DI LAVORO
143 CYCL DEF 19.1  A+0  B+0  C+0
144 ;Deselezione Rotazione piano di lavoro
145 CYCL DEF 19.0 PIANO DI LAVORO
146 CYCL DEF 19.1
147 ;Reset fattore di misura
148 CYCL DEF 11.0 FATTORE SCALA
149 CYCL DEF 11.1 SCL 1
150 ;Reset rotazione
151 CYCL DEF 10.0 ROTAZIONE
152 CYCL DEF 10.1  ROT+0
153 LBL 0
154 END PGM 4225_IT MM