0 BEGIN PGM 5005_IT MM 
1 ;Programma per sbavare un'isola o un foro su
2 ;una superficie obliqua con una fresa a
3 ;sagomare.
4 ;La lavorazione viene eseguita nei tre assi
5 ;lineari senza orientare il piano di lavoro.
6 ;Come primo passo devono essere definiti tutti
7 ;i necessari parametri. In questo programma
8 ;viene quindi richiamato un programma per
9 ;prefresare il pezzo. Nel programma chiamato
10 ;devono essere eventualmente apportate anche
11 ;modifiche. Dopo aver richiamato il programma
12 ;si definisce l'utensile con cui deve essere
13 ;eseguita la sbavatura. Il controllo numerico
14 ;lo posiziona quindi nella posizione di partenza.
15 ;In seguito calcola le coordinate per i singoli
16 ;assi e le raggiunge.
17 ;Il controllo numerico calcola quindi il punto
18 ;successivo con la relativa coordinata X, Y e Z
19 ;e lo raggiunge. Questa sequenza viene ripetuta
20 ;fino a raggiungere l'angolo finale.
21 ;In quanti punti la lavorazione viene suddivisa
22 ;si definisce con il parametro DIVISIONE.
23 ;
24 ;!Importante! Il controllo numerico calcola il
25 ;percorso utensile in modo che il centro utensile
26 ;esegua il raggio definito.
27 ;
28 BLK FORM 0.1 Z X+0 Y+0 Z-60
29 BLK FORM 0.2  X+100  Y+100  Z+0
30 ;
31 ;Immissione parametri
32 FN 0: Q1 =+50 ;RAGGIO
33 FN 0: Q3 =+0 ;ANGOLO DI PARTENZA
34 FN 0: Q4 =+360 ;ANGOLO FINALE
35 FN 0: Q7 =+50 ;CENTRO CERCHIO X
36 FN 0: Q8 =+50 ;CENTRO CERCHIO Y
37 FN 0: Q9 =-20 ;CENTRO CERCHIO Z
38 FN 0: Q11 =+10 ;ANGOLO DI INCLINAZIONE INTORNO AD A
39 FN 0: Q12 =-2 ;PROFONDITA' DI FRESATURA
40 FN 0: Q13 =+0 ;ROTAZIONE
41 FN 0: Q20 =+50 ;AVANZAMENTO IN PROFONDITA'
42 FN 0: Q21 =+500 ;AVANZAMENTO FRESATURA
43 FN 0: Q25 =+5 ;POSIZIONE DI SICUREZZA Z
44 FN 0: Q26 =+360 ;DIVISIONE
45 ;Fine immissione parametri
46 ;
47 ;Fresatura parte grezza
48 CALL PGM 50051_it.h
49 ;
50 ;Chiamata utensile per sbavare
51 TOOL CALL 170 Z S3000
52 ;
53 L  Z+100 R0 F9998 M3 ;Posizionamento ad altezza di sicurezza
54 CC  X+Q7  Y+Q8 ;Definizione centro cerchio
55 LP  PR+Q1  PA+Q3 ;Posizionamento sul punto di partenza
56 L  Z+Q25 ;Preposizionamento in Z
57 CALL LBL 10 ;Richiamo della lavorazione
58 ;
59 L  Z+100 R0 F9998 M2 ;Disimpegno e fine programma
60 ;
61 ;Sottoprogrammi per la lavorazione
62 LBL 10
63 ;Spostamento origine al centro della lavorazione
64 CYCL DEF 7.0 NULLPUNKT
65 CYCL DEF 7.1  X+Q7
66 CYCL DEF 7.2  Y+Q8
67 CYCL DEF 7.3  Z+Q9
68 ;Attivazione della rotazione definita
69 CYCL DEF 10.0 DREHUNG
70 CYCL DEF 10.1  ROT+Q13
71 FN 0: Q36 =+Q3 ;Angolo corrente uguale ad angolo di partenza
72 FN 2: Q35 =+Q4 - +Q3 ;Angolo di apertura
73 FN 4: Q35 =+Q35 DIV +Q26 ;Passo angolare
Q38 = TAN Q11 ;Conversione dell'angolo di inclinazione
74 FN 0: Q46 =+0 ;Contatore
75 CALL LBL 2 ;Chiamata calcolo
76 L  X+Q41  Y+Q42 R0 FQ20 M3 ;Raggiungimento del primo punto in X e Y
77 L  Z+Q43 R0 FQ20 ;Raggiungimento del primo punto in Z
78 LBL 1 ;Ripetizioni
79 FN 1: Q36 =+Q36 + +Q35 ;Calcolo del nuovo angolo
80 FN 1: Q46 =+Q46 + +1 ;Avanzamento contatore
81 CALL LBL 2 ;Chiamata dei calcoli
82 L  X+Q41  Y+Q42  Z+Q43 FQ21 ;Raggiungimento del nuovo punto
83 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Confronto del contatore
84 ;Reset della rotazione
85 CYCL DEF 10.0 DREHUNG
86 CYCL DEF 10.1  ROT+0
87 ;Reset dello spostamento origine
88 CYCL DEF 7.0 NULLPUNKT
89 CYCL DEF 7.1  X+0
90 CYCL DEF 7.2  Y+0
91 CYCL DEF 7.3  Z+0
92 LBL 0 ;Ritorno
93 ;
94 LBL 2 ;Calcoli
95 FN 7: Q31 = COS +Q36 ;Calcolo della nuova coordinata X
96 FN 3: Q31 =+Q31 * +Q1 ;Calcolo della nuova coordinata X
97 FN 3: Q41 =+Q31 * +1 ;Calcolo della nuova coordinata X
98 FN 6: Q32 = SIN +Q36 ;Calcolo della nuova coordinata Y
99 FN 3: Q32 =+Q32 * +Q1 ;Calcolo della nuova coordinata Y
100 FN 3: Q42 =+Q32 * +1 ;Calcolo della nuova coordinata Y
101 FN 3: Q43 =+Q42 * +Q38 ;Calcolo della nuova coordinata Z
102 FN 1: Q43 =+Q43 + +Q12 ;Calcolo della nuova coordinata Z
103 LBL 0
104 END PGM 5005_IT MM