Oki, tutaj moje programy na stożek zewnętrzy i wewnętrzny. Jeszcze raz dzięki panowie, jak macie jakieś obiekcje co do programów to śmiało piszcie, zawsze się czegoś więcej nauczę.
0 BEGIN PGM 45stp-Faza MM
1 CYCL DEF 7.0 PUNKT BAZOWY
2 CYCL DEF 7.1 X+0
3 CYCL DEF 7.2 Y+0
4 CYCL DEF 7.3 Z+0
5 BLK FORM 0.1 Z X-25 Y-25 Z-10
6 BLK FORM 0.2 X+25 Y+25 Z+0
7 TOOL CALL 10 Z S3000
8 L Z+100 R0 FMAX
9 FN 0: Q1 =+10 ;promien gorny stozka
10 FN 0: Q2 =+0.15 ;skok
11 FN 0: Q3 =+4.5 ;glebokosc fazki
12 FN 0: Q4 =+0
13 ;wzor do obliczenia skoku w X
14 ;skok x 45tan
15 L X+0 Y+0 R0 FMAX M3
16 L Z+10 R0 FMAX
17 L Z+0 R0 FMAX
18 LBL 1
19 APPR LCT X+Q1 R2 RL F1000
20 L Z+Q4
21 CC X+0 Y+0
22 C X+Q1 Y+0 DR-
23 DEP LCT X+0 R2
24 FN 1: Q1 =+Q1 + -Q2
25 FN 2: Q4 =+Q4 - +Q2
26 FN 10: IF +Q4 NE -Q3 GOTO LBL 1
27 L Z+100 R0 FMAX M5
28 STOP M30
29 END PGM 45stp-Faza MM
0 BEGIN PGM 45stp-faza-zew MM
1 BLK FORM 0.1 Z X-25 Y-25 Z-10
2 BLK FORM 0.2 X+25 Y+25 Z+0
3 CYCL DEF 7.0 PUNKT BAZOWY
4 CYCL DEF 7.1 X+0
5 CYCL DEF 7.2 Y+0
6 TOOL CALL 10 Z S2000
7 L Z+100 R0 FMAX M3
8 FN 0: Q1 =+15
9 ;promien gorny fazy
10 FN 0: Q2 =+0.15 ;skok
11 FN 0: Q3 =-4.5 ;glebokosc fazy
12 FN 0: Q4 =+0 ;punkt startu
13 FN 0: Q5 =+15 ;srednica freza +5mm
14 FN 1: Q5 =+Q5 + +Q1
15 L X-Q5 Y+0 FMAX
16 L Z+5 R0 FMAX
17 L Z+0 F1000
18 LBL 1
19 L Z+Q4
20 APPR LCT X-Q1 R1 RL F1000
21 CC X+0 Y+0
22 C X-Q1 Y+0 DR-
23 DEP LCT X-Q5 R1
24 FN 1: Q1 =+Q1 + +Q2
25 FN 2: Q4 =+Q4 - +Q2
26 FN 10: IF +Q4 NE +Q3 GOTO LBL 1
27 L Z+100 R0 FMAX
28 STOP M30
29 END PGM 45stp-faza-zew MM
P.S. Teraz zobaczyłem że wypadałoby zmienić głębokości na takie same znaki.
