0 BEGIN PGM 2115_IT MM 
1 ;Programma per la fresatura di un poligono.
2 ;La grandezza si definisce con la distanza tra
3 ;le facce "apertura". Questa viene convertita
4 ;internamente nel raggio di arrotondamento sullo
5 ;spigolo, che poi viene raggiunto come blocco
6 ;lineare-polare. L'utensile viene preposizionato
7 ;sfasato rispetto al primo spigolo del suo
8 ;diametro e si avvicina quindi al profilo in un
9 ;raggio. Tutti i parametri necessari si definiscono
10 ;all'inizio del programma.
11 ;
12 ;Immissione parametri
13 FN 0: Q1 =+50 ;CENTRO PROFILO NELL'ASSE X
14 FN 0: Q2 =+50 ;CENTRO PROFILO NELL'ASSE Y
15 FN 0: Q3 =-10 ;PROFONDITA'
16 FN 0: Q4 =-1 ;SENSO DI ROTAZIONE
17 ;            ;-1=IN SENSO ORARIO
18 ;            ;+1=IN SENSO ANTIORARIO
19 FN 0: Q5 =+6 ;NUMERO DI SPIGOLI
20 FN 0: Q9 =+80 ;APERTURA
21 FN 0: Q7 =+30 ;POSIZIONE ANGOLARE PRIMO SPIGOLO
22 FN 0: Q10 =+2 ;DISTANZA DI SICUREZZA
23 FN 0: Q11 =+500 ;AVANZAMENTO IN PROFONDITA'
24 FN 0: Q12 =+250 ;AVANZAMENTO FRESATURA
25 FN 0: Q14 =+0 ;SOVRAMETALLO LATERALE
26 FN 0: Q15 =+1 ;COMPENSAZIONE RAGGIO
27 ;             ;0=NESSUNA COMPENSAZIONE RAGGIO
28 ;             ;1=COMPENSAZIONE RAGGIO A SINISTRA
29 ;             ;2=COMPENSAZIONE RAGGIO A DESTRA
30 ;Fine immissione parametri
31 ;
32 BLK FORM 0.1 Z X+0 Y+0 Z-22
33 BLK FORM 0.2  X+100  Y+100  Z+0
34 ;
35 ;Chiamata utensile fresa
36 TOOL CALL 16 Z S4000
37 ;
38 CALL LBL 1
39 ;
40 ;Disimpegno e fine programma
41 L  Z+100 R0 FMAX M2
42 ;
43 ;Calcolo del profilo
44 LBL 1
45 FN 4: Q20 =+Q9 DIV +2
46 ;Calcolo del profilo
47 FN 1: Q21 =+Q20 + +Q14 ;Somma del sovrametallo
Q22 = 360 / Q5 / 2 ;Definizione di metà passo angolare
Q6 = Q21 / COS Q22 ;Calcolo del raggio di arrotondamento su spigolo
48 ;
49 CC  X+Q1  Y+Q2 ;Definizione centro
50 FN 0: Q27 =+Q7 ;Valore corrente=valore primo spigolo
51 FN 4: Q28 =+Q108 DIV +2 ;Raggio di avvicinamento e allontanamento
52 FN 3: Q29 =+Q108 * +2 ;Diametro utensile
53 FN 1: Q29 =+Q6 + +Q29 ;Raggio per preposizionamento
54 FN 0: Q35 =+1 ;Contatore
55 FN 4: Q37 =+360 DIV +Q5 ;Passo angolare
56 FN 3: Q37 =+Q37 * +Q4 ;Passo angolare nel senso di rotazione
57 LP  PR+Q29  PA+Q7 R0 FMAX M3 ;Preposizionamento
58 L  Z+Q10 FMAX ;Preposizionamento Z
59 L  Z+Q3 FQ11 ;Avanzamento in profondità
60 ;Selezione della traiettoria con compensazione raggio
61 FN 9: IF +Q15 EQU +1 GOTO LBL 11
62 FN 9: IF +Q15 EQU +2 GOTO LBL 12
63 LP  PR+Q6  PA+Q7 R0 FQ12 ;Raggiungimento del primo spigolo
64 RND RQ28 FQ12
65 FN 9: IF +0 EQU +0 GOTO LBL 2
66 ;
67 LBL 11
68 LP  PR+Q6  PA+Q7 RL FQ12 ;Raggiungimento del primo spigolo
69 RND RQ28 FQ12
70 FN 9: IF +0 EQU +0 GOTO LBL 2
71 ;
72 LBL 12
73 LP  PR+Q6  PA+Q7 RR FQ12 ;Raggiungimento del primo spigolo
74 RND RQ28 FQ12
75 LBL 2
76 FN 1: Q35 =+Q35 + +1 ;Ulteriore calcolo del contatore
77 FN 1: Q27 =+Q27 + +Q37 ;Ulteriore calcolo dell'angolo
78 LP  PR+Q6  PA+Q27 FQ12 ;Raggiungimento dello spigolo successivo
79 FN 12: IF +Q35 LT +Q5 GOTO LBL 2
80 LP  PR+Q6  PA+Q7 FQ12 ;Raggiungimento del primo/ultimo spigolo
81 RND RQ28
82 LP  PR+Q29  PA+Q7 R0 FQ12 ;Distacco dal profilo
83 L  Z+Q10 R0 FMAX ;Posizionamento a distanza di sicurezza in Z
84 LBL 0
85 END PGM 2115_IT MM