Ok. Dzięki. W tygodniu sprawdzę. Możesz jeszcze napisać co oznaczają poszczególne parametry:
Q5 średnica
Q4 ?

Pozdrawiam.

Przyłączam się do prośby. Mam zamiar frezować otwory po stożku. A swoją drogą może ktoś zerknąć na ten Programik bo coś nie tak z warunkami. W zasadzie połaczyłem 2 programy z forum plus swoje. Program robi sześciokąt z dowolnego punktu deklarując współrzędne początkowe i szerokość klucza, w późniejszym czasie dopisze dowolny kąt obrotu i skośne snianki. A jeszcze jedna sprawa. Jak napisać warunki jakbym chciał frezować na głębokość np. 98 mm przy dosuwie 5mm.
Oto mój programik:

0 BEGIN PGM 01 MM
1 BLK FORM 0.1 Z X+0 Y+0 Z-10
2 BLK FORM 0.2 X+16 Y+16 Z+0
3 CYCL DEF 247 USTAWIENIE PKT.BAZ ~
Q339=+1 ;NR PKT ODNIESIENIA
4 ;
5 ; DANE DO ZMIANY
6 FN 0: Q1 =+1 ;odstep bezpieczenstwa
7 FN 0: Q2 =+0 ;wspolrzedna powierzchni
8 FN 0: Q3 =+500 ;posuw wglebny
9 FN 0: Q4 =+1000 ;posuw roboczy X,Y
10 FN 0: Q5 =+1 ;glebokosc zaglebiania
11 FN 0: Q6 =+10 ;glebokosc frezowania
12 FN 0: Q7 =+6 ;wspolrzedna X srodka
13 FN 0: Q8 =+6 ;wspolrzedna Y srodka
14 FN 0: Q10 =+8.2 ;szerokosc klusza, srednica okregu wpisanego
15 FN 0: Q15 =+30 ;kat "alfa" pomiedzy "r" a "R"
16 FN 0: Q17 =+0 ;obrot ukladu wspolrzednych
17 FN 0: Q19 =+32 ;numer narzedzia
18 ;
19 ; PONIZEJ NIE ZMIENIAC
20 FN 3: Q16 =+Q15 * +2
21 FN 7: Q20 = COS +Q15
22 FN 6: Q21 = SIN +Q15
23 FN 4: Q22 =+Q21 DIV +Q20
24 FN 4: Q9 =+Q10 DIV +Q20 ;srednica okregu opisanego
25 FN 4: Q11 =+Q9 DIV +2
26 FN 4: Q12 =+Q10 DIV +2
27 FN 3: Q14 =+Q12 * +Q22
28 FN 3: Q13 =+Q14 * +2
29 ;
30 ;WARUNKI
31 FN 0: Q18 =+Q5
32 FN 11: IF +Q18 GT +Q6 GOTO LBL 4
33 FN 12: IF +Q18 LT +Q6 GOTO LBL 1
34 LBL 1
35 CALL LBL 2
36 FN 1: Q5 =+Q18 + +Q5
37 FN 11: IF +Q18 GT +Q6 GOTO LBL 4
38 FN 10: IF +Q18 NE +Q6 GOTO LBL 1
39 FN 12: IF +Q18 LT +Q6 GOTO LBL 1
40 LBL 0
41 ;
42 ; PROGRAM NA FREZOWANIE
43 TOOL CALL Q19 Z S10000 FQ4
44 L X+Q7 Y+Q8 Z+100 R0 FMAX M13
45 L Z+Q1 FMAX
46 L Z+Q2 FQ4
47 LBL 2
48 TOOL CALL Q19 Z S10000 FQ4
49 CC X+Q7 Y+Q8
50 L Z-Q5 FQ3
51 L IX+Q12 Y+Q8 RR FQ4
52 LP PR+Q11 PA-30
53 LBL 3
54 LP IPA-60
55 CALL LBL 3 REP4
56 L Y+Q8
57 L X+Q7 Y+Q8 R0
58 LBL 0
59 LBL 4
60 L Z+Q1 R0 FMAX
61 L Z+300 R0 FMAX
62 LBL 0
63 TOOL CALL 0
64 M30
65 ;
66 END PGM 01 MM