Ist das Programm so machbar auf einer TSUGAMI HS 327?
Ich bin mir bei den
Schleifen etwas unsicher.
Wie kann man den die Verfahrwege in X und Y Richtung so programmieren, dass man beliebig oft in xy zustellt, bis die Breite und Länge der Tasche erreicht wird? Ohne das der Fräser bei G41 stoppt, da er nicht mindestens seinen Durchmesser verfährt.
Besten Dank.
O1200 ( RECHTECKTASCHE )
#501=+++TASCHENLAENGE+++
#502=+++TASCHENBREITE+++
#503=+++RADIUS+++
#504=+++DREHUNG+++
#505=+++TASCHENTIEFE+++
#506=+++ZUSTELLUNG Z-ACHSE+++
#507=+++AUFMASS Z-ACHSE+++
#508=+++ZUSTELLUNG XY+++
#509=+++AUFMASS XY+++
#530=+++SCHRUPPEN SCHLICHTEN+++ ( 1-SCHRUPPEN, 2-SCHLICHTEN )
#550=+++WERKZEUGNUMMER+++
#551=+++VORSCHUB ZUSTELLEN+++
#552=+++VORSCHUB FRAESEN+++
#553=+++DREHZAHL+++
#554=54 ( NULLPUNKT )
#555=+++STARTPUNKT Z+++
#556=+++SICHERHEITSABSTAND Z-ACHSE+++
M98 P1201
#5201=0
#5202=0
#5203=0
M30
O1201
#571=#501/2-#509
#572=#502/2-#509
#576=#506
#578=2*#508
G00 G28W0.
G00 G30 U0 V0 C0
G00 G28 G#554 X0 Y0
G68 X0 Y0 Z0 R#504
(G00 G43.4 T#550 Z#556)
G01 T#550 F#551 M3 S#553
M98 P1202
G01 Z#555
G69
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]
G01 X[#501/2] Y0
Y[[#502/2]-#503]
G03 X[[#501/2]-#503] Y[#502/2] R#503
G01 X-[[#501/2]-#503]
G03 X-[#501/2] Y[[#502/2]-#503] R#503
G01 Y-[[#502/2]-#503]
G03 X-[[#501/2]-#503] Y-[#502/2] R#503
G01 X[[#501/2]-#503]
G03 X[#501/2] Y-[[#502/2]-#503] R#503
G01 Y0
G01 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]
G01 X#518 Y0 Z-#576 F#551
Y#528 F#552
X-#518
Y-#528
X#518
Y0
G01 G40 X0 Y0
GOTO 600
N500
G41 D[#550+50]
G01 X#518 Y0 Z-#576 F#551
Y[#528-#503] F#552
G03 X[#518-#503] Y#528 R#503
G01 X-[#518-#503]
G03 X-#518 Y[#528-#503] R#503
G01 Y-[#528-#503]
G03 X-[#518-#503] Y-#528 R#503
G01 X[#518-#503]
G03 X#518 Y-[#528-#503] R#503
G01 Y0
G01 G40 X0 Y0
N600
WHILE [[#578 LT [2*#503]] AND [#578 LT #571] AND [#578 LT #572]] DO 2
G41 D[#550+50]
G01 X#578 Y0
Y#578
X-#578
Y-#578
X#578
Y0
G01 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]
G01 X#578 Y0
Y#581
X-#578
Y-#581
X#578
Y0
G01 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]
G01 X#582 Y0
Y#578
X-#582
Y-#578
X#582
Y0
G01 G40 X[#578-#508] Y0
#578=#578+#508
END 2
WHILE [[#578 LT #571] AND [#578 LT #572]] DO 2
G41 D[#550+50]
G01 X#578 Y0
Y[#578-#503]
G03 X[#578-#503] Y#578 R#503
G01 X-[#578-#503]
G03 X-#578 Y[#578-#503] R#503
G01 Y-[#578-#503]
G03 X-[#578-#503] Y-#578 R#503
G01 X[#578-#503]
G03 X#578 Y-[#578-#503] R#503
G01 Y0
G01 G40 X[#578-#508] Y0
#578=#578+#508
END 2
#583=#578-#508
WHILE [#578 LT #571] DO 2
G41 D[#550+50]
G01 X#578 Y0
Y[#583-#503]
G03 X[#578-#503] Y#583 R#503
G01 X-[#578-#503]
G03 X-#578 Y[#583-#503] R#503
G01 Y-[#583-#503]
G03 X-[#578-#503] Y-#583 R#503
G01 X[#578-#503]
G03 X#578 Y-[#583-#503] R#503
G01 Y0
G01 G40 X[#578-#508] Y0
#578=#578+#508
END 2
#584=#578-#508
WHILE [#578 LT #572] DO 2
G41 D[#550+50]
G01 X#584 Y0
Y[#578-#503]
G03 X[#584-#503] Y#578 R#503
G01 X-[#584-#503]
G03 X-#584 Y[#578-#503] R#503
G01 Y-[#578-#503]
G03 X-[#584-#503] Y-#578 R#503
G01 X[#584-#503]
G03 X#584 Y-[#578-#503] R#503
G01 Y0
G01 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]
G01 X#571 Y0
Y[#572-#503]
G03 X[#571-#503] Y#572 R#503
G01 X-[#571-#503]
G03 X-#571 Y[#572-#503] R#503
G01 Y-[#572-#503]
G03 X-[#571-#503] Y-#572 R#503
G01 X[#571-#503]
G03 X#571 Y-[#572-#503] R#503
G01 Y0
G01 G40 X0 Y0
N200
M99