Takie resztki korzystniej jest usuwać na początku.

Ja dałbym sobie spokój z cyklami do planowania.
Zrobił bym to tak-


0 BEGIN PGM czysty MM
1 BLK FORM 0.1 Z X+0 Y+0 Z-40
2 BLK FORM 0.2 X+150 Y+50 Z+0
3 TOOL CALL 8 Z S2000
4 ;frez fi16
5 ;frezowanie powierzchni na g=5mm nad czopem fi 20
6 L X+84 Y+25 R0 FMAX
7 CYCL DEF 208 FREZOWANIE OTOWROW ~
Q200=+1 ;BEZPIECZNA WYSOKOSC ~
Q201=-5 ;GLEBOKOSC ~
Q206=+750 ;WARTOSC POSUWU WGL. ~
Q334=+0.25 ;GLEBOKOSC DOSUWU ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q335=+23 ;SREDNICA NOMINALNA ~
Q342=+0 ;WYW.WSTEP. SREDNICA ~
Q351=+1 ;RODZAJ FREZOWANIA
8 CYCL CALL M3 M8
9 L Z+100 R0 FMAX
10 ;frezowanie powierzchni na g=15mm
11 CYCL DEF 14.0 GEOMETRIA KONTURU
12 CYCL DEF 14.1 PODPR.KONTURU4 /5 /6
13 CYCL DEF 20 DANE KONTURU ~
Q1=-15 ;GLEBOKOSC FREZOWANIA ~
Q2=+1.25 ;ZACHODZENIE TOROW ~
Q3=+0 ;NADDATEK NA STRONE ~
Q4=+0 ;NADDATEK NA DNIE ~
Q5=+0 ;WSPOLRZEDNE POWIERZ. ~
Q6=+1 ;BEZPIECZNA WYSOKOSC ~
Q7=+50 ;BEZPIECZNA WYSOKOSC ~
Q8=+0 ;PROMIEN ZAOKRAGLENIA ~
Q9=+1 ;KIERUNEK OBROTU
14 CYCL DEF 22 FREZ.ZGR.WYBRANIA ~
Q10=-5 ;GLEBOKOSC DOSUWU ~
Q11=+500 ;WARTOSC POSUWU WGL. ~
Q12=+500 ;POSUW PRZY ROZWIERC. ~
Q18=+0 ;NARZ.DO OBR.ZGRUB. ~
Q19=+500 ;POSUW PRZY R. WAHAD. ~
Q208=+99999 ;POSUW RUCHU POWROTN. ~
Q401=+100 ;WSPOLCZYNNIK POSUWU ~
Q404=+0 ;STRAT.PRZEC.WYKONCZ.
15 CYCL CALL
16 L Z+200 R0 FMAX M9 M6
17 ;FREZOWANIE CZOPA PROSTOKATNEGO
18 TOOL CALL 8 Z S2000
19 ;frez palcowy fi 16
20 CYCL DEF 256 CZOP PROSTOKATNY ~
Q218=+28 ;DLUG. 1-SZEJ STRONY ~
Q424=+40 ;WYMIAR POLWYROBU 1 ~
Q219=+44 ;DLUG. 2-GIEJ STRONY ~
Q425=+50 ;WYMIAR POLWYROBU 2 ~
Q220=+8 ;PROMIEN NAROZA ~
Q368=+0.5 ;NADDATEK NA STRONE ~
Q224=+0 ;KAT OBROTU ~
Q367=+0 ;POLOZENIE CZOPU ~
Q207=+500 ;POSUW FREZOWANIA ~
Q351=+1 ;RODZAJ FREZOWANIA ~
Q201=-15 ;GLEBOKOSC ~
Q202=+5 ;GLEBOKOSC DOSUWU ~
Q206=+1000 ;WARTOSC POSUWU WGL. ~
Q200=+5 ;BEZPIECZNA WYSOKOSC ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q370=+1 ;ZACHODZENIE TOROW
21 CYCL CALL POS X+34 Y+25 Z+0 FMAX M3 M8
22 ;FREZOWANIE CZOPA KOLOWEGO
23 CYCL DEF 257 CZOP OKRAGLY ~
Q223=+20 ;SRED.WYBR.OBR.NA GOT ~
Q222=+52 ;SREDNICA WST.OBR.WYB ~
Q368=+0.2 ;NADDATEK NA STRONE ~
Q207=+500 ;POSUW FREZOWANIA ~
Q351=+1 ;RODZAJ FREZOWANIA ~
Q201=-15 ;GLEBOKOSC ~
Q202=+3 ;GLEBOKOSC DOSUWU ~
Q206=+3000 ;WARTOSC POSUWU WGL. ~
Q200=+5 ;BEZPIECZNA WYSOKOSC ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q370=+1 ;ZACHODZENIE TOROW
24 CYCL CALL POS X+84 Y+25 Z+0 FMAX
25 L Z+250 R0 FMAX M9 M6
26 ;FREZOWANIE KIESZENI PROSTOKATNEJ po katem
27 TOOL CALL 3 Z S2000
28 ;frez palcowy do rowkow fi7
29 L Z+250 R0 FMAX
30 CYCL DEF 251 KIESZEN PROSTOKATNA ~
Q215=+0 ;RODZAJ OBROBKI ~
Q218=+40 ;DLUG. 1-SZEJ STRONY ~
Q219=+20 ;DLUG. 2-GIEJ STRONY ~
Q220=+4 ;PROMIEN NAROZA ~
Q368=+0.5 ;NADDATEK NA STRONE ~
Q224=+45 ;KAT OBROTU ~
Q367=+0 ;POLOZENIE KIESZENI ~
Q207=+500 ;POSUW FREZOWANIA ~
Q351=+1 ;RODZAJ FREZOWANIA ~
Q201=-10 ;GLEBOKOSC ~
Q202=+5 ;GLEBOKOSC DOSUWU ~
Q369=+0.5 ;NADDATEK NA DNIE ~
Q206=+150 ;WARTOSC POSUWU WGL. ~
Q338=+1000 ;POSUW - OBR.WYKONCZ. ~
Q200=+5 ;BEZPIECZNA WYSOKOSC ~
Q203=-15 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q370=+1 ;ZACHODZENIE TOROW ~
Q366=+1 ;ZAGLEBIANIE ~
Q385=+500 ;POSUW OBR.WYKAN.
31 CYCL CALL POS X+128 Y+27 Z+0 FMAX M3
32 L Z+250 R0 FMAX M9 M6
33 ;WIERCENIE 3 OTWOROW W CZOPIE PROSTOKATNYM I W KIESZENI PROSTOKATNEJ
34 TOOL CALL 3 Z S500 F200
35 ;wiertlo fi6
36 L Z+250 R0 FMAX M3 M8
37 CYCL DEF 200 WIERCENIE ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-22 ;GLEBOKOSC ~
Q206=+150 ;WARTOSC POSUWU WGL. ~
Q202=+4 ;GLEBOKOSC DOSUWU ~
Q210=+0 ;PRZER. CZAS.NA GORZE ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q211=+0 ;PRZERWA CZAS. DNIE
38 CYCL DEF 221 SZABLON LINIOWY ~
Q225=+34 ;PKT.STARTU 1SZEJ OSI ~
Q226=+12 ;PKT.STARTU 2GIEJ OSI ~
Q237=+10 ;ODSTEP W 1-SZEJ OSI ~
Q238=+0 ;ODSTEP W 2-GIEJ OSI ~
Q242=+3 ;LICZBA KOLUMN ~
Q243=+0 ;LICZBA WIERSZY ~
Q224=+70 ;KAT OBROTU ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q301=+1 ;ODJAZD NA BEZP.WYS.
39 CYCL DEF 200 WIERCENIE ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-14 ;GLEBOKOSC ~
Q206=+150 ;WARTOSC POSUWU WGL. ~
Q202=+4 ;GLEBOKOSC DOSUWU ~
Q210=+0 ;PRZER. CZAS.NA GORZE ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q211=+0 ;PRZERWA CZAS. DNIE
40 CYCL DEF 221 SZABLON LINIOWY ~
Q225=+120 ;PKT.STARTU 1SZEJ OSI ~
Q226=+19 ;PKT.STARTU 2GIEJ OSI ~
Q237=+12 ;ODSTEP W 1-SZEJ OSI ~
Q238=+0 ;ODSTEP W 2-GIEJ OSI ~
Q242=+3 ;LICZBA KOLUMN ~
Q243=+0 ;LICZBA WIERSZY ~
Q224=+45 ;KAT OBROTU ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q203=-15 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q301=+1 ;ODJAZD NA BEZP.WYS.
41 L Z+250 R0 FMAX M9 M6
42 ;WIERCENIE 8 OTWOROW NA OKREGU
43 TOOL CALL 2 Z S500 F300
44 ;wiertlo fi4.8
45 L Z+200 R0 FMAX M3 M8
46 CYCL DEF 200 WIERCENIE ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-16 ;GLEBOKOSC ~
Q206=+150 ;WARTOSC POSUWU WGL. ~
Q202=+4 ;GLEBOKOSC DOSUWU ~
Q210=+0 ;PRZER. CZAS.NA GORZE ~
Q203=-15 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q211=+0 ;PRZERWA CZAS. DNIE
47 CYCL DEF 220 SZABLON KOLOWY ~
Q216=+84 ;SRODEK W 1-SZEJ OSI ~
Q217=+25 ;SRODEK W 2-SZEJ OSI ~
Q244=+32 ;SREDNICA PODZ.OKREGU ~
Q245=+0 ;KAT POCZATKOWY ~
Q246=+360 ;KAT KONCOWY ~
Q247=+45 ;KATOWY PRZYROST-KROK ~
Q241=+8 ;LICZBA POWTORZEN ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q203=-15 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q301=+1 ;ODJAZD NA BEZP.WYS. ~
Q365=+1 ;RODZAJ PRZEMIESZCZ.
48 L Z+250 R0 FMAX M6
49 ;GWINTOWANIE 8 OTWOROW
50 TOOL CALL 1 Z S2000 F300
51 L Z+200 R0 FMAX M3 M8
52 CYCL DEF 207 GWINTOWANIE GS ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-14 ;GLEBOKOSC GWINTU ~
Q239=+1.5 ;SKOK GWINTU ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS.
53 CYCL DEF 220 SZABLON KOLOWY ~
Q216=+84 ;SRODEK W 1-SZEJ OSI ~
Q217=+25 ;SRODEK W 2-SZEJ OSI ~
Q244=+32 ;SREDNICA PODZ.OKREGU ~
Q245=+0 ;KAT POCZATKOWY ~
Q246=+360 ;KAT KONCOWY ~
Q247=+45 ;KATOWY PRZYROST-KROK ~
Q241=+8 ;LICZBA POWTORZEN ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q203=-15 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q301=+1 ;ODJAZD NA BEZP.WYS. ~
Q365=+1 ;RODZAJ PRZEMIESZCZ.
54 L Z+250 R0 FMAX M9 M6
55 ;WIERCENIE 3 OTWOROW FI14
56 TOOL CALL 7 Z S800 F200
57 ;WIERTLO FI14
58 CYCL DEF 200 WIERCENIE ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-24 ;GLEBOKOSC ~
Q206=+150 ;WARTOSC POSUWU WGL. ~
Q202=+5 ;GLEBOKOSC DOSUWU ~
Q210=+0 ;PRZER. CZAS.NA GORZE ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q211=+0 ;PRZERWA CZAS. DNIE
59 CYCL CALL POS X+10 Y+10 Z+0 FMAX M3 M8
60 CYCL CALL POS X+10 Y+40 Z+0 FMAX M3 M8
61 CYCL CALL POS X+140 Y+10 Z+0 FMAX M3 M8
62 L Z+250 R0 FMAX M9 M6
63 M2
64 LBL 4
65 L X+152 Y+25 RL
66 L Y+64
67 L X-2
68 L Y-14
69 L X+152
70 L Y+25
71 LBL 0
72 LBL 5
73 L X+20 Y+25 RL
74 L Y+47
75 RND R8
76 L X+48
77 RND R8
78 L Y+3
79 RND R8
80 L X+20
81 RND R8
82 L Y+25
83 LBL 0
84 LBL 6
85 L X+94 Y+25 RL
86 CC X+84 Y+25
87 CP PA+360 DR-
88 LBL 0
89 END PGM czysty MM