04-23-2024, 07:55 AM
Hallo zusammen
Mein selbsterstelltes Makro zur 0-Punktermittlung mittels Kreuzlinienlaser funktioniert nur noch zum Teil.
Zur Vorgeschichte, ich betrieb die Fröse mit der Beamicon2 Version 2.16, damit hat das Makro auch problemlos funktioniert. Dann bin ich auf die (blöde), Idee gekommen wieder einmal ein Update der SW durchzuführen und habe auf die Ver. 3.28 upgedatet, dabei hat es mir das Netbob V1.x zerschossen. Das wurde in der Zwischenzeit von Benezan neu geflasht und funktioniert auch wieder. Herzlichen Dank dafür.
Was aber nicht mehr richtig läuft ist mein Makro zur 0-Punktbestimmung der X & Y Position.
Die Vorehensweise ist folgende:
Mit dem Kreuzlinienlaser fahre ich den gewünschten 0-Punkt an und starte das Makro. Nun wird die Position ermittelt, der Versatz vom Laser zum Fräser davon abgezogen und die Spindel verfährt auf den errechenten 0-Punkt. Soweit so gut.
Jetzt sollte der angefahrene Punkt als Werkstück 0-Punkt übernommen werden, was leider nicht mehr gemacht wird. Natürlich kann ich jetzt die X & Y Achse manuell Nullen, das ist aber nicht der Zweck des Makros und vor dem Update hat das auch funktioniert.
Das heist, der Befehl L53 wird nicht mehr ausgeführt.
Das Makro habe ich mal angehängt evtl. kann mir da jemand helfen? ( Das Makro kann sicher noch Programmtechnisch optimiert werden, aber bis jetzt hat es ja funktioniert und da sah ich keinen Bedarf dazu.)
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
#NAME User02.txt #LABEL "X-/Y- Nullpunkt mit Fadenkreuz"
%
#10=#909 (Aktueller Werkstückoffset speichern G5x)
G53 (Maschinenekoordinaten aktivieren)
F=500 (Geschweindigkeit auf 500mm/Min setzen)
#9=Z
#12=X
#13=Y
IF #12<57 THEN (Prüfen ob X im bearbeitbaren Bereich ist)
G1 X=58
PRINT "X ist ausserhalb des zulaessigen Bereichs, Werkstueck neu positionieren"
M2
ELSE
IF #13<34 THEN (Prüfen ob Y im bearbeitbaren Bereich ist)
G1 Y=35
PRINT "Y ist ausserhalb des zulaessigen Bereichs, Werkstueck neu positionieren"
M2
ENDIF
ENDIF
IF #9<0 THEN (Prüfen ob Z auf 0 war damit der Fokus stimmt)
G1 Z0 (Z-Achse auf 0 fahren)
PRINT "Z war nicht 0 bitte nochmal einmessen"
M2
ENDIF
#11=X (X-Pos. vor Messung)
#12=Y (Y-Pos. vor Messung)
#15=55.865 (X-Offset)
#16=34.032 (Y-Offset)
(Ausgeben der Werte X12, X12, X15 & X16)
PRINT "Wert 11 = ";#11;" Wert 12 = ";#12;" Wert 15 = ";#15;" Wert 16 = ";#16
(-- Berechnung der Verschiebung ----------------------------------------------)
#21=#11-#15 (X Versatz Laser > Fräser)
#22=#12-#16 (Y Versatz Laser > Fräser)
(-- Ausgabe der neuen Positionen ---------------------------------------------)
PRINT "Neue Positionen X = ";#21;" Y = ";#22
(-- Setzen des Werkstück 0-Punktes ------------------------------------------)
#900=#21 (Offset kompensiert X-Achse)
#901=#22 (Offset kompensiert Y-Achse)
G1 X=#21 Y=#22 (Anfahren des Werstücknullpunktes)
IF #10=0 THEN
#10=#10+1 (Setzen des Werkstückoffsets)
ENDIF
#909=#10 (Aktivieren des Werkstückoffsets)
#900=X (Ubernehmen der X Koordinaten)
#901=Y (Ubernehmen der Y Koordinaten)
L53 (Nullen der X & Y Koordinaten im aktiven Werkstückoffset)
RETURN
Simulation:
PRINT "Nullpunkt mit Fadenkreuz (simulation)"
RETURN
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Herzlichen Dank im Voraus.
Markus
Mein selbsterstelltes Makro zur 0-Punktermittlung mittels Kreuzlinienlaser funktioniert nur noch zum Teil.
Zur Vorgeschichte, ich betrieb die Fröse mit der Beamicon2 Version 2.16, damit hat das Makro auch problemlos funktioniert. Dann bin ich auf die (blöde), Idee gekommen wieder einmal ein Update der SW durchzuführen und habe auf die Ver. 3.28 upgedatet, dabei hat es mir das Netbob V1.x zerschossen. Das wurde in der Zwischenzeit von Benezan neu geflasht und funktioniert auch wieder. Herzlichen Dank dafür.
Was aber nicht mehr richtig läuft ist mein Makro zur 0-Punktbestimmung der X & Y Position.
Die Vorehensweise ist folgende:
Mit dem Kreuzlinienlaser fahre ich den gewünschten 0-Punkt an und starte das Makro. Nun wird die Position ermittelt, der Versatz vom Laser zum Fräser davon abgezogen und die Spindel verfährt auf den errechenten 0-Punkt. Soweit so gut.
Jetzt sollte der angefahrene Punkt als Werkstück 0-Punkt übernommen werden, was leider nicht mehr gemacht wird. Natürlich kann ich jetzt die X & Y Achse manuell Nullen, das ist aber nicht der Zweck des Makros und vor dem Update hat das auch funktioniert.
Das heist, der Befehl L53 wird nicht mehr ausgeführt.
Das Makro habe ich mal angehängt evtl. kann mir da jemand helfen? ( Das Makro kann sicher noch Programmtechnisch optimiert werden, aber bis jetzt hat es ja funktioniert und da sah ich keinen Bedarf dazu.)
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
#NAME User02.txt #LABEL "X-/Y- Nullpunkt mit Fadenkreuz"
%
#10=#909 (Aktueller Werkstückoffset speichern G5x)
G53 (Maschinenekoordinaten aktivieren)
F=500 (Geschweindigkeit auf 500mm/Min setzen)
#9=Z
#12=X
#13=Y
IF #12<57 THEN (Prüfen ob X im bearbeitbaren Bereich ist)
G1 X=58
PRINT "X ist ausserhalb des zulaessigen Bereichs, Werkstueck neu positionieren"
M2
ELSE
IF #13<34 THEN (Prüfen ob Y im bearbeitbaren Bereich ist)
G1 Y=35
PRINT "Y ist ausserhalb des zulaessigen Bereichs, Werkstueck neu positionieren"
M2
ENDIF
ENDIF
IF #9<0 THEN (Prüfen ob Z auf 0 war damit der Fokus stimmt)
G1 Z0 (Z-Achse auf 0 fahren)
PRINT "Z war nicht 0 bitte nochmal einmessen"
M2
ENDIF
#11=X (X-Pos. vor Messung)
#12=Y (Y-Pos. vor Messung)
#15=55.865 (X-Offset)
#16=34.032 (Y-Offset)
(Ausgeben der Werte X12, X12, X15 & X16)
PRINT "Wert 11 = ";#11;" Wert 12 = ";#12;" Wert 15 = ";#15;" Wert 16 = ";#16
(-- Berechnung der Verschiebung ----------------------------------------------)
#21=#11-#15 (X Versatz Laser > Fräser)
#22=#12-#16 (Y Versatz Laser > Fräser)
(-- Ausgabe der neuen Positionen ---------------------------------------------)
PRINT "Neue Positionen X = ";#21;" Y = ";#22
(-- Setzen des Werkstück 0-Punktes ------------------------------------------)
#900=#21 (Offset kompensiert X-Achse)
#901=#22 (Offset kompensiert Y-Achse)
G1 X=#21 Y=#22 (Anfahren des Werstücknullpunktes)
IF #10=0 THEN
#10=#10+1 (Setzen des Werkstückoffsets)
ENDIF
#909=#10 (Aktivieren des Werkstückoffsets)
#900=X (Ubernehmen der X Koordinaten)
#901=Y (Ubernehmen der Y Koordinaten)
L53 (Nullen der X & Y Koordinaten im aktiven Werkstückoffset)
RETURN
Simulation:
PRINT "Nullpunkt mit Fadenkreuz (simulation)"
RETURN
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Herzlichen Dank im Voraus.
Markus