So.
Dann wollen wa mal.
0 BEGIN
PGM Z_R_R MM
1 BLK FORM 0.1 Z X-25 Y-25 Z-63.3
2 BLK FORM 0.2 X+25 Y+25 Z+0
3 TOOL CALL "KUGELFR10" Z S5000 F2500
4 M3
5 FN 0: Q1 =+0
(Startpunkt Z-Achse) 6 LBL 1
7 Q1 = Q1 - ( 13.3 / 10 )
(Berechnung der Zustellung) 8 FN 1: Q2 =+35.355 + +Q108
(Startradius für Planfräsen PR)(halbes Eckenmaß des 50èr 4-Kant`s + Werkzeugradius)9 FN 0: Q3 =+0
(Startwinkel PA)10 FN 1: Q4 =+10 + +Q108
(Endradius)11 L X+Q2 Y+0 Z+20 FMAX
(Positionieren auf Startpunkt)12 L Z+Q1 FMAX
13 LBL 2
14 Q2 = Q2 - ( Q108 / 360 )
(Berechnung der seitlichen Zustellung)15 FN 2: Q3 =+Q3 - +1
(Berechnung Winkell)16 CC X+0 Y+0
17 FN 12: IF +Q2 LT +Q4 GOTO LBL 3
(Wenn berechneter Radius kleiner als Endradius Sprung nach LBL3)18 LP PR+Q2 PA+Q3 F AUTO
(Positionieren auf neue Position)19 FN 9: IF +0 EQU +0 GOTO LBL 2
(Rücksprung nach LBL2)20 LBL 3
21 LP PR+Q4 PA+Q3 F AUTO
(Positionieren auf Fertigradius und einmal unfahren)22 CP IPA-360 DR-
23 DEP PLCT IPR+Q108 PA+Q3 R2
(Freifahren)24 L Z+20 FMAX
25 FN 11: IF +Q1 GT -13.3 GOTO LBL 1
(Rücksprung nach LBL1 wenn noch nicht auf Endtiefe)26 FN 0: Q1 =+0
(Startwinkel für Positionsberechnung)27 LBL 4
28 FN 1: Q1 =+Q1 + +1
(Berechnung Winkelschritt)29 Q10 = SIN Q1 * ( 50 + Q108 )
(Endpunkt X-Achse)30 Q11 = - 63.3 - Q108 + ( COS Q1 * ( 50 + Q108 ) )
(Endpunkt Z-Achse)31 FN 1: Q12 =+25 + +Q108
(Startpunkt X-Achse)32 FN 11: IF +Q10 GT +Q12 GOTO LBL 99
(Wenn Endpunkt X größer Startpunkt X Sprung nach LBL99)33 FN 1: Q2 =+25 + +Q108
(Startpunkt X für fräsen)34 FN 1: Q3 =+25 + +Q108
(Startpunkt Y)35 LBL 5
36 FN 2: Q2 =+Q2 - +Q108
(Berechnung Zustellung in X)37 FN 12: IF +Q2 LT +Q4 GOTO LBL 6
(Wenn X Pos kleiner Zapfen Sprung nach LBL6)38 FN 12: IF +Q2 LT +Q10 GOTO LBL 7
(Wenn X Pos kleiner Endpos Sprung nach LBL7)39 L X-Q2 Y-Q3 Z+20 FMAX
40 L Z+Q11 FMAX
41 L Y+Q3 F AUTO
42 L Z+20 FMAX
(Fräsen)43 L X+Q2 FMAX
44 L Z+Q11 FMAX
45 L Y-Q3
46 L Z+20 FMAX
47 FN 9: IF +0 EQU +0 GOTO LBL 5
(Rücksprung nach LBL5)48 LBL 6
49 FN 2: Q2 =+Q2 - +Q108
(Berechnung Zustellung X)50 FN 11: IF +Q2 GT +Q10 GOTO LBL 8
(Wenn X Pos größer Endpos X Sprung nach LBL8)51 FN 0: Q2 =+Q10
(ansonsten X Pos = Endpos X)52 LBL 8
53 Q20 = SQRT ( ( SQ Q4 ) - ( SQ Q2 ) )
(Schnittpunkt X Pos mit Zapfen berechnen)54 L X-Q2 Y-Q3 Z+20 FMAX
55 L Z+Q11 FMAX
56 L Y-Q20 F AUTO
57 CC X+0 Y+0
58 C X-Q2 Y+Q20 DR-
59 L Y+Q3
60 L Z+20 FMAX
(Fräsen)61 L X+Q2 FMAX
62 L Z+Q11 FMAX
63 L Y+Q20
64 C X+Q2 Y-Q20 DR-
65 L Y-Q3
66 L Z+20 FMAX
67 FN 10: IF +Q2 NE +Q10 GOTO LBL 6
(Wenn X Pos ungleich Endpos X Sprung nach LBL6)68 FN 9: IF +Q2 EQU +Q10 GOTO LBL 4
(Wenn X Pos gleich Endpos X Sprung nach LBL4)69 LBL 7
70 L X-Q10 Y-Q3 Z+20 FMAX
71 L Z+Q11 FMAX
72 L Y+Q3 F AUTO
73 L Z+20 FMAX
(Fräsen)74 L X+Q10 FMAX
75 L Z+Q11 FMAX
76 L Y-Q3
77 L Z+20 FMAX
78 FN 9: IF +0 EQU +0 GOTO LBL 4
(Rückspung nach LBL4)79 LBL 99
80 L Z+100 FMAX M30
81 END PGM Z_R_R MM
Fertig.
@ General-5Achs
Danke für die Blumen.
Gruß Speedy1