Макрос поиска центра по заготовки по наружным краям
STATUSINFO(SEARCHING OUTER EDGES CENTER);
MOVE(G91,F100,Z-100,W+25);surface search
#70=#5023;
#71=#70-5;
#72=#70+30;
MOVE(G90,F300,Z#72);jump up
MOVE(G91,F1000,X-300);overtravel the workpiece
MOVE(G90,F100,Z#71);move to edge
MOVE(G91,F300,X600,W+25);M16
MOVE(G91,F200,X-5);
#75=#5021;
MOVE(G90,F600,Z#72);jump up
MOVE(G91,F1000,X500);overtravel the workpiece
MOVE(G90,F100,Z#71);move to edge
MOVE(G91,F300,X-600,W+25);M16
MOVE(G91,F200,X5);
#76=#5021-#75;
#77=#76/2;
SETWK(X#77);
#78=0-#77;
MOVE(G90,F300,Z#72);jump up
MOVE(G91,F1000,X#78);
MOVE(G91,F1000,Y-300);overtravel the workpiece
MOVE(G90,F100,Z#71);move to edge
MOVE(G91,F300,Y300,W+25);M16
MOVE(G91,F200,Y-5);
#79=#5022;
MOVE(G90,F300,Z#72);jump up
MOVE(G91,F1000,Y500);overtravel the workpiece
MOVE(G90,F100,Z#71);move to edge
MOVE(G91,F300,Y-300,W+25);M16
MOVE(G91,F200,Y5);
#80=#5022-#79;
#81=#80/2;
SETWK(Y#81);
#82=0-#81;
MOVE(G90,F300,Z#72);jump up
MOVE(G91,F1000,Y#82)
MOVE(G90,F500,Z20)
MESSAGEBOX(CENTER FOUND);
RETURN;
MOVE(G91,F100,Z-100,W+25);surface search
#70=#5023;
#71=#70-5;
#72=#70+30;
MOVE(G90,F300,Z#72);jump up
MOVE(G91,F1000,X-300);overtravel the workpiece
MOVE(G90,F100,Z#71);move to edge
MOVE(G91,F300,X600,W+25);M16
MOVE(G91,F200,X-5);
#75=#5021;
MOVE(G90,F600,Z#72);jump up
MOVE(G91,F1000,X500);overtravel the workpiece
MOVE(G90,F100,Z#71);move to edge
MOVE(G91,F300,X-600,W+25);M16
MOVE(G91,F200,X5);
#76=#5021-#75;
#77=#76/2;
SETWK(X#77);
#78=0-#77;
MOVE(G90,F300,Z#72);jump up
MOVE(G91,F1000,X#78);
MOVE(G91,F1000,Y-300);overtravel the workpiece
MOVE(G90,F100,Z#71);move to edge
MOVE(G91,F300,Y300,W+25);M16
MOVE(G91,F200,Y-5);
#79=#5022;
MOVE(G90,F300,Z#72);jump up
MOVE(G91,F1000,Y500);overtravel the workpiece
MOVE(G90,F100,Z#71);move to edge
MOVE(G91,F300,Y-300,W+25);M16
MOVE(G91,F200,Y5);
#80=#5022-#79;
#81=#80/2;
SETWK(Y#81);
#82=0-#81;
MOVE(G90,F300,Z#72);jump up
MOVE(G91,F1000,Y#82)
MOVE(G90,F500,Z20)
MESSAGEBOX(CENTER FOUND);
RETURN;
Нашли ошибку? Сообщите нам!
|