0  BEGIN PGM 51051_IT MM 
1  ;Programma NC per calcolare la traiettoria utensile
2  ;per la sbavatura di una cava per chiavetta.
3  ;Questo programma NC è strutturato in modo tale che
4  ;venga richiamato come ciclo dal programma di
5  ;lavorazione. I parametri necessari vengono definiti
6  ;nel programma di lavorazione chiamato. A questo
7  ;programma NC non devono quindi essere apportate
8  ;modifiche.
9  ;
10 FN 18: SYSREAD Q1 = ID270 NR1 IDX1 ;Lettura posizione X corrente
11 FN 18: SYSREAD Q2 = ID270 NR1 IDX2 ;Lettura posizione Y corrente
12 Q5 = Q203 + ABS Q200 ;Distanza di sicurezza
13 Q6 = Q203 + ABS Q204 ;2ª distanza di sicurezza
14 CYCL DEF 7.0 PUNTO ZERO
15 CYCL DEF 7.1 IX+Q1
16 CYCL DEF 7.2 IY+Q2
17 CYCL DEF 10.0 ROTAZIONE
18 CYCL DEF 10.1 IROT+Q374
19 ;Posizione scanalatura
20 Q7 = 0
21 FN 9: IF +Q367 EQU +0 GOTO LBL "END"
22 Q7 = ABS Q218 / 2
23 FN 9: IF +Q367 EQU +1 GOTO LBL "END"
24 Q7 = ( ABS Q218 - ABS Q219 ) / 2
25 FN 9: IF +Q367 EQU +2 GOTO LBL "END"
26 Q7 = NEG ( ABS Q218 - ABS Q219 ) / 2
27 FN 9: IF +Q367 EQU +3 GOTO LBL "END"
28 Q7 = NEG ABS Q218 / 2
29 LBL "END"
30 CYCL DEF 7.0 PUNTO ZERO
31 CYCL DEF 7.1 IX+Q7
32 ;
33 Q10 = ( ABS Q218 - ABS Q219 ) / 2 ;X-MIN
34 Q11 = SQRT ( SQ ( Q222 / 2 ) - SQ ( Q219 / 2 ) )
35 Q12 = Q203 - ( Q222 / 2 - Q11 ) - ABS Q201
36 Q13 = Q219 / 2 - Q108
37 L  X+0  Y+0  Z+Q6 R0 FMAX
38 L  Z+Q5 R0 FMAX
39 L  X+0  Y+0  Z+Q12 FQ207
40 APPR LCT  X+0  Y+Q13 R1 FQ207
41 L  X-Q10
42 Q20 = 90 ;Angolo di partenza
43 LBL 1
44 Q20 = Q20 + 1
45 Q21 = - Q10 + COS Q20 * Q13
46 Q22 = SIN Q20 * Q13
47 Q23 = SIN Q20 * Q219 / 2
48 Q11 = SQRT ( SQ ( Q222 / 2 ) - SQ ( Q23 ) )
49 Q12 = Q203 - ( Q222 / 2 - Q11 ) - ABS Q201
50 L  X+Q21  Y+Q22  Z+Q12
51 CALL LBL 1 REP179
52 L  X+Q10
53 Q20 = - 90 ;Angolo di partenza
54 LBL 2
55 Q20 = Q20 + 1
56 Q21 = Q10 + COS Q20 * Q13
57 Q22 = SIN Q20 * Q13
58 Q23 = SIN Q20 * Q219 / 2
59 Q11 = SQRT ( SQ ( Q222 / 2 ) - SQ ( Q23 ) )
60 Q12 = Q203 - ( Q222 / 2 - Q11 ) - ABS Q201
61 L  X+Q21  Y+Q22  Z+Q12
62 CALL LBL 2 REP179
63 L  X+0
64 DEP LCT  X+0  Y+0 R1
65 ;
66 CYCL DEF 7.0 PUNTO ZERO
67 CYCL DEF 7.1  X+0
68 CYCL DEF 7.2  Y+0
69 CYCL DEF 7.3  Z+0
70 CYCL DEF 10.0 ROTAZIONE
71 CYCL DEF 10.1  ROT+0
72 L  Z+Q6 R0 FMAX
73 END PGM 51051_IT MM