Entgraten mehrer Bohrungen mit G12.1

Hallo und guten Tag Ihr Lieben,

ich habe da mal wieder ein kleines Anliegen:

Ich möchte mit einem Doppelentgratwerkzeug ein Bohrung Dia 10,5 entgraten.

Bis jetzt haben wir das mit einer Heule gemacht, was auch ganz gut funktioniert hat.
Da dass Werkzeug aber recht teuer ist, möchte ich hier einen anderen Weg versuchen, was vom Ablauf und der Realisierbarkeit auf einer Maschine mit Siemens 840D auch ganz gut geklappt hat.

Mein Problem:
Ich komme ja eigentlich aus der Siemens -Programmierung und hab da so was schon mit Transmit gemacht und auch zum Laufen gebracht.

Jetzt hab ich das ganze mal in Fanuc umgestrickt und bin dabei auf den G12.1 gestoßen..

Mein Programm sieht jetzt so aus:

%

O2508(UP OP20 D10.5 Entgraten)
(----------------------------------------------------------)

(Control: Fanuc)
(Creator: MR)
(Date: 05.12.2025)
(Change: Entgraten mit DOPPELENTGRATER 6 Bohrungen auf DIA 78)
(----------------------------------------------------------)

(21118398 // EMAG)
(----------------------------------------------------------)

(1. Zustellen auf Tiefe)
G90 (Absolutprogrammierung)
G0 Z-67.4 (Zustellen auf Entgratposition)

(2. Polarinterpolation aktivieren)
G12.1 (Polarinterpolation einschalten)

(3. Kreisbewegung zum Entgraten)
G91 (Inkrementalprogrammierung)
G1 X1.25 F0.2 (Vorschub auf den Radius der Bohrung - Werkzeugradius berücksichtigt)
G3 I-1.25 (Kreisbewegung mit einem Radius von 5.25 mm relativ zur Startposition)

(4. Zurück zur Mitte der Bohrung)
G1 X-1.25 (Zurück zur Mitte der Bohrung)

(5. Polarinterpolation deaktivieren)
G13.1 (Polarinterpolation ausschalten)

(6. Rückzug aus der Bohrung)
G90 (Zurück zu Absolutprogrammierung)
G0 Z-52.3 (Zurückziehen in Sicherheitsebene)

(7. Ende des Unterprogramms)
M99 (Rücksprung ins Hauptprogramm)

Drehzahl wird im Hauptprogramm aufgerufen:

(T3 Entgraten Durchmesser 10.5)
M62
G0G90T303
G0G95G97S1200M3M06P2
G0X[160+#588]C[45-0]M8020M156(Pos. Bohrung 1_1)
G0Z-52.3M700(Entgrater 3mm Vor dem Teil Positionieren)
M98P2509(Aufruf UP O2509 D10.5 Entgraten erste Bohrung)
G0X[78+#587]C45(Pos. Bohrung 1_2)
G0Z-58.4(Entgrater 3mm Vor dem Teil Positionieren)
M98P2508(Aufruf UP O2508 D10.5 Entgraten)
G0C105(Pos. Bohrung 2)
M98P2508(Aufruf UP O2508 D10.5 Entgraten)
G0C165(Pos. Bohrung 3)
M98P2508(Aufruf UP O2508 D10.5 Entgraten)
G0C225(Pos. Bohrung 4)
M98P2508(Aufruf UP O2508 D10.5 Entgraten)
G0C285(Pos. Bohrung 5)
M98P2508(Aufruf UP O2508 D10.5 Entgraten)
G0C345(Pos. Bohrung 6)
M98P2508(Aufruf UP O2508 D10.5 Entgraten)
G0Z50
M09M05P2
M63
G0Z100
G0X100
G90G97

Maschine ist eine EMAG VL 6, leider ohne Y Achse.

Meine Frage:

Ist das Unterprogramm so lauffähig?

Option mit Polarinterpolation ist vorhanden.

Vielen Dank für Eure Unterstützung!

Gruß
Rücky

Moin,

hab mir deinen Code jetzt nicht so genau angeschaut. Vom Prinzip her sollte es glaube ich so gehen. Gegenfrage:
Wenn du dich etwas mit Makroprogrammierung auskennst, könntest du dir die ganzen UPs sparen und dir ein UP/Makro schreiben, welches auch für später universell einsetzbar ist.
Somit könntest du dein Programm übersichtlicher halten und müsstest für das nächste mal nur einen Satz mit ein paar Werten programmieren.