Ich habe auf der schnelle ein hüpscher Parameterzyklus dafür geschrieben .Wen man mal ein bischen damit spielt (das heist die Parameter -alle sogar!-ändert) sieht man den Nutzen.Ganz senkrecht auf der Fläche geht nicht(wegen der Tangens)Aber 89.999° ist auch in der Toleranz.
Eher für Walz- als für Stirnfräsen gedacht aber trotzdem multifunktional und GRATIS noch dazu!
Lustig ist es wen man die Z und B Achse noch dazu inkrementiert(Habe schon mal ein Impeller mit einem ähnlichen Zyklus programmiert-Da haben die
CAM Leuten blöd geschaut.Die Maschine kann immer nur so viel wie der MENSCH daneben .
Auf Deckel DUOBLOCK 80 (B C -Achsen iTNC530) läuft der Zyklus wie ein Weltmeister.
Parameterzyklen sind die höchst Stufe im
CNC programmieren . Es ist eher für Meister wie Mister Paranuss!
Simulation (rein teoretisch!!!=nicht bearbeiten mit dieser Werte) mit 20mm Radius + 300mm Länge(250mm LCUTS Länge in der WKZ Tabelle)
0 BEGIN PGM 3D-W MM
1 BLK FORM 0.1 Z X-300 Y-300 Z-100
2 BLK FORM 0.2 X+300 Y+300 Z+0
3 TOOL CALL 32 Z S6000 F3000
4 ;
5 ;Zyklus ANFANG
6 ;ParameterEINGABE-ANFANG
7 Q60 = +30 ;Fasen Winkel ("+" INNEN.LOCH ; "-" AUSSEN.KONUS)
8 Q61 = 0 ;Start Winkel
9 Q62 = 175 ;Kreis Radius
10 Q63 = 0.5 ;Winkel Inkrement
11 Q64 = - 100 ;Tiefe
12 Q65 = 111 ;Sichere Hoehe
13 Q66 = 360 ;Bogenoefnung-GRAD
14 Q70 = 360 / Q63 / (360/Q66)
15 Q71 = 0 ;X NP Inkremental
16 Q72 = 0 ;Y NP Inkremental
17 Q73 = 0 ;Z Koordinate-Oberflaeche Inkremental
18 TOOL CALL DR+0 ;Aufmass normal zu Flaeche:DR
19 ;ParameterEINGABE-ENDE
20 ;RECHNEN+BEARBEITEN
21 Q62 = Q62 - Q108 * COS Q60 * SGN Q60 ;R.unten
22 Q64 = Q64 + Q108 * ABS SIN Q60 ;Tiefe
23 Q74 = ( Q108 - Q64 ) * TAN Q60 * SGN Q60 ;R.oben
24 Q74 = Q62 + Q74 * SGN Q60
25 LBL 998
26 Q68 = Q74 * COS Q61 ;X
27 Q69 = Q74 * SIN Q61 ;Y
28 LBL 0
29 CYCL DEF 7.0 NULLPUNKT
30 CYCL DEF 7.1 IX+Q71
31 CYCL DEF 7.2 IY+Q72
32 CYCL DEF 7.3 IZ+Q73
33 FUNCTION TCPM F CONT AXIS SPAT PATHCTRL VECTOR
34 L Z+Q65 R0 FMAX
35 L X+Q68 Y+Q69 R0 FMAX
36 L A+0 B+Q60 C+Q61 R0 FMAX
37 L X+Q68 Y+Q69 Z+Q108 R0 F1000
38 LBL 999
39 Q68 = Q62 * COS Q61 ;X
40 Q69 = Q62 * SIN Q61 ;Y
41 L X+Q68 Y+Q69 Z+Q64 B+Q60 C+Q61 R0 F AUTO
42 Q61 = Q61 - Q63
43 CALL LBL 999 REPQ70
44 Q61 = Q61 + Q63
45 CALL LBL 998
46 L X+Q68 Y+Q69 Z+Q108 B+Q60 C+Q61 R0 F1000
47 L Z+Q65 R0 FMAX
48 L A+0 B+0 C+0 R0 FMAX
49 FUNCTION RESET TCPM
50 TOOL CALL DR+0
51 CYCL DEF 7.0 NULLPUNKT
52 CYCL DEF 7.1 IX-Q71
53 CYCL DEF 7.2 IY-Q72
54 CYCL DEF 7.3 IZ-Q73
55 ;Zyklus ENDE
56 ;
57 STOP M2
58 END PGM 3D-W MM