0 BEGIN PGM 1015_IT MM 
1 ;Programma per la definizione di una
2 ;sagoma di punti sotto forma di una
3 ;spirale con distanze costanti tra
4 ;le posizioni.
5 ;Per la lavorazione viene richiamato
6 ;un ciclo di lavorazione sulle posizioni
7 ;calcolate. In questo programma un ciclo
8 ;di foratura. Dopo la definizione di
9 ;tutti i parametri necessari,
10 ;dell'utensile e del ciclo di lavorazione
11 ;viene richiamato un sottoprogramma in cui
12 ;le singole posizioni vengono calcolate e
13 ;raggiunte e il ciclo viene eseguito.
14 ;
15 ;Immissione parametri
16 FN 0: Q1 =+45 ;RAGGIO FINALE
17 FN 0: Q2 =+5 ;RAGGIO DI PARTENZA
18 FN 0: Q3 =+60 ;PASSO ANGOLARE INIZIALE
19 FN 0: Q4 =+2.5 ;PASSO RAGGIO
20 FN 0: Q5 =+50 ;CENTRO NELL'ASSE X
21 FN 0: Q6 =+50 ;CENTRO NELL'ASSE Y
22 FN 0: Q7 =+2 ;DISTANZA DI SICUREZZA
23 FN 0: Q8 =+20 ;ROTAZIONE
24 ;Fine immissione parametri
25 ;
26 BLK FORM 0.1 Z X+0 Y+0 Z-12
27 BLK FORM 0.2  X+100  Y+95  Z+0
28 ;
29 ;Chiamata utensile punta
30 TOOL CALL 225 Z S2000
31 ;
32 ;Definizione ciclo di lavorazione
33 CYCL DEF 1.0 PERCAGE PROFOND
34 CYCL DEF 1.1 DIST2
35 CYCL DEF 1.2 PROF-10
36 CYCL DEF 1.3 PASSE10
37 CYCL DEF 1.4 TEMP0
38 CYCL DEF 1.5 F1000
39 ;
40 CC  X+Q5  Y+Q6 ;Definizione centro
41 LP  PR+0  PA+0 R0 FMAX M3 ;Preposizionamento al centro
42 CYCL DEF 10.0 ROTATION
43 CYCL DEF 10.1  ROT+Q8
44 CALL LBL 2 ;Chiamata dei calcoli
45 ;Disimpegno e fine programma
46 L  Z+100 R0 F9999 M2
47 ;
48 LBL 2 ;Calcoli
49 LP  PR+Q2  PA+0 R0 F9998
50 L  Z+Q7
51 FN 0: Q14 =+Q4
52 FN 0: Q13 =+Q3
53 FN 3: Q34 =+Q2 * +Q4
54 FN 3: Q33 =+Q2 * +Q3
55 FN 0: Q24 =+Q2
56 FN 0: Q23 =+0
57 LBL 1
58 FN 4: Q14 =+Q34 DIV +Q24
59 FN 4: Q13 =+Q33 DIV +Q24
60 FN 1: Q24 =+Q24 + +Q14
61 FN 1: Q23 =+Q23 + +Q13
62 LP  PR+Q24  PA+Q23 M99 ;Raggiungimento della posizione e chiamata ciclo
63 FN 11: IF +Q1 GT +Q24 GOTO LBL 1 ;Confronto se viene raggiunto il raggio finale
64 LBL 0
65 END PGM 1015_IT MM