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