0  BEGIN PGM 4020_IT MM 
1  ;Programma per la lavorazione di una superficie
2  ;rigata 3D. L'utensile si sposta in cinque assi.
3  ;Questo movimento a cinque assi è indipendente
4  ;dalla macchina, solo il riposizionamento
5  ;degli assi deve essere adattato sulla
6  ;macchina.
7  ;
8  ;Immissione parametri
9  FN 0: Q1 =+0 ;COORDINATA X 1. PUNTO
10 FN 0: Q2 =+0 ;COORDINATA Y 1. PUNTO
11 FN 0: Q3 =-10 ;COORDINATA Z 1. PUNTO
12 FN 0: Q4 =+60 ;COORDINATA X 2. PUNTO
13 FN 0: Q5 =+0 ;COORDINATA Y 2. PUNTO
14 FN 0: Q6 =-25 ;COORDINATA Z 2. PUNTO
15 FN 0: Q7 =+60 ;COORDINATA X 3. PUNTO
16 FN 0: Q8 =+60 ;COORDINATA Y 3. PUNTO
17 FN 0: Q9 =-10 ;COORDINATA Z 3. PUNTO
18 FN 0: Q10 =+0 ;COORDINATA X 4. PUNTO
19 FN 0: Q11 =+60 ;COORDINATA Y 4. PUNTO
20 FN 0: Q12 =-5 ;COORDINATA Z 4. PUNTO
21 FN 0: Q20 =+500 ;AVANZAMENTO IN PROFONDITA'
22 FN 0: Q21 =+1500 ;AVANZAMENTO FRESATURA
23 FN 0: Q22 =+1000 ;AVANZAMENTO LATERALE
24 FN 0: Q27 =+1200 ;AVANZAMENTO RITORNO
25 FN 0: Q28 =+9999 ;AVANZAMENTO PREPOSIZIONAMENTO
26 FN 0: Q23 =+1 ;SOVRAMETALLO PROFONDITA'
27 FN 0: Q24 =+30 ;ALTEZZA INCREMENTALE IN POSIZIONAMENTO
28 FN 0: Q25 =+50 ;DISTANZA DI SICUREZZA
29 FN 0: Q26 =+40 ;NUMERO DI PASSATE
30 FN 0: Q29 =+2 ;FATTORE DI SGROSSATURA
31 ;Fine immissione parametri
32 ;
33 BLK FORM 0.1 Z X+0 Y+0 Z-60
34 BLK FORM 0.2  X+60  Y+60  Z+0
35 ;
36 ;Chiamata utensile fresa a candela (sgrossatura)
37 TOOL CALL 11 Z S15000
38 ;
39 ;Definizione del programma 40201_it.h come ciclo
40 CYCL DEF 12.0 PGM CALL
41 CYCL DEF 12.1 PGM 40201_it.H
42 ;
43 L  A+0  C+0 R0 FQ28 ;Posizionamento degli assi rotativi su 0
44 L  Z+100 R0 FQ28 M3 ;Posizionamento ad altezza di sicurezza
45 CALL LBL 21 ;Chiamata dei calcoli
46 L  X+Q1  Y+Q2 FQ28 M99 ;Raggiungimento della posizione di partenza e chiamata ciclo
47 ;
48 L  A+0  C+0 R0 FQ28 ;Posizionamento degli assi rotativi su 0
49 M129 ;Disattivazione della funzione TCPM
50 ;
51 ;Chiamata utensile fresa a candela (finitura)
52 TOOL CALL 24 Z S18000
53 ;
54 ;Immissione di parametri variabili per la finitura
55 FN 0: Q20 =+500 ;AVANZAMENTO IN PROFONDITA'
56 FN 0: Q21 =+1200 ;AVANZAMENTO FRESATURA
57 FN 0: Q22 =+1000 ;AVANZAMENTO LATERALE
58 FN 0: Q27 =+1200 ;AVANZAMENTO RITORNO
59 FN 0: Q28 =+9999 ;AVANZAMENTO PREPOSIZIONAMENTO
60 FN 0: Q23 =+0 ;SOVRAMETALLO
61 FN 0: Q29 =+1 ;FATTORE DI SGROSSATURA
62 ;Fine immissione parametr
63 ;
64 L  Z+100 R0 FQ28 M3 ;Posizionamento ad altezza di sicurezza
65 CALL LBL 21 ;Chiamata dei calcoli
66 L  X+Q1  Y+Q2 R0 FQ28 M99 ;Raggiungimento della posizione di partenza e chiamata ciclo
67 L  Z+100 R0 FMAX M5 ;Disimpegno
68 L  A+0  C+0 R0 FQ28 ;Posizionamento degli assi rotativi su 0
69 FUNCTION RESET TCPM ;Reset della funzione TCPM
70 L  Z+100 R0 FQ28 M30 ;Fine programma
71 ;
72 LBL 21 ;Calcoli
73 Q1013 = ATAN ( ( Q3 - Q6 ) / ( Q4 - Q1 ) )
74 Q1014 = ATAN ( ( Q9 - Q6 ) / ( Q8 - Q5 ) )
75 Q1015 = ATAN ( ( Q12 - Q9 ) / ( Q7 - Q10 ) )
76 Q1016 = ATAN ( ( Q12 - Q3 ) / ( Q11 - Q2 ) )
77 CC  X+Q9  Y+Q1013
78 LBL 0
79 END PGM 4020_IT MM