0 BEGIN PGM 1025_IT MM 
1 ;Programma per la definizione di una sagoma
2 ;di punti per la quale vengono creati fori
3 ;su un pezzo circolare in disposizione lineare.
4 ;Le linee sono parallele all'asse X. La
5 ;distanza dei fori tra loro si definisce in
6 ;un parametro. Anche la distanza delle linee
7 ;nell'asse Y si definisce in un parametro,
8 ;questo tuttavia come fattore con cui si
9 ;moltiplica la distanza nell'asse X. Dai
10 ;parametri immessi e dal raggio utensile, il
11 ;controllo numerico calcola le posizioni di
12 ;foratura possibili in cui viene quindi
13 ;eseguito il ciclo di foratura.
14 ;In questo programma viene prima creato un
15 ;pezzo circolare sempre mediante chiamata
16 ;programma.
17 ;
18 ;Immissione parametri
19 FN 0: Q1 =+80 ;CENTRO CERCHIO NELL'ASSE X
20 FN 0: Q2 =+80 ;CENTRO CERCHIO NELL'ASSE Y
21 FN 0: Q3 =+80 ;RAGGIO CERCHIO
22 FN 0: Q4 =+8 ;DISTANZA DELLE LAVORAZIONI
23 ;            ;NELL'ASSE X
24 FN 0: Q5 =+0.866 ;FATTORE PER LA DISTANZA
25 ;            ;NELL'ASSE Y
26 ;            ;Q4 * Q5 =DISTANZA IN Y
27 FN 0: Q8 =+2 ;DISTANZA DI SICUREZZA
28 ;Fine immissione parametri
29 ;
30 BLK FORM 0.1 Z X-0.5 Y-0.5 Z-20
31 BLK FORM 0.2  X+160.5  Y+160.5  Z+0
32 ;
33 ;Chiamata programma 10251-it.h per la prefresatura
34 ;del pezzo circolare
35 CALL PGM 10251_it.h
36 ;
37 ;Chiamata utensile punta
38 TOOL CALL 223 Z S200
39 ;
40 ;Definizione ciclo di lavorazione
41 CYCL DEF 1.0 PERCAGE PROFOND
42 CYCL DEF 1.1 DISTQ8
43 CYCL DEF 1.2 PROF-21
44 CYCL DEF 1.3 PASSE10
45 CYCL DEF 1.4 TEMP0
46 CYCL DEF 1.5 F100
47 ;
48 CALL LBL 1 ;Chiamata sottoprogramma posizioni
49 ;
50 ;Disimpegno e fine programma
51 L  Z+50 R0 FMAX M2
52 ;
53 ;Sottoprogramma posizioni
54 LBL 1
55 ;Calcolo delle distanze e della prima posizione
56 FN 2: Q14 =+Q3 - +Q108
57 FN 1: Q13 =+Q14 + +Q2
58 FN 1: Q15 =+Q3 + +Q108
59 FN 2: Q32 =+Q2 - +Q3
60 FN 2: Q32 =+Q32 - -Q108
61 FN 0: Q21 =+Q1
62 FN 0: Q22 =+Q32
63 FN 3: Q27 =+Q4 * +Q5
64 FN 3: Q23 =+Q4 * +0.5
65 FN 3: Q24 =+Q4 * +3
66 FN 1: Q24 =+Q24 + +Q3
67 ;
68 L  Z+100 R0 FMAX M3 ;Raggiungimento della posizione di sicurezza
69 L  X+Q21  Y+Q22 R0 FMAX M3 ;Raggiungimento della prima posizione
70 L  Z+Q8 FMAX M99 ;Posizionamento alla distanza di sicurezza e chiamata ciclo
71 LBL 5 ;Determinazione delle altre posizioni, avvicinamento e chiamata ciclo
72 FN 1: Q21 =+Q21 + -Q23
73 FN 1: Q22 =+Q22 + +Q27
74 FN 11: IF +Q22 GT +Q13 GOTO LBL 99
75 LBL 30
76 FN 1: Q21 =+Q21 + -Q4
77 CALL LBL 50
78 FN 12: IF +Q29 LT +Q14 GOTO LBL 30
79 FN 9: IF +Q29 EQU +Q14 GOTO LBL 31
80 LBL 32
81 FN 1: Q21 =+Q21 + +Q4
82 CALL LBL 50
83 FN 11: IF +Q29 GT +Q14 GOTO LBL 32
84 LBL 31
85 L  X+Q21  Y+Q22 R0 FMAX M99
86 FN 1: Q21 =+Q21 + +Q4
87 CALL LBL 50
88 FN 12: IF +Q29 LT +Q14 GOTO LBL 31
89 FN 9: IF +Q29 EQU +Q14 GOTO LBL 31
90 FN 1: Q21 =+Q21 + +Q23
91 FN 1: Q22 =+Q22 + +Q27
92 FN 11: IF +Q22 GT +Q13 GOTO LBL 99
93 LBL 40
94 FN 1: Q21 =+Q21 + +Q4
95 CALL LBL 50
96 FN 12: IF +Q29 LT +Q14 GOTO LBL 40
97 FN 9: IF +Q29 EQU +Q14 GOTO LBL 42
98 LBL 41
99 FN 1: Q21 =+Q21 + -Q4
100 CALL LBL 50
101 FN 11: IF +Q29 GT +Q14 GOTO LBL 41
102 LBL 42
103 L  X+Q21  Y+Q22 R0 FMAX M99
104 FN 1: Q21 =+Q21 + -Q4
105 CALL LBL 50
106 FN 12: IF +Q29 LT +Q14 GOTO LBL 42
107 FN 9: IF +Q29 EQU +Q14 GOTO LBL 42
108 FN 9: IF +0 EQU +0 GOTO LBL 5
109 LBL 0
110 LBL 50
111 FN 2: Q28 =+Q1 - +Q21
112 FN 2: Q29 =+Q2 - +Q22
113 FN 8: Q29 =+Q28 LEN +Q29
114 FN 3: Q30 =+Q28 * +Q28
115 FN 5: Q30 = SQRT +Q30
116 FN 11: IF +Q30 GT +Q24 GOTO LBL 99
117 LBL 0
118 LBL 99
119 L  Z+50 R0 FMAX ;Disimpegno
120 LBL 0
121 END PGM 1025_IT MM