Habe mal eben schnell das programmiert.
EInfach Radius und Mittelpunkte der Radien abändern, zusätzlich die Fasenlänge der Schräge ändern.
Programm klappt nur für 45° Schrägen.
Problemfall mit dem MK, da dieser nur am Umfang schneidet, müsste man die Werkzeugbahn mehrmalig versetzten damit man eine saubere Fläche bekommt. Da bei den Radien wie beim Abzeilen ein großer Zeilenabstand entsteht. Keine Saubere Fläche, sieht man am Bild.
Abhilfe:
Schaftfräser über Mitte schneidend verwenden.
Hier würde das Problem nicht auftreten, da beim einschwenken immer die Sirnschneide schneidet. Nachteil: stechender Schnitt
Das Programm würde für diesen Fall auch viel einfacher aussehen.
0 BEGIN PGM 4XUMFANGSFRASENMK MM
1 BLK FORM 0.1 Z X+0 Y+0 Z-100
2 BLK FORM 0.2 X+102 Y+20 Z+2
3 ;Nur fur 45grad Schragen verwendbar
4 ;RADIUS 1
5 Q1 = 10 ;Verundungsradius
6 Q2 = 0 ;Startwinkel
7 Q3 = 45 ;;Endwinkel
8 Q4 = 35.86 ;Mittelpunkt Radius X
9 Q5 = - 10 ;Mittelpunkt Radius Z
10 Q6 = 0.5 ;Winkelstep,keine krummen Werte!!
11 ;Radius 2
12 Q7 = 10 ;Verundungsradius
13 Q8 = 45 ;Startwinkel
14 Q9 = 90 ;;Endwinkel
15 Q10 = 90 ;Mittelpunkt Radius X
16 Q11 = - 64.14 ;Mittelpunkt Radius Z
17 Q12 = 0.5 ;Winkelstep
18 Q13 = 54.14 ;Tangente Fasenlange
19 TOOL CALL 25 Z S9000 F3000
20 L X-30 Y+10 R0 FMAX M13
21 L Z+2 R0 FMAX
22 L Z+0 R0 F AUTO
23 FUNCTION TCPM F TCP AXIS SPAT PATHCTRL AXIS
24 L A+0 B+0 C+0 FMAX
25 Q1008 = Q4 - Q108 ;X Einschwenkposition
26 L X+Q1008
27 ;Berechnungen
28 Q1009 = Q2 ;Startwinkel Radius
29 LBL 1
30 Q1009 = Q1009 + Q6 ;aktueller Winkelschritt
31 Q1010 = Q1 * SIN Q1009 ;X Punkt Radius
32 Q1020 = Q1 * COS Q1009 ;Z Punkt Radius
33 Q1030 = Q108 * COS Q1009 ;X Versatz TCP
34 Q1040 = Q108 * SIN Q1009 ;Z Versatz TCP
35 Q1050 = Q4 + Q1010 - Q1030 ;Koordinate x TCP
36 Q1060 = Q5 + Q1020 + Q1040 ;Koordinate Z TCP
37 L X+Q1050 Z+Q1060 B+Q1009
38 FN 12: IF +Q1009 LT +Q3 GOTO LBL 1
39 LBL 0
40 L IX+Q13 IZ-Q13 ;Fasenlange der Tangente
41 Q1009 = Q8
42 LBL 2
43 Q1009 = Q1009 + Q6 ;aktueller Winkelschritt
44 Q1010 = Q1 * SIN Q1009 ;X Punkt Radius
45 Q1020 = Q1 * COS Q1009 ;Z Punkt Radius
46 Q1030 = Q108 * COS Q1009 ;X Versatz TCP
47 Q1040 = Q108 * SIN Q1009 ;Z Versatz TCP
48 Q1050 = Q10 + Q1010 - Q1030 ;Koordinate x TCP
49 Q1060 = Q11 + Q1020 + Q1040 ;Koordinate Z TCP
50 L X+Q1050 Z+Q1060 B+Q1009
51 FN 12: IF +Q1009 LT +Q9 GOTO LBL 2
52 LBL 0
53 L Z-120
54 L X+120 R0 FMAX
55 M140 MB MAX
56 PLANE RESET MOVE FMAX
TCPM reseten
57 END PGM 4XUMFANGSFRASENMK MM
Keine Gewähr