0 BEGIN PGM 1105_IT MM 
1 ;Programma per la definizione di una sagoma di
2 ;punti sotto forma di una cornice.
3 ;Per la lavorazione viene richiamato un ciclo
4 ;di lavorazione sulle posizioni calcolate. In
5 ;questo programma un ciclo di foratura. Dopo
6 ;la definizione di tutti i parametri necessari,
7 ;dell'utensile e del ciclo di lavorazione
8 ;viene richiamato un sottoprogramma in cui le
9 ;singole posizioni vengono calcolate e
10 ;raggiunte e il ciclo viene eseguito.
11 ;
12 ;Immissione parametri
13 FN 0: Q1 =+15 ;POSIZIONE DI PARTENZA NELL'ASSE X
14 FN 0: Q2 =+15 ;POSIZIONE DI PARTENZA NELL'ASSE Y
15 FN 0: Q30 =+8 ;NUMERO DELLE LAVORAZIONI IN X
16 FN 0: Q31 =+8 ;NUMERO DELLE LAVORAZIONI IN Y
17 FN 0: Q32 =+10 ;DISTANZA DELLE LAVORAZIONI IN X
18 FN 0: Q33 =+10 ;DISTANZA DELLE LAVORAZIONI IN Y
19 FN 0: Q7 =+0 ;ROTAZIONE
20 FN 0: Q8 =+2 ;DISTANZA DI SICUREZZA
21 ;Fine immissione parametri
22 ;
23 BLK FORM 0.1 Z X+0 Y+0 Z-25
24 BLK FORM 0.2  X+100  Y+100  Z+0
25 ;
26 ;Chiamata utensile punta
27 TOOL CALL 225 Z S5000
28 ;
29 ;Definizione ciclo di lavorazione
30 CYCL DEF 1.0 FORATURA PROF.
31 CYCL DEF 1.1 DISTQ8
32 CYCL DEF 1.2 PROF-20
33 CYCL DEF 1.3 INCR10
34 CYCL DEF 1.4 SOSTA0
35 CYCL DEF 1.5 F100
36 ;
37 CALL LBL 20 ;Chiamata sottoprogramma posizioni
38 ;
39 ;Disimpegno e fine programma
40 L  Z+100 R0 FMAX M2
41 ;
42 LBL 20 ;Definizione delle posizioni
43 FN 12: IF +Q30 LT +3 GOTO LBL 5
44 FN 12: IF +Q31 LT +3 GOTO LBL 5
45 ;Spostamento punto zero sulla prima posizione
46 CYCL DEF 7.0 PUNTO ZERO
47 CYCL DEF 7.1  X+Q1
48 CYCL DEF 7.2  Y+Q2
49 ;Impostazione rotazione
50 CYCL DEF 10.0 ROTAZIONE
51 CYCL DEF 10.1  ROT+Q7
52 ;
53 L  Z+100 R0 FMAX ;Raggiungimento dell'altezza di sicurezza
54 L  X+0  Y+0 R0 FMAX M3 ;Raggiungimento della prima posizione
55 L  Z+Q8 R0 FMAX M99 ;Posizionamento alla distanza di sicurezza e chiamata ciclo
56 FN 2: Q34 =+Q30 - +1 ;Contatore colonne
57 LBL 1
58 FN 2: Q34 =+Q34 - +1 ;Contatore colonne
59 L IX+Q32 FMAX M99 ;Raggiungimento della posizione successiva e chiamata ciclo
60 FN 11: IF +Q34 GT +0 GOTO LBL 1 ;Confronto se altre colonne
61 FN 2: Q35 =+Q31 - +1 ;Contatore righe
62 LBL 2
63 FN 2: Q35 =+Q35 - +1 ;Contatore righe
64 L IY+Q33 FMAX M99 ;Raggiungimento della posizione successiva e chiamata ciclo
65 FN 11: IF +Q35 GT +0 GOTO LBL 2 ;Confronto se altre righe necessarie
66 FN 2: Q34 =+Q30 - +1 ;Contatore colonne
67 LBL 3
68 FN 2: Q34 =+Q34 - +1 ;Contatore colonne
69 L IX-Q32 FMAX M99 ;Raggiungimento della posizione successiva e chiamata ciclo
70 FN 11: IF +Q34 GT +0 GOTO LBL 3 ;Confronto se altre colonne necessarie
71 FN 2: Q36 =+Q31 - +2 ;Contatore righe
72 LBL 4
73 FN 2: Q36 =+Q36 - +1 ;Contatore righe
74 L IY-Q33 FMAX M99 ;Raggiungimento della posizione successiva e chiamata ciclo
75 FN 11: IF +Q36 GT +0 GOTO LBL 4 ;Confronto se altre righe necessarie
76 FN 9: IF +0 EQU +0 GOTO LBL 6 ;Salto a fine sottoprogramma
77 LBL 5
78 FN 14: ERROR= 1011
79 LBL 6
80 ;Reset origine e rotazione
81 CYCL DEF 7.0 PUNTO ZERO
82 CYCL DEF 7.1  X+0
83 CYCL DEF 7.2  Y+0
84 CYCL DEF 7.3  Z+0
85 CYCL DEF 10.0 ROTAZIONE
86 CYCL DEF 10.1  ROT+0
87 LBL 0
88 END PGM 1105_IT MM