0 BEGIN PGM 4240_it MM 
1 ;Programma NC per lavorare quattro
2 ;pezzi con un dispositivo di serraggio
3 ;a piramide.
4 ;Su ciascuno dei pezzi, con dimensioni
5 ;60*60*60 mm, il controllo numerico
6 ;fresa uno smusso di 5*45 gradi.
7 ;La lavorazione viene eseguita con una
8 ;fresa a candela.
9 ;
10 ;I pezzi sono serrati a un dispositivo
11 ;a piramide con un angolo di 45 gradi.
12 ;
13 ;I pezzi sono disposti come segue:
14 ;Pezzo 1 -> PRESET 6 --> davanti
15 ;Pezzo 2 -> PRESET 7 --> a destra
16 ;Pezzo 3 -> PRESET 8 --> dietro
17 ;Pezzo 4 -> PRESET 9 --> a sinistra
18 ;
19 ;La lavorazione del pezzo viene
20 ;programmata nel sottoprogramma
21 ;"MACHINING".
22 ;Questo sottoprogramma viene eseguito dal
23 ;controllo numerico per ogni Preset, con
24 ;angolo modificato per l'allineamento.
25 ;È importante che gli angoli per
26 ;l'allineamento del dispositivo di serraggio
27 ;a piramide siano archiviati nei relativi
28 ;parametri QR170, QR171 e QR172.
29 ;Nel sottoprogramma "MACHINING" è
30 ;inizialmente definito l'utensile.
31 ;Successivamente, per ogni superficie da
32 ;fresare, il controllo numerico richiama
33 ;LBL "TILT..." e LBL "MILL".
34 ;Nei sottoprogrammi "TILT..." sono definiti
35 ;lo spostamento origine e la rotazione del
36 ;piano di lavoro per la relativa lavorazione,
37 ;con riferimento al sistema di coordinate
38 ;del pezzo.
39 ;Successivamente il controllo numerico
40 ;richiama LBL "TILT_NEW".
41 ;In questo sottoprogramma il controllo numerico
42 ;calcola sulla base dell'angolo per
43 ;l'allineamento della posizione di serraggio,
44 ;dello spostamento origine e della rotazione del
45 ;piano di lavoro l'angolo solido risultante e lo
46 ;spostamento origine e la attiva. In seguito
47 ;viene eseguita la lavorazione programmata in
48 ;LBL "MILL".
49 ;
50 * -Definizione del lato 1 DAVANTI
51 CYCL DEF 247 DEF. ZERO PEZZO ~
   Q339=+6    ;NUMERO ORIGINE
52 ;SPA allineato = QR170
QR170 = 45
53 ;SPB allineato = QR171
QR171 = 0
54 ;SPC allineato = QR172
QR172 = 0
55 CALL LBL "MACHINING"
56 ;
57 * -Definizione del lato 2 A DESTRA
58 CYCL DEF 247 DEF. ZERO PEZZO ~
   Q339=+7    ;NUMERO ORIGINE
59 ;SPA allineato = QR170
QR170 = 45
60 ;SPB allineato = QR171
QR171 = 0
61 ;SPC allineato = QR172
QR172 = 90
62 CALL LBL "MACHINING"
63 ;
64 * -Definizione del lato 3 DIETRO
65 CYCL DEF 247 DEF. ZERO PEZZO ~
   Q339=+8    ;NUMERO ORIGINE
66 ;SPA allineato = QR170
QR170 = 45
67 ;SPB allineato = QR171
QR171 = 0
68 ;SPC allineato = QR172
QR172 = 180
69 CALL LBL "MACHINING"
70 ;
71 * -Definizione del lato 4 A SINISTRA
72 CYCL DEF 247 DEF. ZERO PEZZO ~
   Q339=+9    ;NUMERO ORIGINE
73 ;SPA allineato = QR170
QR170 = 45
74 ;SPB allineato = QR171
QR171 = 0
75 ;SPC allineato = QR172
QR172 = 270
76 CALL LBL "MACHINING"
77 ;
78 ;Reset di tutte le conversioni delle coordinate
79 CALL LBL "RESET"
80 ;
81 ;Fine programma
82 M30
83 ;
84 ;Sottoprogrammi
85 * - LAVORAZIONE
86 LBL "MACHINING"
87 * - Fresatura superficie 45
88 TOOL CALL "D16" Z S9000 F2000
89 CALL LBL "SAFE"
90 CALL LBL "TILT1"
91 CALL LBL "MILL"
92 CALL LBL "TILT2"
93 CALL LBL "MILL"
94 CALL LBL "TILT3"
95 CALL LBL "MILL"
96 CALL LBL "TILT4"
97 CALL LBL "MILL"
98 LBL 0
99 ;
100 * - Fresatura
101 LBL "MILL"
102 L  X-20  Y+5  Z+50 R0 FMAX
103 L  Z+5 R0 FMAX
104 L  Z+0 R0 F2000
105 APPR LT  X+0  Y-1 LEN10 RL F AUTO
106 L  X+60
107 DEP LT LEN10
108 L  Z+50 R0 FMAX
109 LBL 0
110 ;
111 * - Rotazione 0 gradi
112 LBL "TILT0"
113 PLANE RESET STAY
114 CYCL DEF 7.0 PUNTO ZERO
115 CYCL DEF 7.1  X+0
116 CYCL DEF 7.2  Y+0
117 CYCL DEF 7.3  Z+0
118 CALL LBL "SAFE"
119 PLANE SPATIAL SPA+0 SPB+0 SPC+0 STAY SEQ-
120 ;Conversione su piano
121 CALL LBL "TILT_NEW"
122 LBL 0
123 ;
124 * - Rotazione 1
125 LBL "TILT1"
126 PLANE RESET STAY
127 CYCL DEF 7.0 PUNTO ZERO
128 CYCL DEF 7.1  X-30
129 CYCL DEF 7.2  Y-30
130 CYCL DEF 7.3  Z-5
131 CALL LBL "SAFE"
132 PLANE SPATIAL SPA+45 SPB+0 SPC+0 STAY SEQ-
133 ;Conversione su piano
134 CALL LBL "TILT_NEW"
135 LBL 0
136 ;
137 * - Rotazione 2
138 LBL "TILT2"
139 PLANE RESET STAY
140 CYCL DEF 7.0 PUNTO ZERO
141 CYCL DEF 7.1  X+30
142 CYCL DEF 7.2  Y-30
143 CYCL DEF 7.3  Z-5
144 CALL LBL "SAFE"
145 PLANE SPATIAL SPA+45 SPB+0 SPC+90 STAY SEQ-
146 ;Conversione su piano
147 CALL LBL "TILT_NEW"
148 LBL 0
149 ;
150 * - Rotazione 3
151 LBL "TILT3"
152 PLANE RESET STAY
153 CYCL DEF 7.0 PUNTO ZERO
154 CYCL DEF 7.1  X+30
155 CYCL DEF 7.2  Y+30
156 CYCL DEF 7.3  Z-5
157 CALL LBL "SAFE"
158 PLANE SPATIAL SPA+45 SPB+0 SPC+180 STAY SEQ-
159 ;Conversione su piano
160 CALL LBL "TILT_NEW"
161 LBL 0
162 ;
163 * - Rotazione 4
164 LBL "TILT4"
165 PLANE RESET STAY
166 CYCL DEF 7.0 PUNTO ZERO
167 CYCL DEF 7.1  X-30
168 CYCL DEF 7.2  Y+30
169 CYCL DEF 7.3  Z-5
170 CALL LBL "SAFE"
171 PLANE SPATIAL SPA+45 SPB+0 SPC+270 STAY SEQ-
172 ;Conversione su piano
173 CALL LBL "TILT_NEW"
174 LBL 0
175 ;
176 * - Posizione di sicurezza
177 LBL "SAFE"
178 M3
179 L  Z+300 R0 FMAX M91
180 L  X+400  Y-300 R0 FMAX M91
181 LBL 0
182 ;
183 * - Reset di tutte le conversioni delle coordinate
184 LBL "RESET"
185 CALL LBL "SAFE"
186 PLANE RESET TURN FMAX
187 CYCL DEF 7.0 PUNTO ZERO
188 CYCL DEF 7.1  X+0
189 CYCL DEF 7.2  Y+0
190 CYCL DEF 7.3  Z+0
191 CYCL DEF 8.0 SPECULARITA
192 CYCL DEF 8.1
193 CYCL DEF 10.0 ROTAZIONE
194 CYCL DEF 10.1  ROT+0
195 CYCL DEF 11.0 FATTORE SCALA
196 CYCL DEF 11.1 SCL 1
197 LBL 0
198 ;
199 * - Conversione degli angoli
200 LBL "TILT_NEW"
201 ;Lettura 3D-ROT
202 FN 18: SYSREAD Q170 = ID210 NR5 IDX1 ;3D-ROT SPA
203 FN 18: SYSREAD Q171 = ID210 NR5 IDX2 ;3D-ROT SPB
204 FN 18: SYSREAD Q172 = ID210 NR5 IDX3 ;3D-ROT SPC
205 PLANE RESET STAY
206 ;Lettura spostamento origine
207 FN 18: SYSREAD Q175 = ID220 NR2 IDX1 ;NVP X
208 FN 18: SYSREAD Q176 = ID220 NR2 IDX2 ;NVP Y
209 FN 18: SYSREAD Q177 = ID220 NR2 IDX3 ;NVP Z
210 ;Rotazione dell'allineamento
211 CYCL DEF 7.0 PUNTO ZERO
212 CYCL DEF 7.1  X+0
213 CYCL DEF 7.2  Y+0
214 CYCL DEF 7.3  Z+0
215 PLANE SPATIAL SPA+QR170 SPB+QR171 SPC+QR172 STAY
216 ;Spostamento origine su superficie allineata
217 CYCL DEF 7.0 PUNTO ZERO
218 CYCL DEF 7.1 IX+Q175
219 CYCL DEF 7.2 IY+Q176
220 CYCL DEF 7.3 IZ+Q177
221 ;Rotazione di 3D-ROT caricato
222 PLANE RELATIV SPC+Q172 STAY
223 PLANE RELATIV SPB+Q171 STAY
224 CALL LBL "SAFE"
225 PLANE RELATIV SPA+Q170 TURN FMAX SEQ-
226 LBL 0
227 END PGM 4240_it MM