Hallo allerseits,
ich habe zwei Makros erstellt, welche ich auch teilweise testen konnte.
Leider ist es mir momentan nicht möglich, die Makros endgültig an einer Maschine auszuprobieren.
Sie sollen auf Fanucsteuerungen (15-M, 15i-M, 16-M, 18-M) laufen.
Mit den Makros läßt sich die Tasche ausräumen und schlichten. Beide Zyklen können auch in einem 'Ritt' abgearbeitet werden (Auswahlparameter für Schruppen/Schlichten #530 auf 0 setzen).
Mit dem Makro für Rechtecktaschen sollen auch Langlochtaschen gefräst werden können (Sonderfall: Der Eckenradius entspricht der halben Breite).
Die Makros untergliedern sich in jeweils vier einzelne Programme, wobei nur in den Hauptprogrammen O1200 bzw. O1100 die entsprechenden Eingaben gemacht werden müssen. Der Eingabebereich sollte selbsterklärend sein.
Wenn jemand die Makros testen kann und noch Änderungsvorschläge hat, wäre das super.
Also hier die Programme:
---------------------------------------
%
O1200 ( RECHTECKTASCHE )
#5201=0
#5202=0
#5203=0
#501=100. ( LAENGE X )
#502=80. ( BREITE Y )
#503=20. ( ECKENRADIEN )
#504=45. ( DREHUNG)
#505=20. ( FRAESTIEFE )
#506=1. ( Z-ZUSTELLUNG )
#507=.5 ( AUFMASS BODEN )
#508=20. ( ZUSTELLUNG XY )
#509=.5 ( AUFMASS XY )
#530=1 ( 1-SCHRUPPEN, 2-SCHLICHTEN )
#550=8 ( WERKZEUGNUMMER )
#551=2500 ( ZUSTELLVORSCHUB )
#552=4000 ( ARBEITSVORSCHUB )
#553=5000 (
DREHZAHL )
#554=54 ( NULLPUNKT )
#555=0. ( STARTPUNKT Z )
#556=50. ( SICHERHEITSEBENE Z )
M98 P1201
#5201=0
#5202=0
#5203=0
M30
%
---------------------------------------
%
O1201
#571=#501/2-#509
#572=#502/2-#509
#576=#506
#578=2*#508
G91 G28 Z0 A0 C0
G0 G90 G#554 X0 Y0
G68 X0 Y0 Z0 R#504
G0 G43.4 H#550 Z#556
G5.1 Q1
G1 Z#555 F#551 M3 S#553
M98 P1202
G69
G50.1 X0 Y0
G5.1 Q0
G91 G28 Z0
G90 G49
M05
M09
M99
%
---------------------------------------
%
O1202
IF [#530 EQ 2] GOTO 200
WHILE [#576 LT [#505-#507]] DO 1
M98 P1203
#576=#576+#506
END 1
IF [#507 EQ 0] GOTO 100
#576=#505-#507
M98 P1203
N100
IF [#530 EQ 1] GOTO 300
N200
#576=#505
M98 P1203
G41 D[#550+50]
G1 X[#501/2] Y0
Y[[#502/2]-#503]
G3 X[[#501/2]-#503] Y[#502/2] R#503
G1 X-[[#501/2]-#503]
G3 X-[#501/2] Y[[#502/2]-#503] R#503
G1 Y-[[#502/2]-#503]
G3 X-[[#501/2]-#503] Y-[#502/2] R#503
G1 X[[#501/2]-#503]
G3 X[#501/2] Y-[[#502/2]-#503] R#503
G1 Y0
G1 G40 X0 Y0
N300
M99
%
---------------------------------------
%
O1203
#518=#508
#528=#508
IF [#508 GT #571] GOTO 200
#518=#571
N200
IF [#508 GT #572] GOTO 300
#528=#572
N300
IF [#508 GE [2*#503]] GOTO 500
G41 D[#550+50]
G1 X#518 Y0 Z-#576 F#551
Y#528 F#552
X-#518
Y-#528
X#518
Y0
G1 G40 X0 Y0
GOTO 600
N500
G41 D[#550+50]
G1 X#518 Y0 Z-#576 F#551
Y[#528-#503] F#552
G3 X[#518-#503] Y#528 R#503
G1 X-[#518-#503]
G3 X-#518 Y[#528-#503] R#503
G1 Y-[#528-#503]
G3 X-[#518-#503] Y-#528 R#503
G1 X[#518-#503]
G3 X#518 Y-[#528-#503] R#503
G1 Y0
G1 G40 X0 Y0
N600
WHILE [[#578 LT [2*#503]] AND [#578 LT #571] AND [#578 LT #572]] DO 2
G41 D[#550+50]
G1 X#578 Y0
Y#578
X-#578
Y-#578
X#578
Y0
G1 G40 X[#578-#508] Y0
#578=#578+#508
END 2
#581=#578-#508
WHILE [[#578 LT [2*#503]] AND [#578 LT #571]] DO 2
G41 D[#550+50]
G1 X#578 Y0
Y#581
X-#578
Y-#581
X#578
Y0
G1 G40 X[#578-#508] Y0
#578=#578+#508
END 2
#582=#578-#508
WHILE [[#578 LT [2*#503]] AND [#578 LT #572]] DO 2
G41 D[#550+50]
G1 X#582 Y0
Y#578
X-#582
Y-#578
X#582
Y0
G1 G40 X[#578-#508] Y0
#578=#578+#508
END 2
WHILE [[#578 LT #571] AND [#578 LT #572]] DO 2
G41 D[#550+50]
G1 X#578 Y0
Y[#578-#503]
G3 X[#578-#503] Y#578 R#503
G1 X-[#578-#503]
G3 X-#578 Y[#578-#503] R#503
G1 Y-[#578-#503]
G3 X-[#578-#503] Y-#578 R#503
G1 X[#578-#503]
G3 X#578 Y-[#578-#503] R#503
G1 Y0
G1 G40 X[#578-#508] Y0
#578=#578+#508
END 2
#583=#578-#508
WHILE [#578 LT #571] DO 2
G41 D[#550+50]
G1 X#578 Y0
Y[#583-#503]
G3 X[#578-#503] Y#583 R#503
G1 X-[#578-#503]
G3 X-#578 Y[#583-#503] R#503
G1 Y-[#583-#503]
G3 X-[#578-#503] Y-#583 R#503
G1 X[#578-#503]
G3 X#578 Y-[#583-#503] R#503
G1 Y0
G1 G40 X[#578-#508] Y0
#578=#578+#508
END 2
#584=#578-#508
WHILE [#578 LT #572] DO 2
G41 D[#550+50]
G1 X#584 Y0
Y[#578-#503]
G3 X[#584-#503] Y#578 R#503
G1 X-[#584-#503]
G3 X-#584 Y[#578-#503] R#503
G1 Y-[#578-#503]
G3 X-[#584-#503] Y-#578 R#503
G1 X[#584-#503]
G3 X#584 Y-[#578-#503] R#503
G1 Y0
G1 G40 X[#578-#508] Y0
#578=#578+#508
END 2
#578=2*#508
IF [#576 EQ #505] GOTO 200
IF [#509 EQ 0] GOTO 200
G41 D[#550+50]
G1 X#571 Y0
Y[#572-#503]
G3 X[#571-#503] Y#572 R#503
G1 X-[#571-#503]
G3 X-#571 Y[#572-#503] R#503
G1 Y-[#572-#503]
G3 X-[#571-#503] Y-#572 R#503
G1 X[#571-#503]
G3 X#571 Y-[#572-#503] R#503
G1 Y0
G1 G40 X0 Y0
N200
M99
%
---------------------------------------
---------------------------------------
%
O1100 ( KREISTASCHE )
#5201=0
#5202=0
#5203=0
#501=60. ( RADIUS )
#505=20. ( FRAESTIEFE )
#506=1. ( Z-ZUSTELLUNG )
#507=0.5 ( AUFMASS BODEN )
#508=20. ( ZUSTELLUNG XY )
#509=0.5 ( AUFMASS XY)
#530=1 ( 1-SCHRUPPEN, 2-SCHLICHTEN)
#550=69 ( WERKZEUGNUMMER )
#551=500 ( ZUSTELLVORSCHUB )
#552=1000 ( ARBEITSVORSCHUB )
#553=5000 ( DREHZAHL )
#554=54 ( NULLPUNKT )
#555=0. ( STARTPUNKT Z )
#556=50. ( SICHERHEITSEBENE Z )
M98 P1101
#5201=0
#5202=0
#5203=0
M30
%
---------------------------------------
%
O1101
#571=#501-#509
#576=#506
#578=2*#508
G91 G28 Z0 A0 C0
G0 G90 G#554 X0 Y0
G0 G43.4 H#550 Z#556
G5.1 Q1
G1 Z#555 F#552 M3 S#553
M98 P1102
G50.1 X0 Y0
G5.1 Q0
G91 G28 Z0
G90 G49
M05
M09
M99
%
---------------------------------------
%
O1102
IF [#530 EQ 2] GOTO 200
WHILE [#576 LT [#505-#507]] DO 1
M98 P1103
#576=#576+#506
END 1
IF [#507 EQ 0] GOTO 100
#576=#505-#507
M98 P1103
N100
IF [#530 EQ 1] GOTO 300
N200
#576=#505
M98 P1103
G41 D[#550+50]
G1 X#501 Y0
G3 I-#501
G3 X0 Y#501 I-#501
G1 G40 X0 Y0
N300
M99
%
---------------------------------------
%
O1103
G41 D[#550+50]
G1 X#508 Y0
G3 I-#508 Z-#576 F#551
G1 G40 X0 Y0 F#552
IF [#576 NE #505] GOTO 100
G41 D[#550+50]
G1 X#508 Y0
G3 I-#508
G1 G40 X0 Y0
N100
WHILE [#578 LT #571] DO 2
G41 D[#550+50]
G1 X#578 Y0
G3 I-#578
G1 G40 X[#578-#508] Y0
#578=#578+#508
END 2
#578=2*#508
IF [#576 EQ #505] GOTO 200
IF [#509 EQ 0] GOTO 200
G41 D[#550+50]
G1 X#571 Y0
G3 I-#571
G3 X0 Y#571 I-#571
G1 G40 X0 Y0
N200
M99
%