0 BEGIN PGM 3165_IT MM 
1 ;Programma per la fresatura di un filetto esterno
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 dall'alto verso il basso. 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 ;!Nel programma richiamato i dati, ad esempio numero
18 ;utensile, dati di taglio e parametri, devono essere
19 ;adattati!
20 CALL PGM 31651_it.h
21 ;
22 ;Chiamata utensile fresa per filettare
23 TOOL CALL 10 Z S5000
24 ;
25 ;Immissione parametri
26 FN 0: Q1 =+50 ;CENTRO X
27 FN 0: Q2 =+50 ;CENTRO Y
28 FN 0: Q4 =-1 ;SENSO DI ROTAZIONE +/-1
29 ;            ;-1=IN SENSO ORARIO
30 ;            ;+1=IN SENSO ANTIORARIO
31 FN 0: Q5 =+180 ;DIVISIONE
32 FN 0: Q6 =+40 ;PARTENZA RAGGIO INTERNO
33 FN 0: Q7 =+0 ;ANGOLO DI PARTENZA
34 FN 0: Q8 =+15 ;ANGOLO AL CONO
35 FN 0: Q9 =+3 ;PASSO
36 FN 0: Q10 =+2 ;ALTEZZA DI SICUREZZA
37 FN 0: Q11 =+300 ;AVANZAMENTO PREPOSIZIONAMENTO
38 FN 0: Q12 =+1000 ;AVANZAMENTO FRESATURA
39 FN 0: Q3 =+0 ;PARTENZA COORDINATA Z
40 FN 0: Q13 =-30 ;FINE COORDINATA Z
41 FN 0: Q14 =+1 ;SOVRAMETALLO IN PIANO X/Y
42 FN 0: Q16 =+2 ;DISTANZA DI SICUREZZA LATERALE
43 ;Fine immissione parametri
44 ;
45 ;Richiamo della lavorazione
46 CALL LBL 1
47 STOP
48 ;
49 ;Immissione parametri finitura
50 FN 0: Q5 =+360 ;DIVISIONE
51 FN 0: Q12 =+500 ;AVANZAMENTO FRESATURA
52 FN 0: Q14 =+0 ;SOVRAMETALLO DEL PIANO X/Y
53 ;
54 ;Richiamo della lavorazione
55 CALL LBL 1
56 ;
57 ;Disimpegno e fine programma
58 L  Z+100 R0 FMAX M30
59 ;
60 ;Lavorazione
61 LBL 1
62 ;Calcoli
63 FN 3: Q31 =+Q16 * +1 ;Calcolo distanza di sicurezza laterale
64 FN 3: Q38 =+Q108 * +1 ;Calcolo raggio utensile
65 FN 3: Q39 =+Q14 * +1 ;Calcolo sovrametallo
66 FN 0: Q23 =+Q3 ;Coordinata Z corrente
67 FN 0: Q25 =+0 ;Contatore
68 FN 1: Q26 =+Q6 + +Q38 ;Compensazione raggio utensile
69 FN 1: Q26 =+Q26 + +Q39 ;Compensazione sovrametallo
70 FN 1: Q28 =+Q26 + +Q31 ;Raggio preposizionamento
71 FN 0: Q27 =+Q7 ;Angolo corrente
Q36 = TAN Q8 * Q9 ;Modifica raggio ogni 360°
72 FN 4: Q36 =+Q36 DIV +Q5 ;Grandezza incremento raggio
73 FN 4: Q37 =+360 DIV +Q5 ;Grandezza incremento angolo
74 FN 3: Q37 =+Q37 * +Q4 ;Passo angolare nel senso di rotazione
75 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
76 ;Fine calcoli
77 ;
78 CC  X+Q1  Y+Q2 ;Definizione centro
79 LP  PR+Q28  PA+Q7 R0 FMAX M3 ;Preposizionamento
80 L  Z+Q10 R0 FMAX ;Posizionamento alla distanza di sicurezza
81 L  Z+Q3 R0 FQ11 ;Posizionamento su coordinata di partenza Z
82 LP  PR+Q26  PA+Q7 R0 FQ12 ;Posizionamento sul raggio di partenza
83 LBL 2 ;Ripetizioni
84 FN 1: Q26 =+Q26 + +Q36 ;Aggiornamento del raggio
85 FN 1: Q27 =+Q27 + +Q37 ;Aggiornamento dell'angolo
86 FN 7: Q21 = COS +Q27 ;Calcolo coordinata X
87 FN 3: Q21 =+Q21 * +Q26 ;Calcolo coordinata X
88 FN 1: Q21 =+Q21 + +Q1 ;Nuova coordinata X
89 FN 6: Q22 = SIN +Q27 ;Calcolo coordinata Y
90 FN 3: Q22 =+Q26 * +Q22 ;Calcolo coordinata Y
91 FN 1: Q22 =+Q22 + +Q2 ;Nuova coordinata Y
92 FN 1: Q23 =+Q23 + +Q33 ;Nuova coordinata Z
93 FN 1: Q25 =+Q25 + +1 ;Aggiornamento del contatore
94 L  X+Q21  Y+Q22  Z+Q23 FQ12 ;Raggiungimento nuove coordinate
95 FN 12: IF +Q25 LT +Q35 GOTO LBL 2 ;Confronto se raggiunto numero di passate
96 LP IPR+Q31 ;Disimpegno laterale
97 L  Z+Q10 R0 FMAX ;Posizionamento alla distanza di sicurezza
98 LBL 0
99 END PGM 3165_IT MM