0 BEGIN PGM 3250_IT MM 
1 ;Programma NC per la lavorazione di un profilo con
2 ;il ciclo 25 e per l'arrotondamento del bordo
3 ;superiore con un raggio definito.
4 ;Il controllo numerico spiana questo arrotondamento
5 ;in linee isometriche. Per il calcolo delle linee
6 ;isometriche il controllo numerico legge il raggio
7 ;utensile 2 dalla tabella utensili.
8 ;La lavorazione può quindi essere eseguita con una
9 ;fresa a candela, una fresa sferica o una fresa
10 ;torica senza apportare alcuna modifica nel
11 ;programma NC.
12 ;
13 BLK FORM 0.1 Z X+0 Y+0 Z-20
14 BLK FORM 0.2  X+100  Y+100  Z+0
15 ;
16 ;Chiamata utensile per fresatura profilo
17 TOOL CALL "MILL_D24_ROUGH" Z S6000 F2000
18 ;
19 L  Z+100 R0 FMAX M3 ;Disimpegno
20 ;
21 CYCL DEF 14.0 PROFILO
22 CYCL DEF 14.1 LABEL PROFILO10
23 CYCL DEF 270 DATI PROF. SAGOMATO ~
   Q390=+2    ;TIPO DI AVVICINAM. ~
    Q391=+1    ;CORREZIONE RAGGIO ~
    Q392=+10   ;RAGGIO ~
    Q393=+90   ;ANGOLO DEL CENTRO ~
    Q394=+0    ;DISTANZA
24 CYCL DEF 25 CONTORNATURA ~
   Q1=-15   ;PROFONDITA'FRESATURA ~
    Q3=+0    ;QUOTA LATERALE CONS. ~
    Q5=+0    ;COORD. SUPERFICIE ~
    Q7=+50   ;ALTEZZA DI SICUREZZA ~
    Q10=-5    ;PROF. INCREMENTO ~
    Q11=+150  ;AVANZ. INCREMENTO ~
    Q12=+500  ;AVANZ. PER SVUOT. ~
    Q15=+1    ;MODO FRESATURA ~
    Q18=+0    ;UTENSILE SGROSSATURA ~
    Q446=+0.01 ;MATERIALE RESIDUO ~
    Q447=+10   ;DISTANZA COLLEGAM. ~
    Q448=+2    ;ESTENS. TRAIETTORIA
25 M99 ;Chiamata ciclo
26 ;
27 ;Chiamata utensile per fresatura arrotondamento
28 TOOL CALL "TORUS_MILL_D16_3" Z S6000 F2000
29 ;
30 L  Z+100 R0 FMAX M3 ;Disimpegno
31 ;
32 ;Immissione parametri per arrotondamento
Q50 = 6 ;RAGGIO BORDO
Q51 = 3 ;AVANZAMENTO IN GRADI
33 CALL LBL "RADIUS" ;Chiamata sottoprogramma per fresatura arrotondamento
34 ;
35 L  Z+100 R0 FMAX ;Disimpegno
36 M30 ;Fine programma
37 ;
38 ;Sottoprogrammi
39 LBL 10 ;Profilo
40 L  X+10  Y+10
41 L  Y+90
42 CR  X+90  Y+90 R+100 DR+
43 L  Y+10
44 CR  X+10  Y+10 R+100 DR-
45 LBL 0
46 ;
47 ;Sottoprogramma per l'arrotondamento
48 LBL "RADIUS"
49 CYCL DEF 14.0 PROFILO
50 CYCL DEF 14.1 LABEL PROFILO10
51 CYCL DEF 270 DATI PROF. SAGOMATO ~
   Q390=+2    ;TIPO DI AVVICINAM. ~
    Q391=+1    ;CORREZIONE RAGGIO ~
    Q392=+0    ;RAGGIO ~
    Q393=+0    ;ANGOLO DEL CENTRO ~
    Q394=+0    ;DISTANZA
52 FN 18: SYSREAD Q65 = ID50 NR3 ;Lettura R2 da utensile attivo
Q61 = 0 ;Angolo di partenza
53 LBL 1 ;Label
Q61 = Q61 + Q51 ;Ripresa dell'angolo
54 FN 11: IF +Q61 GT +90 GOTO LBL "ENDE1" ;Verifica se angolo maggiore di 90°
55 FN 9: IF +Q61 EQU +90 GOTO LBL "ENDE1" ;Verifica se angolo uguale a 90°
Q62 = ( Q50 - COS Q61 * Q50 ) + ( Q65 - COS Q61 * Q65 ) ;Calcolo della profondità di fresatura per linea isometria
Q63 = ( Q50 - SIN Q61 * Q50 ) + ( Q65 - SIN Q61 * Q65 ) ;Calcolo del sovrametallo per linea isometrica
56 CYCL DEF 25 CONTORNATURA ~
   Q1=-Q62  ;PROFONDITA'FRESATURA ~
    Q3=-Q63  ;QUOTA LATERALE CONS. ~
    Q5=+0    ;COORD. SUPERFICIE ~
    Q7=+2    ;ALTEZZA DI SICUREZZA ~
    Q10=-Q62  ;PROF. INCREMENTO ~
    Q11= AUTO ;AVANZ. INCREMENTO ~
    Q12= AUTO ;AVANZ. PER SVUOT. ~
    Q15=+1    ;MODO FRESATURA ~
    Q18=+0    ;UTENSILE SGROSSATURA ~
    Q446=+0.01 ;MATERIALE RESIDUO ~
    Q447=+10   ;DISTANZA COLLEGAM. ~
    Q448=+2    ;ESTENS. TRAIETTORIA
57 M99 ;Chiamata ciclo
58 FN 9: IF +0 EQU +0 GOTO LBL 1 ;Salto
59 ;
60 ;Sottoprogramma per l'ultima linea isometrica
61 LBL "ENDE1"
Q61 = 90 ;Angolo finale
Q62 = ( Q50 - COS Q61 * Q50 ) + ( Q65 - COS Q61 * Q65 ) ;Profondità dell'ultima linea isometrica
Q63 = ( Q50 - SIN Q61 * Q50 ) + ( Q65 - SIN Q61 * Q65 ) ;Sovrametallo per l'ultima linea isometrica
62 CYCL DEF 25 CONTORNATURA ~
   Q1=-Q62  ;PROFONDITA'FRESATURA ~
    Q3=-Q63  ;QUOTA LATERALE CONS. ~
    Q5=+0    ;COORD. SUPERFICIE ~
    Q7=+2    ;ALTEZZA DI SICUREZZA ~
    Q10=-Q62  ;PROF. INCREMENTO ~
    Q11= AUTO ;AVANZ. INCREMENTO ~
    Q12= AUTO ;AVANZ. PER SVUOT. ~
    Q15=+1    ;MODO FRESATURA ~
    Q18=+0    ;UTENSILE SGROSSATURA ~
    Q446=+0.01 ;MATERIALE RESIDUO ~
    Q447=+10   ;DISTANZA COLLEGAM. ~
    Q448=+2    ;ESTENS. TRAIETTORIA
63 M99 ;Chiamata ciclo
64 L  Z+20 R0 FMAX ;Disimpegno
65 LBL 0
66 END PGM 3250_IT MM