0 BEGIN PGM 2150_IT MM 
1 ;Programma NC per la realizzazione di una tasca
2 ;circolare in cui fondo della tasca e superficie
3 ;perimetrale vengono arrotondati tra loro.
4 ;La lavorazione viene eseguita con una fresa torica.
5 ;Dopo aver definito i parametri necessari e
6 ;l'utensile, il controllo numerico esegue alcuni
7 ;calcoli. In seguito esegue la prefresatura del
8 ;profilo con tasche circolari. Viene quindi
9 ;eseguita una nuova chiamata utensile ma con una
10 ;compensazione lineare del raggio del tagliente R2,
11 ;affinché la lunghezza utensile calcolata sia
12 ;definita al centro del tagliente. Successivamente
13 ;il controllo numerico calcola in un loop la
14 ;traiettoria utensile in linee isometriche per
15 ;realizzare il raggio e lo lavora.
16 ;!Nota! Il centro della tasca si trova in X/Y 0 e il
17 ;bordo superiore della tasca è Z0. All'occorrenza è
18 ;necessario spostare il punto zero sul centro e
19 ;all'altezza della tasca.
20 ;
21 ;Immissione parametri
Q1600 = 100 ;DIAMETRO
Q1601 = 50 ;PROFONDITA'
Q1602 = 15 ;RAGGIO ARROTONDAMENTO
Q1603 = 5 ;DISTANZA DI SICUREZZA
Q1604 = 50 ;2. DISTANZA DI SICUREZZA
Q1605 = 1 ;PASSO ANGOLARE NEL RAGGIO
Q1606 = 12.5 ;RAGGIO UTENSILE
Q1607 = 5 ;RAGGIO TAGLIENTE UTENSILE R2
Q1608 = 3000 ;AVANZAMENTO FRESATURA
Q1609 = 5 ;PROFONDITA' DI PENETRAZIONE IN PREFRESATURA
22 ;Fine immissione parametri
23 ;
24 BLK FORM 0.1 Z X-60 Y-60 Z-70
25 BLK FORM 0.2  X+60  Y+60  Z+0
26 ;
27 ;Chiamata utensile per la fresatura delle tasche
28 TOOL CALL "TORUS_MILL_D25_5" Z S14000
29 ;
30 ;Calcoli
31 FN 2: Q1610 =+Q1601 - +Q1602 ;Profondità 1ª tasca
Q1611 = Q1600 - ( 2 * Q1602 ) ;Diametro 2ª tasca
Q1612 = Q1610 + Q1605 ;2ª distanza di sicurezza 2ª tasca
32 ;Fine calcoli
33 ;
34 ;Disimpegno
35 L  Z+100 R0 FMAX M3
36 ;
37 ;Fresatura 1ª tasca
38 CYCL DEF 252 TASCA CIRCOLARE ~
   Q215=+1    ;TIPO LAVORAZIONE ~
    Q223=+Q1600 ;DIAMETRO CERCHIO ~
    Q368=+0    ;QUOTA LATERALE CONS. ~
    Q207=+Q1608 ;AVANZAM. FRESATURA ~
    Q351=+1    ;MODO FRESATURA ~
    Q201=-Q1610 ;PROFONDITA ~
    Q202=+Q1609 ;PROF. INCREMENTO ~
    Q369=+0    ;PROFONDITA' CONSEN. ~
    Q206=+Q1608 ;AVANZ. INCREMENTO ~
    Q338=+0    ;INCREMENTO FINITURA ~
    Q200=+Q1603 ;DISTANZA SICUREZZA ~
    Q203=+0    ;COORD. SUPERFICIE ~
    Q204=+50   ;2. DIST. SICUREZZA ~
    Q370=+0.4  ;SOVRAPP.TRAIET.UT. ~
    Q366=+1    ;PENETRAZIONE ~
    Q385=+Q1608 ;AVANZAMENTO FINITURA
39 L  X+0  Y+0 R0 FMAX M99
40 ;
41 ;Fresatura 2ª tasca
42 CYCL DEF 252 TASCA CIRCOLARE ~
   Q215=+1    ;TIPO LAVORAZIONE ~
    Q223=+Q1611 ;DIAMETRO CERCHIO ~
    Q368=+0    ;QUOTA LATERALE CONS. ~
    Q207=+Q1608 ;AVANZAM. FRESATURA ~
    Q351=+1    ;MODO FRESATURA ~
    Q201=-Q1602 ;PROFONDITA ~
    Q202=+Q1609 ;PROF. INCREMENTO ~
    Q369=+0    ;PROFONDITA' CONSEN. ~
    Q206=+Q1608 ;AVANZ. INCREMENTO ~
    Q338=+0    ;INCREMENTO FINITURA ~
    Q200=+Q1603 ;DISTANZA SICUREZZA ~
    Q203=-Q1610 ;COORD. SUPERFICIE ~
    Q204=+Q1612 ;2. DIST. SICUREZZA ~
    Q370=+0.4  ;SOVRAPP.TRAIET.UT. ~
    Q366=+1    ;PENETRAZIONE ~
    Q385=+Q1608 ;AVANZAMENTO FINITURA
43 L  X+0  Y+0 R0 FMAX M99
44 ;
45 ;Chiamata utensile per la fresatura del raggio incluso
46 ;un DL al centro di R2
47 TOOL CALL  Z DL-Q1607
48 ;
49 L  Z+100 R0 FMAX ;Posizionamento ad altezza di sicurezza
50 L  X+0  Y+0 R0 FMAX ;Posizionamento nel centro del cerchio
51 ;
52 ;
53 L  Z+Q1603 R0 FMAX ;Raggiungimento della distanza di sicurezza
Q1609 = Q1600 / 2 - Q1602 ;Raggio D2
Q1610 = Q1606 - Q1607 ;Utensile R1
Q1611 = Q1601 - Q1602 ;Inizio profilo Z
54 L  Z-Q1611 R0 F3000 ;Preposizionamento in Z
Q1612 = Q1600 / 2 - ( Q1606 - Q1607 ) - Q1607 * COS 0 ;Posizione di avvicinamento X
55 L  X+Q1612  Y+0 R0 FQ1608 ;Raggiungimento inizio profilo in X
56 CC  X+0  Y+0 ;Centro cerchio
57 C DR+ ;Esecuzione della traiettoria circolare
Q1613 = 90 ;Angolo finale
Q1614 = 0 ;Angolo corrente
58 LBL 10 ;Loop
Q1614 = Q1614 + Q1605 ;Somma di angolo corrente e passo angolare
Q1615 = Q1609 + Q1602 * COS Q1614 ;Calcolo del punto del profilo in X
Q1616 = Q1611 + Q1602 * SIN Q1614 ;Calcolo del punto del profilo in Z
59 ;
Q1617 = Q1615 - Q1610 - Q1607 * COS Q1614 ;Posizione traiettoria X
Q1618 = Q1616 - Q1607 * SIN Q1614 ;Posizione traiettoria Z
60 ;
61 L  X+Q1617  Z-Q1618 ;Raggiungimento del valore X e Z calcolato
62 C DR+ ;Esecuzione della traiettoria circolare
63 ;
64 FN 12: IF +Q1614 LT +Q1613 GOTO LBL 10 ;Se angolo corrente inferiore di angolo finale ripetizione loop
65 ;
66 L  Z+Q1604 R0 FMAX ;Raggiungimento della 2ª distanza di sicurezza
67 ;
68 ;Disimpegno e fine programma
69 L  Z+100 R0 FMAX M30
70 END PGM 2150_IT MM