G12/g13 Macro, G12/g13 Macro

Hallo,ich habe ein kleines Problem,vielleicht könnt ihr mir helfen.
Maschine ist ein Hardinge BAZ.
Wenn ich einen Kreis fraesen möchte ,nutze ich normalerweise die g12/g13 funktion.
An meinen Haasmaschinen klappt das hervorragend,schreibe einfach den Satz "G12I15 D21 F500,"
(G12=Kreisfraesen,I15=30mmØ,D21=Radiuskorrektur und Vorschub 500)
Bei der Hardinge schreib ich den gleichen Satz,Maschine fährt ohne Radiuskorektur und der Ø wird zu groß.
So muss ich bei I15 immer den Fraeserradius abziehen.Bei 12Fraeser schreibe ich dann I9.
Irgendwie wird meine Radiuskorrektur nicht verrechnet.
Ich stelle mal das G12+G13 Macro ein,vielleicht findet ja jemand den Fehler.
Im voraus vielen Dank,Jürgen
%
:9012(G12)
#25=#4
#7=#7+2000
#1=#[#7]
IF[#6EQ#0]GOTO1
#6=#6-#1
N1#2=#4-#1
#3=#2/2
#4=#2*2
IF[#6NE#0]GOTO10
IF[#18EQ#0]GOTO5
IF[#25LE#1]GOTO3333
IF[#18GE#2]GOTO4444
#11=#18-#3
#12=#11*#11
#13=#3*#3
#14=#13-#12
#10=SQRT[#14]
#15=#2-#18
#16=#9*10
G91G94
G2X#18Y#10R#3F#16
X#15Y-#10R#3F#9
X-#4R#2
X#4R#2
X-#15Y-#10R#3
X-#18Y#10R#3F#16
GOTO100
N5
IF[#25LE#1]GOTO3333
G91G94
G2X#2R#3
X-#4R#2
X#4R#2
X-#2R#3
GOTO100
N10
IF[#17GE[#1*2]]GOTO5555
IF[#25LT#1]GOTO6666
G91G94
#18=#17/2
#19=#6/2
G2X#2R#3F#9
G2X-#4R#2
X#4R#2
DO1
N1#4=#17+#4
N2#2=#4/2
N3IF[[#4-#30]GE#6]GOTO20
N4G2X-#4R#2
N5#30=#2
N6#4=#17+#4
N7#2=#4/2
N8IF[[#4-#30]GE#6]GOTO30
N9X#4R#2
#30=#2
END1
N20#2=#2-#18
#4=#4-#17
#20=#6-#2
#4=#4+#20
#2=#4/2
G2X-#4R#2
G2I#6
G2X#6R#19
GOTO100
N30#2=#2-#18
#4=#4-#18
#20=#6-#2
#4=#4+#20
#2=#4/2
G2X#4R#2
G2I-#6
G2X-#6R#19
N100G1G90
M99
N3333#3000=5(END MILL TOO LARGE)
N4444#3000=6(RAPID MOVE TOO LARGE)
N5555#3000=7(STEP OVER TOO LARGE)
N6666#3000=8(ENTRY ARC TOO SMALL)

:9013(G13)
#25=#4
#7=#7+2000
#1=#[#7]
IF[#6EQ#0]GOTO1
#6=#6-#1
N1#2=#4-#1
#3=#2/2
#4=#2*2
IF[#6NE#0]GOTO10
IF[#18EQ#0]GOTO5
IF[#25LE#1]GOTO3333
IF[#18GE#2]GOTO4444
#11=#18-#3
#12=#11*#11
#13=#3*#3
#14=#13-#12
#10=SQRT[#14]
#15=#2-#18
#16=#9*5
G91G94
G3X#18Y-#10R#3F#16
X#15Y#10R#3F#9
X-#4R#2
X#4R#2
X-#15Y#10R#3
X-#18Y-#10R#3F#16
GOTO100
N5
IF[#25LE#1]GOTO3333
G91G94
G3X#2R#3
X-#4R#2
X#4R#2
X-#2R#3
GOTO100
N10
IF[#17GE[#1*2]]GOTO5555
IF[#25LT#1]GOTO6666
G91G94
#18=#17/2
#19=#6/2
G3X#2R#3F#9
G3X-#4R#2
X#4R#2
DO1
#4=#17+#4
#2=#4/2
IF[[#4-#30]GE#6]GOTO20
G3X-#4R#2
#30=#2
#4=#17+#4
#2=#4/2
IF[[#4-#30]GE#6]GOTO30
X#4R#2
#30=#2
END1
N20#2=#2-#18
#4=#4-#17
#20=#6-#2
#4=#4+#20
#2=#4/2
G3X-#4R#2
G3I#6
G3X#6R#19
GOTO100
N30#2=#2-#18
#4=#4-#18
#20=#6-#2
#4=#4+#20
#2=#4/2
G3X#4R#2
G3I-#6
G3X-#6R#19
N100G1G90
M99
N3333#3000=5(END MILL TOO LARGE)
N4444#3000=6(RAPID MOVE TOO LARGE)
N5555#3000=7(STEP OVER TOO LARGE)
N6666#3000=8(ENTRY ARC TOO SMALL)
%

Da ich auch an einer Hardinge mit Fanuc arbeite kann ich nur sagen das du eventuell
im Zyklus noch ein D für den Fräserradius einfügen solltest.
Schau dir mal meinen Beitrag an:

https://de.industryarena.com/fanuc/forum/fa...html#entry32018

MfG

Florian

Hallo Florian,danke für die schnelle Antwort!
Ich verstehe das nicht wirklich mit dem D,wie würde dein Zyklus aussehen?
D verwende ich ja für die Radiuskorrektur,und 2mal D gibt ja bestimmt eine Alarmmeldung.
Stehe wohl auf dem Schlauch
Grüßle Jürgen

z.B. so für eine 30er Tasche:

G12 (oder 13) I3. K15. D4. K2. F1000

I= 1. zu fräsender Radius
K= fertigradius der Tasche
D= Fräserradius
K= Seitliche Zustellung

Das D ist nur die Variable für die Übergabe ins Makro.Hat nichts mit D bei Fräserradiuskorrektur zu tun.Ist halt zufällig in dem Makro so.

MfG

Florian

Hallo Florian.
werde das morgen mal testen,heißt im umkehrschluss für mich das es keine Radiuskorrektur gibt.
Ist der Fraeser kleiner muss ich das Programm ändern.
Grüßle Jürgen

Genau.Du musst halt im Zyklus den D Wert ändern. Dann halt statt z.B. D4. D3.9 oder so...