wenn Funktion nach 20 Jahren

Moin,
Ich habe eine Trumpf (Haas) Laserschneidanlage mit einer Meldas Magic 64 Steuerung.
Ich muss in diesem Fall Rohre abtrennen, was ich normaler Weise nicht mache, daher ist mir Programmierung nicht ganz klar.
Folgende Aufgabe:
-Ich habe 2500mm lange Rohre und ein Drehfutter.
-Ich fahre den Laserkpopf auf X490 (maximales Maß)
- Spanne das Rohr ein, lasse es ein paar Milimeter über die Düse stehen
-jetzt schneide ich einmal auf X490 absolut (G90)
-danach mit G91 X-60,2 und schneiden
-diesen Programmteil wiederhole ich 7 mal, da ich mit der Wiederholung nicht mehr so vertraut bin, habe ich den Block einfach 7 mal kopiert, das
geht ja sehr schnell und hat gut funktioniert.
-Danach fahre ich im Eilgang wieder Absolut (G90) auf X490, löse das Futter, ziehe das Rohr weider unter die Düse und starte neu.
Jetzt zum Problem:
-Ich habe bedingt durch andere Projekte ganz viele verschiedene Restücke, die ich jetzt mit verwursten will. Ich brauche ein Programm mit einer Abfrage.
Ich drücke start und dann:
-Ist X größer als 60,2 dann schneiden, X-60,2 nochmal schneiden, sonst M02
-M99 (einfach wiederholen bis er automatisch in M02 läuft)
Dann kann ich jede beliebige Rohrlänge einlegen, mit dem Handrad X Verfahren und aus jeder Position starten, egal wie lang das Rohr ist.

Kann mir jemand den Programmteil schreiben?
Ich hab die Maschine seit 20 Jahren, und habe soetwas in der Art früher schon mal programmiert, erinnere mich aber nicht mehr genau an den Aufbau.

32000 Aufrufe und keine Antwort
Da war die Frage ja doch nicht so dumm. Gibt es denn niemanden der soetwas programmieren kann?

Hast du ein Handbuch? Das müsste mit dem Befehl "While" gehen. Da werden zwei Werte verglichen und daraufhin eine Adresse angesprungen. Ich hab dir hier ein Beispielprogramm, mit dem über Parameter die Anzahl der Werkstücke und die Anzahl der Reihen eingegeben werden kann.
Vielleicht bringt dir das was als Beispiel.

%
O0000
(NOTES: NONE)
(TIME OF CREATION: TUESDAY, MARCH 10, 2020 08:28)
(TIME OF LAST MODIFICATION: TUESDAY, MARCH 10, 2020 08:28)
(TOOLPATH: TOOLPATH GROUP #1)
(PARTNUMBER: )
(START TOOLLIST)
(T4530 H4530 D4530 - CHAMFER 3.0 MM - 45 DEGREE)
(END TOOLLIST)
#101 = 1 (NUMBER OF PARTS IN X)
#102 = 0 (DISTANCE IN X)
#103 = 0 (TURN PART IN DEGREE)
#104 = 1 (NUMBER OF PARTS IN Y)
#105 = 0 (DISTANCE IN Y)
G00 G40 G49 G80
G00 G90 G54
(TOOL FORMAT START LINES)
N1000 T4530 M06 (CHAMFER 3.0 MM - 45 DEGREE)
G90 G80 G40
S7427 M03
G43 H4530
/ M08
#111= 0 (BACK TO PART 1)
#112= 0 (BACK TO ROW 1)
#114= 0 (RESET POSITION IN X)
#115= 0 (RESET POSITION IN Y)
N1200 WHILE [#114 LT #104] DO2
N1400 WHILE [#111 LT #101] DO1
G52 X#112 Y#115
G17 G68 X0 Y0 R#103 (CALL TURN)
G00 X1.573 Y-0.087 Z2.
Z0.
G01 Z-0.5 F2000.0
G03 X1.572 Y-0.103 I0.3 J-0.017 F178.0
X2.172 Y-0.12 I0.3 J0.
X2.175 Y0. I-2.172 J0.12 F356.0
X-2.175 Y0. I-2.175 J0.
X2.003 Y-0.847 I2.175 J0.
X2.172 Y-0.12 I-2.003 J0.847 F178.0
X2.172 Y-0.103 I-0.3 J0.017
X1.573 Y-0.087 I-0.3 J0.
G00 Z2.
G69 (RESET TURN)
(TOOL FORMAT END LINES)
#111= #111 + 1(NEXT PART IN X)
#112= #112 + #102 (NEXT ZEROPOINT IN X)
N1600 END1
(START NEXT ROW)
#111= 0 (BACK TO 1. PART IN X)
#112= 0 (BACK TO 1. ZEROPOINT IN X)
#114= #114 + 1 (NEXT ROW IN Y)
#115= #115 + #105 (NEXT ZEROPIONT IN Y)
N1800 END2
M09
G52 X0 Y0
(END TOOL)
M09
M05
G91 G28 Z0.
G91 G28 Y0.
G90 X370
M30
%

Der Beitrag wurde von Cam-Dompteur bearbeitet: 10.03.2020, 15:09 Uhr