0  BEGIN PGM 4220_IT MM 
1  ;Programma per lavorare le superfici
2  ;laterali e la superficie superiore
3  ;di un parallelepipedo.
4  ;L'origine deve trovarsi in X e Y al
5  ;centro e nell'asse Z sul lato
6  ;inferiore.
7  ;Nei parametri si definiscono le quote
8  ;della parte grezza e del pezzo finito
9  ;dei singoli assi. Si definiscono
10 ;inoltre l'utensile, i dati di taglio,
11 ;i sovrametalli e le distanze di
12 ;sicurezza.
13 ;Il controllo numerico calcola quindi
14 ;le quote per il BLK-Form e i
15 ;sovrametalli per le singole superfici.
16 ;Successivamente viene eseguita la
17 ;definizione di BLK-Form e la chiamata
18 ;utensile con i parametri
19 ;precedentemente immessi e calcolati.
20 ;Il controllo numerico decide poi le
21 ;superfici da lavorare con un
22 ;confronto tra parte grezza e pezzo
23 ;finito.
24 ;Il controllo numerico lavora quindi
25 ;le superfici necessarie.
26 ;!!IMPORTANTE!!
27 ;Sulle superfici da lavorare non devono
28 ;essere presenti elementi di serraggio.
29 ;Prima di traslare gli assi rotativi è
30 ;necessario raggiungere una posizione
31 ;di sicurezza, questa dipende dalla
32 ;macchina e deve essere adattata
33 ;manualmente.
34 ;
35 ;Immissione parametri
36 Q1 = 550 ;QUOTA PEZZO FINITO X
37 Q2 = 200 ;QUOTA PEZZO FINITO Y
38 Q3 = 200 ;QUOTA PEZZO FINITO Z
39 Q4 = 650 ;QUOTA PARTE GREZZA X
40 Q5 = 210 ;QUOTA PARTE GREZZA Y
41 Q6 = 210 ;QUOTA PARTE GREZZA Z
42 Q9 = 51 ;NUMERO UTENSILE
43 Q10 = 5200 ;N. GIRI
44 Q11 = 1200 ;AVANZAMENTO FRESATURA
45 Q15 = 3 ;PROFONDITA' DI PENETRAZIONE
46 Q16 = 0.3 ;SOVRAMETALLO PROFONDITA'
47 Q17 = 800 ;AVANZAMENTO FINITURA
48 Q18 = 3 ;DISTANZA DI SICUREZZA
49 Q19 = 50 ;ALTEZZA DI SICUREZZA PER PREPOSIZIONAMENTO
50 ;Fine immissione parametri
51 ;
52 ;Calcoli
53 Q7 = Q4 / 2 ;1/2 quota parte grezza X per BLK
54 Q8 = Q5 / 2 ;1/2 quota parte grezza Y per BLK
55 Q12 = ( Q4 - Q1 ) / 2 ;Sovrametallo in X per lato
56 Q13 = Q1 / 2 ;Quota pezzo finito X di centro pezzo
57 Q22 = ( Q5 - Q2 ) / 2 ;Sovrametallo in Y per lato
58 Q23 = Q2 / 2 ;Quota pezzo finito Y di centro pezzo
59 Q30 = Q19 + Q12 ;Preposizionamento per lavorazione in X
60 Q31 = Q19 + Q22 ;Preposizionamento per lavorazione in Y
61 Q32 = Q19 + Q6 ;Preposizionamento per lavorazione in Z
62 ;Fine calcoli
63 ;
64 BLK FORM 0.1 Z X-Q7 Y-Q8 Z+0
65 BLK FORM 0.2  X+Q7  Y+Q8  Z+Q6
66 ;
67 ;Chiamata utensile
68 TOOL CALL Q9 Z SQ10 FQ11
69 ;
70 M3
71 ;
72 ;Confronto di quota parte grezza e
73 ;quota pezzo finito in asse X. Se
74 ;è necessaria la lavorazione, salto
75 ;LBL1
76 FN 11: IF +Q4 GT +Q1 GOTO LBL 1
77 ;
78 LBL 3 ;LBL per salto di ritorno
79 ;Confronto di quota parte grezza e
80 ;quota pezzo finito in asse Y. Se
81 ;è necessaria la lavorazione, salto
82 ;a LBL2
83 FN 11: IF +Q5 GT +Q2 GOTO LBL 2
84 ;
85 LBL 4 ;LBL per salto di ritorno
86 ;Confronto di quota parte grezza e
87 ;quota pezzo finito in asse Z. Se
88 ;è necessaria la lavorazione, salto
89 ;LBL5
90 FN 11: IF +Q6 GT +Q3 GOTO LBL 5
91 ;
92 LBL 6 ;LBL per salto di ritorno
93 ;
94 M140 MB MAX F9999 ;Disimpegno
95 M30 ;Fine programma
96 ;
97 ;Sottoprogrammi
98 ;Lavorazione X
99 LBL 1
100 ;Spostamento origine su bordo pezzo finito
101 CYCL DEF 7.0 PUNTO ZERO
102 CYCL DEF 7.1  X+Q13
103 L  Z+Q32 R0 FMAX ;Traslazione su posizione di sicurezza Z
104 L  X+0  Y+0 R0 FMAX ;Raggiungimento posizione di rotazione
105 ;Rotazione piano di lavoro
106 PLANE SPATIAL SPA+90 SPB+0 SPC+90 MOVE DIST200 FMAX
107 ;Preposizionamento in Z ad altezza di sicurezza
108 L  Z+Q30 R0 FMAX
109 ;Preposizionamento in X e Y
110 L  X+0  Y+0 R0 FMAX
111 ;Definizione ciclo
112 CYCL DEF 232 FRESATURA A SPIANARE ~
    Q389=+2    ;STRATEGIA ~
    Q225=-Q8   ;PUNTO PART. 1. ASSE ~
    Q226=+0    ;PUNTO PART. 2. ASSE ~
    Q227=+Q12  ;PUNTO PART. 3. ASSE ~
    Q386=+0    ;PUNTO FINALE 3. ASSE ~
    Q218=+Q5   ;LUNGHEZZA 1. LATO ~
    Q219=+Q6   ;LUNGHEZZA 2. LATO ~
    Q202=+Q15  ;PROF. AVANZ. MAX. ~
    Q369=+Q16  ;PROFONDITA' CONSEN. ~
    Q370=+1    ;SOVRAPPOSIZIONE MAX. ~
    Q207=+Q11  ;AVANZAM. FRESATURA ~
    Q385=+Q17  ;AVANZAMENTO FINITURA ~
    Q253= MAX ;AVANZ. AVVICINAMENTO ~
    Q200=+5    ;DISTANZA SICUREZZA ~
    Q357=+5    ;DIST. SICUR LATERALE ~
    Q204=+50   ;2. DIST. SICUREZZA
113 CYCL CALL
114 M140 MB+200 ;Disimpegno
115 L  X+0  Y+Q6 R0 FMAX ;Raggiungimento posizione di rotazione
116 PLANE RESET MOVE DIST200 FMAX ;Riposizionamento piano di lavoro
117 ;Spostamento origine su 2. bordo pezzo finito
118 CYCL DEF 7.0 PUNTO ZERO
119 CYCL DEF 7.1  X-Q13
120 L  X+0 R0 FMAX ;Raggiungimento posizione di rotazione
121 ;Rotazione piano di lavoro
122 PLANE SPATIAL SPA+90 SPB+0 SPC+270 MOVE DIST200 FMAX
123 ;Preposizionamento in Z ad altezza di sicurezza
124 L  Z+Q30 R0 FMAX
125 ;Preposizionamento in X e Y
126 L  X+0  Y+0 R0 FMAX
127 ;Definizione ciclo
128 CYCL DEF 232 FRESATURA A SPIANARE ~
    Q389=+2    ;STRATEGIA ~
    Q225=-Q8   ;PUNTO PART. 1. ASSE ~
    Q226=+0    ;PUNTO PART. 2. ASSE ~
    Q227=+Q12  ;PUNTO PART. 3. ASSE ~
    Q386=+0    ;PUNTO FINALE 3. ASSE ~
    Q218=+Q5   ;LUNGHEZZA 1. LATO ~
    Q219=+Q6   ;LUNGHEZZA 2. LATO ~
    Q202=+Q15  ;PROF. AVANZ. MAX. ~
    Q369=+Q16  ;PROFONDITA' CONSEN. ~
    Q370=+1    ;SOVRAPPOSIZIONE MAX. ~
    Q207=+Q11  ;AVANZAM. FRESATURA ~
    Q385=+Q17  ;AVANZAMENTO FINITURA ~
    Q253= MAX ;AVANZ. AVVICINAMENTO ~
    Q200=+5    ;DISTANZA SICUREZZA ~
    Q357=+5    ;DIST. SICUR LATERALE ~
    Q204=+50   ;2. DIST. SICUREZZA
129 CYCL CALL
130 M140 MB+200 ;Disimpegno
131 L  X+0  Y+Q6 R0 FMAX ;Raggiungimento posizione di rotazione
132 ;Riposizionamento piano di lavoro
133 PLANE RESET MOVE DIST200 FMAX
134 ;Reset origine
135 CYCL DEF 7.0 PUNTO ZERO
136 CYCL DEF 7.1  X+0
137 CYCL DEF 7.2  Y+0
138 CYCL DEF 7.3  Z+0
139 FN 9: IF +0 EQU +0 GOTO LBL 3 ;Ritorno
140 ;***************************************
141 ;Lavorazione Y
142 LBL 2
143 ;Spostamento origine su bordo pezzo finito
144 CYCL DEF 7.0 PUNTO ZERO
145 CYCL DEF 7.1  Y+Q23
146 L  X+0  Y+0 R0 FMAX ;Raggiungimento posizione di rotazione
147 ;Rotazione piano di lavoro
148 PLANE SPATIAL SPA+90 SPB+0 SPC+180 MOVE DIST200 FMAX
149 ;Preposizionamento in Z ad altezza di sicurezza
150 L  Z+Q31 R0 FMAX
151 ;Preposizionamento in X e Y
152 L  X+0  Y+0 R0 FMAX
153 ;Definizione ciclo
154 CYCL DEF 232 FRESATURA A SPIANARE ~
    Q389=+2    ;STRATEGIA ~
    Q225=-Q13  ;PUNTO PART. 1. ASSE ~
    Q226=+0    ;PUNTO PART. 2. ASSE ~
    Q227=+Q22  ;PUNTO PART. 3. ASSE ~
    Q386=+0    ;PUNTO FINALE 3. ASSE ~
    Q218=+Q1   ;LUNGHEZZA 1. LATO ~
    Q219=+Q6   ;LUNGHEZZA 2. LATO ~
    Q202=+Q15  ;PROF. AVANZ. MAX. ~
    Q369=+Q16  ;PROFONDITA' CONSEN. ~
    Q370=+1    ;SOVRAPPOSIZIONE MAX. ~
    Q207=+Q11  ;AVANZAM. FRESATURA ~
    Q385=+Q17  ;AVANZAMENTO FINITURA ~
    Q253= MAX ;AVANZ. AVVICINAMENTO ~
    Q200=+5    ;DISTANZA SICUREZZA ~
    Q357=+5    ;DIST. SICUR LATERALE ~
    Q204=+50   ;2. DIST. SICUREZZA
155 CYCL CALL
156 M140 MB+200 ;Disimpegno
157 L  X+0  Y+Q6 R0 FMAX ;Raggiungimento posizione di rotazione
158 ;Riposizionamento piano di lavoro
159 PLANE RESET MOVE DIST200 FMAX
160 ;Spostamento origine su 2. bordo pezzo finito
161 CYCL DEF 7.0 PUNTO ZERO
162 CYCL DEF 7.1  Y-Q23
163 L  Y+0 R0 FMAX ;Traslazione su posizione di rotazione
164 PLANE SPATIAL SPA+90 SPB+0 SPC+0 TURN MB100 FMAX
165 ;Preposizionamento in Z ad altezza di sicurezza
166 L  Z+Q31 R0 FMAX
167 ;Preposizionamento in X e Y
168 L  X+0  Y+0 R0 FMAX
169 ;Definizione ciclo
170 CYCL DEF 232 FRESATURA A SPIANARE ~
    Q389=+2    ;STRATEGIA ~
    Q225=-Q13  ;PUNTO PART. 1. ASSE ~
    Q226=+0    ;PUNTO PART. 2. ASSE ~
    Q227=+Q22  ;PUNTO PART. 3. ASSE ~
    Q386=+0    ;PUNTO FINALE 3. ASSE ~
    Q218=+Q1   ;LUNGHEZZA 1. LATO ~
    Q219=+Q6   ;LUNGHEZZA 2. LATO ~
    Q202=+Q15  ;PROF. AVANZ. MAX. ~
    Q369=+Q16  ;PROFONDITA' CONSEN. ~
    Q370=+1    ;SOVRAPPOSIZIONE MAX. ~
    Q207=+Q11  ;AVANZAM. FRESATURA ~
    Q385=+Q17  ;AVANZAMENTO FINITURA ~
    Q253= MAX ;AVANZ. AVVICINAMENTO ~
    Q200=+5    ;DISTANZA SICUREZZA ~
    Q357=+5    ;DIST. SICUR LATERALE ~
    Q204=+50   ;2. DIST. SICUREZZA
171 CYCL CALL
172 M140 MB+200 ;Disimpegno
173 L  X+0  Y+Q6 R0 FMAX ;Raggiungimento posizione di rotazione
174 ;Riposizionamento piano di lavoro
175 PLANE RESET MOVE DIST200 FMAX
176 ;Reset origine
177 CYCL DEF 7.0 PUNTO ZERO
178 CYCL DEF 7.1  X+0
179 CYCL DEF 7.2  Y+0
180 CYCL DEF 7.3  Z+0
181 FN 9: IF +0 EQU +0 GOTO LBL 4 ;Ritorno
182 ;*******************************************
183 ;Lavorazione Z
184 LBL 5
185 ;Definizione ciclo
186 CYCL DEF 232 FRESATURA A SPIANARE ~
    Q389=+2    ;STRATEGIA ~
    Q225=-Q7   ;PUNTO PART. 1. ASSE ~
    Q226=-Q8   ;PUNTO PART. 2. ASSE ~
    Q227=+Q6   ;PUNTO PART. 3. ASSE ~
    Q386=+Q3   ;PUNTO FINALE 3. ASSE ~
    Q218=+Q4   ;LUNGHEZZA 1. LATO ~
    Q219=+Q5   ;LUNGHEZZA 2. LATO ~
    Q202=+Q15  ;PROF. AVANZ. MAX. ~
    Q369=+Q16  ;PROFONDITA' CONSEN. ~
    Q370=+1    ;SOVRAPPOSIZIONE MAX. ~
    Q207=+Q11  ;AVANZAM. FRESATURA ~
    Q385=+Q17  ;AVANZAMENTO FINITURA ~
    Q253= MAX ;AVANZ. AVVICINAMENTO ~
    Q200=+5    ;DISTANZA SICUREZZA ~
    Q357=+5    ;DIST. SICUR LATERALE ~
    Q204=+50   ;2. DIST. SICUREZZA
187 CYCL CALL
188 M140 MB+300 F5000 ;Disimpegno
189 FN 9: IF +0 EQU +0 GOTO LBL 6 ;Ritorno
190 END PGM 4220_IT MM