0 BEGIN PGM 3120_IT MM 
1 ;Programma per la fresatura di un profilo e
2 ;successivamente per l'arrotondamento con
3 ;raggio definito su bordo superiore.
4 ;Nell'esempio è programmato un profilo come
5 ;isola. Dopo aver definito i parametri
6 ;necessari, il controllo numerico svuota il
7 ;profilo. In seguito calcola le modifiche del
8 ;profilo in base alla relativa profondità.
9 ;Il controllo numerico la impiega quindi come
10 ;sovrametallo laterale nel ciclo per spianare
11 ;l'arrotondamento in linee isometriche.
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 ;Immissione parametri
17 FN 0: Q31 =+15 ;PROFONDITA' PROFILO
18 FN 0: Q32 =+5 ;PROFONDITA' DI PENETRAZIONE FRESATURA PROFILO
19 FN 0: Q33 =+1200 ;AVANZAMENTO FRESATURA PROFILO
20 FN 0: Q34 =+300 ;AVANZAMENTO IN PROFONDITA'
21 FN 0: Q41 =+8 ;RAGGIO DELLO SMUSSO
22 FN 0: Q42 =+0.1 ;PROFONDITA' DI PENETRAZIONE PER FRESATURA DEL RAGGIO
23 FN 0: Q48 =+3000 ;AVANZAMENTO FRESATURA RAGGIO
24 ;Fine immissione parametri
25 ;
26 ;Chiamata utensile fresa a candela
27 TOOL CALL 13 Z S1000
28 ;
29 ;Posizionamento ad altezza di sicurezza
30 L  Z+100 R0 FMAX M3
31 ;
32 ;Fresa per profilo
33 CYCL DEF 14.0 PROFILO
34 CYCL DEF 14.1 LABEL PROFILO1 /2
35 CYCL DEF 20 DATI DEL PROFILO ~
   Q1=-Q31  ;PROFONDITA'FRESATURA ~
    Q2=+1    ;SOVRAPP.TRAIET.UT. ~
    Q3=+0    ;QUOTA LATERALE CONS. ~
    Q4=+0    ;PROFONDITA' CONSEN. ~
    Q5=+0    ;COORD. SUPERFICIE ~
    Q6=+0    ;DISTANZA SICUREZZA ~
    Q7=+0    ;ALTEZZA DI SICUREZZA ~
    Q8=+0    ;RAGGIO DELLO SMUSSO ~
    Q9=+1    ;SENSO DI ROTAZIONE
36 CYCL DEF 22 SVUOTAMENTO ~
   Q10=-Q32  ;PROF. INCREMENTO ~
    Q11=+Q34  ;AVANZ. INCREMENTO ~
    Q12=+Q33  ;AVANZ. PER SVUOT. ~
    Q18=+0    ;UTENSILE SGROSSATURA ~
    Q19=+Q33  ;AVANZAMENTO PENDOL.
37 CYCL CALL M13
38 ;
39 ;Spianatura arrotondamento
40 FN 0: Q44 =+Q42
41 LBL 3
42 ;Calcoli della modifica del profilo con nuova profondità
Q43 = Q41 * Q41
Q45 = Q41 - Q42
43 FN 3: Q45 =+Q45 * +Q45
Q43 = Q43 - Q45
Q43 = SQRT Q43
44 FN 2: Q50 =+Q41 - +Q43
45 ;Fine calcoli
46 ;Definizione ciclo
47 CYCL DEF 14.0 PROFILO
48 CYCL DEF 14.1 LABEL PROFILO1
49 CYCL DEF 25 CONTORNATURA ~
   Q1=-Q42  ;PROFONDITA'FRESATURA ~
    Q3=-Q50  ;QUOTA LATERALE CONS. ~
    Q5=+0    ;COORD. SUPERFICIE ~
    Q7=+2    ;ALTEZZA DI SICUREZZA ~
    Q10=-Q42  ;PROF. INCREMENTO ~
    Q11=+Q34  ;AVANZ. INCREMENTO ~
    Q12=+Q48  ;AVANZ. PER SVUOT. ~
    Q15=+1    ;MODO FRESATURA
50 CYCL CALL M13
51 ;
52 FN 1: Q42 =+Q42 + +Q44 ;Aggiornamento della profondità
53 ;Confronto se sono necessarie ulteriori traiettorie
54 FN 12: IF +Q42 LT +Q41 GOTO LBL 3
55 FN 9: IF +Q42 EQU +Q41 GOTO LBL 3
56 ;
57 ;Disimpegno e fine programma
58 L  Z+100 R0 FMAX M30
59 ;
60 ;Sottoprogrammi dei profili
61 LBL 1 ; PGM PROFILO
62 L  X+5  Y+30 RL
63 CC  X+15  Y+30
64 C  X+6.645  Y+35.495 DR-
65 CT  X+55.505  Y+69.488
66 CT  X+58.995  Y+30.025
67 CT  X+19.732  Y+21.191
68 CT  X+5  Y+30
69 LBL 0
70 ;
71 LBL 2 ;PGM Cornice
72 L  X-30  Y-20 RR
73 L  Y+120
74 L  X+120
75 L  Y-20
76 L  X-30
77 LBL 0
78 END PGM 3120_IT MM