Hallo Community,
In meinem derzeitigen Projekt, verlangt mein Kunde von mir das ich für die Messspitze und das Werkstück eine "Fliegende Messung" installiere.
Umgesetzt wir das mit einer Lichtschranke. Mein Programm sieht derzeit so aus:
PROC R_Messspitze_ausmessen()
MoveJ [[955.69,421.88,622.95],[4.3917E-05,-0.000453383,1,8.65019E-05],[0,0,0,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]], v1000, z50, Messspitze;
MoveJ [[42.13,36.87,-80.08],[5.86174E-05,-0.200832,0.979626,6.91952E-05],[0,0,-1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]], v1000, z50, Messspitze\WObj:=Lichtschranke;
SearchL\SStop, di029_Uebergabe_Lichtschranke\PosFlank, MP_1, MB1, v100, Messspitze\WObj:=Lichtschranke;
SearchL\SStop, di029_Uebergabe_Lichtschranke\NegFlank, MP_2, MB1, v100, Messspitze\WObj:=Lichtschranke;
MoveL MB1, v1000, z50, Messspitze\WObj:=Lichtschranke;
MoveJ [[42.13,-19.52,-77.26],[1.19121E-05,-0.572522,-0.819889,-8.71439E-05],[0,0,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]], v1000, z50, Messspitze\WObj:=Lichtschranke;
SearchL\SStop, di029_Uebergabe_Lichtschranke\PosFlank, MP_5, MB2, v100, Messspitze\WObj:=Lichtschranke;
SearchL\SStop, di029_Uebergabe_Lichtschranke\NegFlank, MP_6, MB2, v100, Messspitze\WObj:=Lichtschranke;
MoveL MB2, v1000, z50, Messspitze\WObj:=Lichtschranke;
MoveL [[42.58,33.10,-20.88],[9.45953E-06,-0.55277,-0.833333,-8.38149E-05],[0,0,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]], v1000, z50, Messspitze\WObj:=Lichtschranke;
SearchL\SStop, di029_Uebergabe_Lichtschranke\PosFlank, MP_3, MB3, v100, Messspitze\WObj:=Lichtschranke;
SearchL\SStop, di029_Uebergabe_Lichtschranke\NegFlank, MP_4, MB3, v100, Messspitze\WObj:=Lichtschranke;
MoveL MB3, v1000, z50, Messspitze\WObj:=Lichtschranke;
MoveL [[42.13,-22.19,-23.36],[5.4912E-05,-0.173871,0.984768,6.91273E-05],[0,0,0,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]], v1000, z50, Messspitze\WObj:=Lichtschranke;
SearchL\SStop, di029_Uebergabe_Lichtschranke\PosFlank, MP_7, MB4, v100, Messspitze\WObj:=Lichtschranke;
SearchL\SStop, di029_Uebergabe_Lichtschranke\NegFlank, MP_8, MB4, v100, Messspitze\WObj:=Lichtschranke;
MoveL MB4, v1000, z50, Messspitze\WObj:=Lichtschranke;
R_Messspitze_rechnen;
Set do061_AFM_Messspitze_ausmessen;
Alles anzeigen
Damit fahre ich mit der Messspitze am oberen Ende in die Lichtschranke und speichere den ersten Ausschlag, sowie die abfallende Flanke der Schranke in 2 Punkten, das gleiche passiert am unteren Ende der Spitze und auch nochmal beide Stellen um 90° verdreht.
Mit diesen "gesuchten" Punkten soll ich nun den Mittelpunkt ausrechnen ... leider habe ich derzeit keinen Plan wie ich das machen soll.
Könnt ihr mir da vielleicht nen Tipp oder ein Programmbeispiel für ABB geben? Ich hätte zu dem selben Thema eins von Kuka ... kann es nur nicht in ABB umsetzen
Freundliche Grüße
Daniel aka Eddiero