proponuje ci kolego prosty i bardzo przejrzysty programik


0 BEGIN PGM M10 MM
1 ; ****************************
2 * - hm-spiri-8.5
3 TOOL CALL 23 Z S3200
4 TOOL DEF 3
5 ; ****************************
6 L X+0 Y+0 Z+100 R0 FMAX
7 L Z+50 R0 FMAX M3 M7
8 CYCL DEF 203 UNIWERSL WIERC. ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-25 ;GLEBOKOSC ~
Q206=+400 ;WARTOSC POSUWU WGL. ~
Q202=+1 ;GLEBOKOSC DOSUWU ~
Q210=+0 ;PRZER. CZAS.NA GORZE ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q212=+0 ;WART. ZMNIEJ. DOSUWU ~
Q213=+100 ;LICZBA LAMAN WIORA ~
Q205=+0 ;MIN. GLEBOK. DOSUWU ~
Q211=+0 ;PRZERWA CZAS. DNIE ~
Q208=+30000 ;POSUW RUCHU POWROTN. ~
Q256=+0,2 ;WYCOF.DLA ZLAM.WIORA
9 CALL LBL 1
10 L Z+200 R0 FMAX M5
11 ; ****************************
12 * - faza-45
13 TOOL CALL 3 Z S8000
14 TOOL DEF 22
15 ; ****************************
16 L X+0 Y+0 Z+100 R0 FMAX
17 L Z+50 R0 FMAX M3 M18
18 CYCL DEF 208 FREZOWANIE OTOWROW ~
Q200=+0,5 ;BEZPIECZNA WYSOKOSC ~
Q201=-3 ;GLEBOKOSC ~
Q206=+2000 ;WARTOSC POSUWU WGL. ~
Q334=+3 ;GLEBOKOSC DOSUWU ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q335=+10 ;SREDNICA NOMINALNA ~
Q342=+9 ;ZADANA SREDNICA
19 CALL LBL 1
20 L Z+200 R0 FMAX M5
21 ; ****************************
22 * - gewinde-M10
23 TOOL CALL 22 Z S200
24 STOP
25 ; ****************************
26 L X+0 Y+0 Z+100 R0 FMAX
27 L Z+50 R0 FMAX M3
28 CYCL DEF 207 GWINTOWANIE GS-NOWE ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-24 ;GLEBOKOSC GWINTU ~
Q239=+1,5 ;SKOK ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS.
29 CALL LBL 1
30 L Z+100 R0 FMAX M5
31 L X+0 Y+0 Z+0 R0 FMAX M92
32 STOP M30
33 * - ###################
34 LBL 1
35 * - LBL1 otwory M10
36 L X+19 Y+35 R0 FMAX M99
37 L X-19 Y-35 R0 FMAX M99
38 LBL 0
39 END PGM M10 MM