To co kolega napisał to bzdura po co tyle tych skokow bezsensownych ?
Najprosciej to by miało tak wygladac


0 PLANOWANIE
1 BLK FORM 0.1 Z X-50 Y0 Z-5
2 BLK FORM 0.2 X+200 Y+200 Z+0
3 TOOL CALL 7 Z S1000
4 L X-50 Y+0 F MAX
5 L Z+100 F1000
6 FN 0: Q1 = +50;KROK W Y
7 FN 0: Q2 = +200;SZEROKOSC W Y
8 FN 0: Q3 = +1000;POSUW
9 FN 0: Q4 = +0;START Y
10 CALL LBL1
11 L Z+100 R0 F MAX M30
12 LBL 1
13 L Z-1 R0 F1000
14 L X+150 R0 FQ3
15 FN 1:Q4 =+Q4++Q1-LICZNIK DODAWANIE
16 L Y+Q4 R0 FQ3
17 L X-50 FQ3
18 FN 1:Q4 =+Q4++Q1-LICZNIK DODAWANIE
19 L Y+Q4 R0 FQ3
20 L X+150 R0 FQ3
21 FN 12:IF +Q4 LT+Q2 GOTO LBL 1
22 LBL 0

Też robiłem promień na dnie otworubo tak jak kolega z ręki wszystko pisze w pracy

I jak testy programów ścigają?

Dodane 34 sekundy:
Śmigaja dobrze?

0 BEGIN PGM FASOLKA SPIRALNIE MM
1 BLK FORM 0.1 Z X-60 Y-30 Z-20
2 BLK FORM 0.2 X+60 Y+30 Z+0
3 TOOL CALL 4 Z S3000 F2222
4 CYCL DEF 7.0 PUNKT BAZOWY
5 CYCL DEF 7.1 X+0
6 CYCL DEF 7.2 Z+0
7 L Z+100 R0 FMAX M3
8 L X+0 Y+0 R0 FMAX
9 L Z+0 R0 FMAX
10 CALL LBL 1
11 L Z+100 R0 FMAX M30
12 LBL 1
13 FN 0: Q20 =+60;DLUGOSC FASOLKI
14 FN 0: Q21 =+20;SZEROKOSC FASOLKI
15 FN 4: Q20 =+Q20 DIV+2
16 FN 4: Q21 =+Q21 DIV+2
17 FN 2: Q22 =+Q20-+Q21
18 FN 0: Q1 =+40 ;GLEBOKOSC
19 FN 0: Q10 =+80 ;ILOSC POETORZEN
20 FN 3: Q10 =+Q10*+5
21 FN 4: Q1 =+Q1 DIV +Q10
22 L Y+Q21 RL F1000
23 LBL 2
24 CC X-Q22 Y+0
25 L X-Q22 IZ-Q1 RL F1000
26 CP IPA+180 IZ-Q1 DR+ F1000
27 L X+Q22 IZ-Q1 RL F1000
28 CC X+Q22 Y+0
29 CP IPA+180 IZ-Q1 DR+ F1000
30 L X+0 IZ-Q1 RL F1000
31 FN 1: Q10 =+Q10 + -5
32 FN 10: IF +Q10 NE +0 GOTO LBL 2
33 L X-Q22 R F
34 CT X-Q22 Y-Q21
35 L X+Q22 R F
36 CT X+Q22 Y+Q21
37 X 0 R F
38 L Y+0 R0 F1000
39 LBL 0
40 END PGM FASOLKA-SPIRALNIE MM
---------------------------------------------------------------------------------------------
ELIPSA SPIRALNIE
0 BEGIN PGM 19 MM
1 BLK FORM 0.1 Z X-35,000 Y-20,000 Z-75,000
2 BLK FORM 0.2 X+35,000 Y+20,000 Z+0,000
3 TOOL DEF 40 L+0,000 R+10,000
4 TOOL CALL 40 / Z S 1250,000
5 FN 0 : Q22= +70,000
6 FN 0 : Q23= +100,000
7 FN 4 : Q22= +Q22 DIV +2,000
8 FN 4 : Q23= +Q23 DIV +2,000
9 FN 1 : Q22= +Q22 + +Q108
10 FN 1 : Q23= +Q23 + +Q108
11 FN 0 : Q1 = +30
12 FN 0 : Q10= +60,000
13 FN 3 : Q10= +Q10 * +90,000
14 FN 3 : Q3 = +Q10 * +4,000
15 FN 4 : Q1 = +Q1 DIV +Q10
16 L Z+150,000 R0 F9999 M03
17 L X+100,000 Y+0,000 R0 F MAX M
18 L Z+0,000 R0 F MAX M
19 L X+Q23 R0 F1200 M
20 CALL LBL 1 REP
21 L IX+50,000 R0 F5000 M
22 L Z+100,000 R0 F4000 M
23 L X+0,000 Y+0,000 R0 F MAX M30
24 LBL 1
25 FN 0 : Q21= +0,000
26 FN 0 : Q20= +4,000
27 FN 0 : Q27= +360,000
28 LBL 2
29 FN 6 : Q14= SIN +Q21
30 FN 7 : Q15= COS +Q21
31 FN 3 : Q24= +Q14 * +Q22
32 FN 3 : Q25= +Q15 * +Q23
33 L X+Q25 Y+Q24 IZ-Q1 R0 F1500 M
34 FN 1 : Q21= +Q21 + +Q20
35 FN 12 : IF +Q21 LT +Q27 GOTO LBL 2
36 FN 1 : Q3 = +Q3 + -360,000
37 FN 11 : IF +Q3 GT +0,000 GOTO LBL 1
38 FN 0 : Q20= +4,000
39 FN 0 : Q21= +0,000
40 FN 0 : Q26= +Q22
41 FN 0 : Q28= +Q23
42 FN 0 : Q27= +360,100
43 LBL 6
44 FN 6 : Q14= SIN +Q21
45 FN 7 : Q15= COS +Q21
46 FN 3 : Q29= +Q14 * +Q26
47 FN 3 : Q30= +Q15 * +Q28
48 L X+Q30 Y+Q29 R F M
49 FN 1 : Q21= +Q21 + +Q20
50 FN 12 : IF +Q21 LT +Q27 GOTO LBL 6
51 LBL 0
52 END PGM 19 MM
-------------------------------------------------------------------------------------------------
0 BEGIN PGM FAZA 30X25 STOPNI MM
1 BLK FORM 0.1 Y X-40 Y-30.5 Z-40
2 BLK FORM 0.2 X+40 Y+0.1 Z+40
3 TOOL CALL 4 Y S1200
4 L Y+100 R0 F5000 M3
5 L X+0 Z+0 R0 F5000
6 L Y+0 R0 F2000
7 CC X+0 Z+0
8 L Z+31 RL F1000
9 CP IPA+360 DR+ F1000
10 CALL LBL 1
11 L Y+100 R0 F5000 M2
12 LBL 1
13 FN 0: Q1 =+30
14 FN 0: Q2 =+0
15 FN 0: Q3 =-25
16 FN 0: Q10 =+120
17 FN 3: Q10 =+Q10 * +2
18 FN 4: Q1 =+Q1 DIV +Q10
-----------------------------------
20 FN 6: Q6 = SIN +Q3
21 FN 7: Q7 = COS +Q3
22 FN 4: Q5 =+Q6 DIV +Q7
23 FN 3: Q2 =+Q5 * +Q1
24 LBL2
25 CC Z-Q2 X+0
26 CP IPA+180 IY-Q1 DR+ F1000
27 CC Z+0 X+0
28 CP IPA+180 IY-Q1 DR+ F1000
29 FN 1: Q10 =+Q10 + -2
30 FN 10: IF +Q10 NE +0 GOTO LBL 2
31 CC Z+0 X+0
32 CP IPA+360 DR+ F1000
33 L Z+0 R0 F1000
34 LBL 0
35 END PGM FAZA 30X25 STOPNI MM

Witam tu kolega ma prosty przykład jak najprosciej napisać pętle na frezowanie

0 PRZYKŁAD-FN12
1 BLK FORM 0.1 Z X-100 Y-100 Z-50
2 BLK FORM 0.2 X+100 Y+100 Z+0
3 TOOL CALL 7 Z S1000
4 L X+0 Y+0 F MAX
5 L Z+100 F1000
6 FN 0: Q1 = +1-ZAGLEBIANIE PO ILE
7 FN 0: Q2 = +40-GLEBOKOSC WYBRANIA
8 FN 0: Q3 = +1000-POSUW
9 FN 0: Q4 = +0-START Z
10 CALL LBL1
11 L Z+100 R0 F MAX M30
12 LBL 1
13 FN 1:Q4 =+Q4++Q1-LICZNIK DODAWANIE
14 L Z-Q4 R0 F1000
15 L X+0 Y+40 RL FQ3
16 L Y+55
17 RND R7
18 L X+37
19 RND R5
20 L X+57 Y+35
21 RND R20
22 L X+106
23 CC X+136 Y+34.5
24 C X+166 Y+35 DR-
25 L Y+35
26 L X+131
27 RND R7
28 L Y-35
29 RND R7
30 L X+166
31 CC X+136 Y-34.5
32 C X+106 Y-35 DR-
33 L X+57
34 RND R20
35 L X+37 Y-55
36 RND R5
37 L X+0
38 RND R9
39 L Y-22
40 RND R9
41 L X+24
42 L Y+22
43 L X+0
44 RND R9
45 L Y+40
46 L X-40 R0 F
47 FN 12:IF +Q4 LT+Q2 GOTO LBL 1-SKOK
48 LBL 0

Dodane 7 minuty 39 sekundy:
tu na wybranie kołowe helikalnie bardzo przydatny programik
0 BEGIN PGM PRZYKLAD 3 MM
1 BLK FORM 0.1 Z X-50 Y-50 Z-50
2 BLK FORM 0.2 X+50 Y+50 Z+0
3 TOL CALL 2 Z S1000
4 L Z+100 R0 FMAX M3
5 L X+0 Y+0 R0 FMAX
6 L Z+0 R0 FMAX
7 LBL 1
8 FN 0: Q4 =+40-PROMIEN OKREGU
9 FN 0: Q1 =+78,7-GLEBOKOSC FREZOWANIA
10 FN 0: Q10 =+78-ILOSC POWT.
11 FN 4: Q3 =+Q1 DIV +Q10-DZIELENIE
12 FN 0: Q5 =+0-START Z
13 L Y+Q4 RL F1000
14 LBL 2
15 FN 1: Q5 =+Q5 + +Q3-DODAWANIE
16 CC X+0 Y+0
17 CP IPA+360 Z-Q5 DR+ F1000
18 FN 12: IF +Q5 LT +Q1 GOTO LBL 2-SKOK
19 C IY+0 IX+0 DR+ F1000
20 L Y+0 R0 F1000
21 LBL 0
22 L Z+100 R0 FMAX M5
23 STOP M2
24 END PGM PRZYKLAD 3 MM

Dodane 2 minuty 44 sekundy:
mam dużo programów mojego autorstwa które mi sie przydaja jak by kolega chciał to dorzuce jeszcze kilka bardziej skomplikowanych pozdrawiam