0 BEGIN PGM 1110_IT MM 
1 ;Programma per la definizione di una sagoma
2 ;di punti nella forma di un cerchio. In
3 ;questo esempio è presente la combinazione
4 ;con un secondo programma, in cui i fori
5 ;vengono creati mediante fresatura in
6 ;questo primo programma sono programmati
7 ;movimenti elicoidali e non viene impiegato
8 ;alcun ciclo.
9 ;Dopo la definizione di tutti i parametri
10 ;necessari e dell'utensile, viene definito
11 ;il ciclo di lavorazione. In questo esempio,
12 ;il con ciclo 12 viene richiamato il secondo
13 ;programma. In seguito vengono raggiunte le
14 ;singole posizioni e viene richiamato il ciclo.
15 ;
16 ;Immissione parametri cerchio forato
17 FN 0: Q31 =+40 ;RAGGIO CERCHIO FORATO
18 FN 0: Q32 =+0 ;ANGOLO DI PARTENZA
19 FN 0: Q33 =+50 ;CENTRO CERCHIO FORATO NELL'ASSE X
20 FN 0: Q34 =+50 ;CENTRO CERCHIO FORATO NELL'ASSE Y
21 FN 0: Q35 =+30 ;PASSO ANGOLARE
22 FN 0: Q36 =+12 ;NUMERO DELLE LAVORAZIONI
23 ;Immissione parametri fine cerchio forato
24 ;Immissione parametri fori
25 FN 0: Q40 =+10 ;DIAMETRO FORO
26 FN 0: Q41 =-30 ;PROFONDITA'
27 FN 0: Q42 =+25 ;NUMERO DELLE TRAIETTORIE ELICOIDALI
28 FN 0: Q43 =+2 ;DISTANZA DI SICUREZZA
29 FN 0: Q44 =+1200 ;AVANZAMENTO FRESATURA
30 ;Immissione parametri fine fori
31 ;
32 ;Calcoli
33 ;Cerchio forato
34 FN 2: Q37 =+Q36 - +2 ;Numero di ripetizioni
35 ;Fori
36 FN 4: Q45 =+Q40 DIV +2 ;Raggio del foro
37 FN 3: Q46 =+Q42 * +360 ;Angolo della traiettoria elicoidale
38 ;Fine calcoli
39 ;
40 BLK FORM 0.1 Z X+0 Y+0 Z-40
41 BLK FORM 0.2  X+100  Y+100  Z+0
42 ;
43 ;Chiamata utensile fresa
44 TOOL CALL 4 Z S8000
45 ;
46 ;Disimpegno
47 L  Z+100 R0 FMAX M3
48 ;
49 ;Definizione del programma 11101_it.h come ciclo
50 CYCL DEF 12.0 PGM CALL
51 CYCL DEF 12.1 PGM 11101_it.h
52 ;
53 CALL LBL 1 ;Richiamo posizioni
54 ;
55 ;Disimpegno e fine programma
56 L  Z+50 R0 F9999 M2
57 ;
58 ;Sottoprogramma posizioni
59 LBL 1
60 CC  X+Q33  Y+Q34 ;Centro cerchio forato
61 LP  PR+Q31  PA+Q32 R0 F9999 ;Prima posizione
62 CYCL CALL
63 LBL 2
64 CC  X+Q33  Y+Q34 ;Centro circonferenza fori
65 LP IPA+Q35 F9999 M99 ;Passo angolare
66 CALL LBL 2 REPQ37
67 LBL 0
68 END PGM 1110_IT MM