Tutaj niżej zamieszczam program napisany w troszkę inny sposób niż wyżej, pozdrawiam.





0 BEGIN PGM xyz MM
1 BLK FORM 0.1 Z X-50 Y+0 Z-15
2 BLK FORM 0.2 X+0 Y+40 Z+0
3 CYCL DEF 247 USTAWIENIE PKT.BAZ ~
Q339=+1 ;NR PKT BAZOWEGO
4 ;
5 * - WYBRANIA 11.5
6 TOOL CALL 6 Z S2750 ;FREZ FI12
7 L Z+200 FMAX M3
8 L X+10 Y-10 FMAX
9 L Z+0 FMAX
10 LBL 1
11 L IZ-3.5 FMAX
12 L Y+11.5 RL F500
13 L X-11.5
14 L Y-10
15 L X+10 Y-10 R0 FMAX
16 CALL LBL 1 REP1
17 L Z+200 FMAX
18 L X-60 Y-10 FMAX
19 L Z+0 FMAX
20 LBL 2
21 L IZ-3.5 FMAX
22 L X-38.5 RL F500
23 L Y+11.5
24 L X-60
25 L X-60 Y-10 R0 FMAX
26 CALL LBL 2 REP1
27 L Z+200 FMAX
28 ;
29 * - POGLEBIENIE FI12
30 TOOL CALL 4 Z S3800 ;FREZ FI8
31 L Z+200 FMAX M3
32 L X-42 Y+32 FMAX
33 CYCL DEF 208 SPIRALNE FREZ. OTW. ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-7 ;GLEBOKOSC ~
Q206=+350 ;WARTOSC POSUWU WGL. ~
Q334=+1 ;GLEBOKOSC DOSUWU ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+150 ;2-GA BEZPIECZNA WYS. ~
Q335=+12 ;SREDNICA NOMINALNA ~
Q342=+1 ;WYW.WSTEP. SREDNICA ~
Q351=+1 ;RODZAJ FREZOWANIA
34 CYCL CALL
35 ;
36 * - NAWIERCANIE FI6
37 TOOL CALL 2 Z S1600 ;Nawiertak
38 CYCL DEF 200 WIERCENIE ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-2 ;GLEBOKOSC ~
Q206=+150 ;WARTOSC POSUWU WGL. ~
Q202=+3 ;GLEBOKOSC DOSUWU ~
Q210=+0 ;PRZER. CZAS.NA GORZE ~
Q203=-7 ;WSPOLRZEDNE POWIERZ. ~
Q204=+150 ;2-GA BEZPIECZNA WYS. ~
Q211=+0 ;PRZERWA CZAS. DNIE ~
Q395=+0 ;REFERENCJA GLEB.
39 CALL LBL 10
40 ;
41 * - NAWIERCANIE FI20
42 TOOL CALL 2 Z S1600 ;Nawiertak
43 CYCL DEF 200 WIERCENIE ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-2 ;GLEBOKOSC ~
Q206=+150 ;WARTOSC POSUWU WGL. ~
Q202=+3 ;GLEBOKOSC DOSUWU ~
Q210=+0 ;PRZER. CZAS.NA GORZE ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+150 ;2-GA BEZPIECZNA WYS. ~
Q211=+0 ;PRZERWA CZAS. DNIE ~
Q395=+0 ;REFERENCJA GLEB.
44 CALL LBL 20
45 ;
46 * - WIERCENIE FI6
47 TOOL CALL 3 Z S1000 ;WIERTLO FI6
48 CYCL DEF 200 WIERCENIE ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-12 ;GLEBOKOSC ~
Q206=+150 ;WARTOSC POSUWU WGL. ~
Q202=+3 ;GLEBOKOSC DOSUWU ~
Q210=+0 ;PRZER. CZAS.NA GORZE ~
Q203=-7 ;WSPOLRZEDNE POWIERZ. ~
Q204=+150 ;2-GA BEZPIECZNA WYS. ~
Q211=+0 ;PRZERWA CZAS. DNIE ~
Q395=+0 ;REFERENCJA GLEB.
49 CALL LBL 10
50 ;
51 * - WIERCENIE WSTEPNE FI20
52 TOOL CALL 6 Z S530 ;WIERTLO FI12
53 CYCL DEF 200 WIERCENIE ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-20 ;GLEBOKOSC ~
Q206=+85 ;WARTOSC POSUWU WGL. ~
Q202=+3 ;GLEBOKOSC DOSUWU ~
Q210=+0 ;PRZER. CZAS.NA GORZE ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+150 ;2-GA BEZPIECZNA WYS. ~
Q211=+0 ;PRZERWA CZAS. DNIE ~
Q395=+0 ;REFERENCJA GLEB.
54 CALL LBL 20
55 ;
56 * - FREZOWANIE FI20
57 TOOL CALL 6 Z S2750
58 CYCL DEF 208 SPIRALNE FREZ. OTW. ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-16 ;GLEBOKOSC ~
Q206=+500 ;WARTOSC POSUWU WGL. ~
Q334=+1 ;GLEBOKOSC DOSUWU ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+150 ;2-GA BEZPIECZNA WYS. ~
Q335=+20 ;SREDNICA NOMINALNA ~
Q342=+10 ;WYW.WSTEP. SREDNICA ~
Q351=+1 ;RODZAJ FREZOWANIA
59 CALL LBL 20
60 ;
61 M2 ;KONIEC PROGRAMU
62 ;
63 LBL 10
64 L Z+200 FMAX M3
65 L X-5.5 Y+5.5 FMAX M99
66 L X-45 FMAX M99
67 L X-42 Y+32 FMAX M99
68 LBL 0
69 ;
70 LBL 20
71 L Z+200 FMAX M3
72 L X-15 Y+25 FMAX M99
73 LBL 0
74 END PGM xyz MM