0 BEGIN PGM 3170_IT MM 
1 ;Programma per la fresatura di un filetto interno
2 ;conico.
3 ;La traiettoria dell'utensile viene suddivisa in
4 ;passi lineari. Con la divisione si definisce in
5 ;quanti elementi lineari viene suddivisa una
6 ;traiettoria a 360°. Il controllo numerico calcola
7 ;per ciascuno di questi incrementi lineari una
8 ;coordinata X, Y e Z da raggiungere. La lavorazione
9 ;viene eseguita dal basso verso l'alto. Con il
10 ;senso di rotazione si definisce se viene creato
11 ;un filetto destrorso o sinistrorso.
12 ;
13 BLK FORM 0.1 Z X+0 Y+0 Z-32
14 BLK FORM 0.2  X+100  Y+100  Z+0
15 ;
16 ;Chiamata del programma per la prefresatura del cono
17 ;interno
18 ;!Nel programma richiamato i dati, ad esempio numero
19 ;utensile, dati di taglio e parametri, devono essere
20 ;adattati!
21 CALL PGM 31701_it.h
22 ;
23 ;Chiamata utensile fresa per filettare
24 TOOL CALL 10 Z S5000
25 ;
26 ;Immissione parametri
27 FN 0: Q1 =+50 ;CENTRO X
28 FN 0: Q2 =+50 ;CENTRO Y
29 FN 0: Q4 =+1 ;SENSO DI ROTAZIONE +/-1
30 ;            ;-1=IN SENSO ORARIO
31 ;            ;+1=IN SENSO ANTIORARIO
32 FN 0: Q5 =+30 ;DIVISIONE
33 FN 0: Q6 =+40 ;RAGGIO ESTERNO IN BASSO
34 FN 0: Q7 =+0 ;ANGOLO DI PARTENZA
35 FN 0: Q8 =+15 ;ANGOLO AL CONO
36 FN 0: Q9 =+3 ;PASSO
37 FN 0: Q10 =+2 ;ALTEZZA DI SICUREZZA
38 FN 0: Q11 =+300 ;AVANZAMENTO PREPOSIZIONAMENTO
39 FN 0: Q12 =+1000 ;AVANZAMENTO FRESATURA
40 FN 0: Q3 =-30 ;PARTENZA COORDINATA Z (IN BASSO)
41 FN 0: Q13 =+0 ;FINE COORDINATA Z (IN ALTO)
42 FN 0: Q14 =+1 ;SOVRAMETALLO NEL PIANO X/Y
43 FN 0: Q16 =+2 ;DISTANZA DI SICUREZZA LATERALE
44 ;Fine immissione parametri
45 ;
46 ;Richiamo della lavorazione
47 CALL LBL 1
48 STOP
49 ;
50 ;Immissione parametri finitura
51 FN 0: Q5 =+360 ;DIVISIONE
52 FN 0: Q12 =+500 ;AVANZAMENTO FRESATURA
53 FN 0: Q14 =+0 ;SOVRAMETALLO NEL PIANO X/Y
54 ;
55 ;Richiamo della lavorazione
56 CALL LBL 1
57 ;
58 ;Disimpegno e fine programma
59 L  Z+100 R0 FMAX M30
60 ;
61 ;Lavorazione
62 LBL 1
63 ;Calcoli
64 FN 3: Q31 =+Q16 * -1 ;Calcolo distanza di sicurezza laterale
65 FN 3: Q38 =+Q108 * -1 ;Calcolo raggio utensile
66 FN 3: Q39 =+Q14 * -1 ;Calcolo sovrametallo
67 FN 0: Q23 =+Q3 ;Coordinata Z corrente
68 FN 0: Q25 =+0 ;Contatore
69 FN 1: Q26 =+Q6 + +Q38 ;Compensazione raggio utensile
70 FN 1: Q26 =+Q26 + +Q39 ;Compensazione sovrametallo
71 FN 1: Q28 =+Q26 + +Q31 ;Raggio preposizionamento
72 FN 0: Q27 =+Q7 ;Angolo corrente
Q36 = TAN Q8 * Q9 ;Modifica raggio ogni 360°
73 FN 4: Q36 =+Q36 DIV +Q5 ;Grandezza incremento raggio
74 FN 4: Q37 =+360 DIV +Q5 ;Grandezza incremento angolo
75 FN 3: Q37 =+Q37 * +Q4 ;Passo angolare nel senso di rotazione
76 FN 2: Q35 =+Q13 - +Q3 ;Area Z
Q33 = Q9 / Q5 * SGN Q35 ;Grandezza incremento Z
Q35 = ( Q13 - Q3 ) / Q33 ;Numero di incrementi Z
Q35 = ABS Q35 ;Valore di conteggio positivo
77 ;Fine calcoli
78 ;
79 CC  X+Q1  Y+Q2 ;Definizione centro
80 LP  PR+Q28  PA+Q7 R0 FMAX M3 ;Preposizionamento
81 L  Z+Q10 R0 FMAX ;Posizionamento alla distanza di sicurezza
82 L  Z+Q3 R0 FQ11 ;Posizionamento su coordinata di partenza Z
83 LP  PR+Q26  PA+Q7 R0 FQ12 ;Posizionamento sul raggio di partenza
84 LBL 2 ;Ripetizione
85 FN 1: Q26 =+Q26 + +Q36 ;Aggiornamento del raggio
86 FN 1: Q27 =+Q27 + +Q37 ;Aggiornamento dell'angolo
87 FN 7: Q21 = COS +Q27 ;Calcolo coordinata X
88 FN 3: Q21 =+Q21 * +Q26 ;Calcolo coordinata X
89 FN 1: Q21 =+Q21 + +Q1 ;Nuova coordinata X
90 FN 6: Q22 = SIN +Q27 ;Calcolo coordinata Y
91 FN 3: Q22 =+Q26 * +Q22 ;Calcolo coordinata Y
92 FN 1: Q22 =+Q22 + +Q2 ;Nuova coordinata Y
93 FN 1: Q23 =+Q23 + +Q33 ;Nuova coordinata Z
94 FN 1: Q25 =+Q25 + +1 ;Aggiornamento del contatore
95 L  X+Q21  Y+Q22  Z+Q23 FQ12 ;Raggiungimento nuove coordinate
96 FN 12: IF +Q25 LT +Q35 GOTO LBL 2 ;Confronto se raggiunto numero di passate
97 LP IPR+Q31 ;Disimpegno laterale
98 L  Z+Q10 R0 FMAX ;Posizionamento alla distanza di sicurezza
99 LBL 0
100 END PGM 3170_IT MM