0 BEGIN PGM 3255_IT MM 
1 ;Programma NC per la lavorazione di un profilo
2 ;con il ciclo 25 e per la successiva spianatura
3 ;dello smusso su bordo superiore.
4 ;Il controllo numerico spiana lo smusso in linee
5 ;isometriche. Per il calcolo delle linee
6 ;isometriche il controllo numerico legge il raggio
7 ;utensile 2 dalla tabella utensili. La lavorazione
8 ;può quindi essere eseguita con una fresa a
9 ;candela, una fresa sferica o una fresa torica
10 ;senza apportare alcuna modifica nel programma NC.
11 ;
12 BLK FORM 0.1 Z X+0 Y+0 Z-20
13 BLK FORM 0.2  X+100  Y+100  Z+0
14 ;
15 ;Chiamata utensile per fresatura profilo
16 TOOL CALL "MILL_D24_ROUGH" Z S6000 F2000
17 ;
18 L  Z+100 R0 FMAX M3 ;Disimpegno
19 ;
20 CYCL DEF 14.0 PROFILO
21 CYCL DEF 14.1 LABEL PROFILO10
22 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
23 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
24 M99 ;Chiamata ciclo
25 ;
26 ;Fresatura chiamata utensile per smusso
27 TOOL CALL "BALL_MILL_D10" Z S6000 F2000
28 ;
29 L  Z+100 R0 FMAX M3
30 ;
31 ;Immissione parametri per smusso
Q50 = 30 ;ANGOLO SMUSSO
Q51 = 0.2 ;DISTANZA DELLE LINEE ISOMETRICHE
Q52 = 2.5 ;LUNGHEZZA SMUSSO IN ALTO
32 CALL LBL "FASE" ;Chiamata sottoprogramma per fresatura smusso
33 ;
34 L  Z+100 R0 FMAX ;Disimpegno
35 M30 ;Fine programma
36 ;
37 ;Sottoprogrammi
38 LBL 10 ;Profilo
39 L  X+10  Y+10
40 L  Y+90
41 CR  X+90  Y+90 R+100 DR+
42 L  Y+10
43 CR  X+10  Y+10 R+100 DR-
44 LBL 0
45 ;
46 ;Sottoprogramma per lo smusso
47 LBL "FASE"
48 CYCL DEF 14.0 PROFILO
49 CYCL DEF 14.1 LABEL PROFILO10
Q49 = Q108 + 2 ;Raggio per avvicinamento tangenziale
50 CYCL DEF 270 DATI PROF. SAGOMATO ~
   Q390=+2    ;TIPO DI AVVICINAM. ~
    Q391=+1    ;CORREZIONE RAGGIO ~
    Q392=+Q49  ;RAGGIO ~
    Q393=+90   ;ANGOLO DEL CENTRO ~
    Q394=+0    ;DISTANZA
51 FN 18: SYSREAD Q65 = ID50 NR3 ;Lettura R2 da utensile attivo
Q61 = 0 ;Inizio Z
52 LBL 1
Q60 = Q52 / ( TAN Q50 ) ;Profondità totale Z
Q61 = Q61 + Q51 ;Calcolo coordinata Z della nuova linea isometrica
53 FN 11: IF +Q61 GT +Q60 GOTO LBL "ENDE1" ;Verifica se nuova profondità maggiore di profondità totale
54 FN 9: IF +Q61 EQU +Q60 GOTO LBL "ENDE1" ;Verifica se nuova profondità uguale a profondità totale
Q62 = Q61 + ( Q65 - SIN Q50 * Q65 ) ;Calcolo della nuova coordinata Z tenendo conto del raggio utensile R2
Q63 = ( Q52 - TAN Q50 * Q61 ) + ( Q65 - COS Q50 * Q65 ) ;Calcolo del sovrametallo per linea isometrica
55 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
56 M99 ;Chiamata ciclo
57 FN 9: IF +0 EQU +0 GOTO LBL 1 ;Salto
58 ;
59 ;Sottoprogramma per l'ultima linea isometrica
60 LBL "ENDE1"
Q61 = Q60 ;Profondità finale
Q62 = Q61 + ( Q65 - SIN Q50 * Q65 ) ;Coordinata Z tenendo conto del raggio utensile R2 
Q63 = ( Q52 - TAN Q50 * Q61 ) + ( Q65 - COS Q50 * Q65 ) ;Calcolo del sovrametallo per linea isometrica
61 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
62 M99 ;Chiamata ciclo
63 L  Z+20 R0 FMAX ;Disimpegno
64 LBL 0
65 END PGM 3255_IT MM