Reset do_0;
x:=0;
Y:=0;
z:=0;
MoveJ P_HOME,v1000,fine,My_Tool;
WHILE z<3 DO
MoveJ Offs(pick,0,0,100),v1000,fine,My_Tool\WObj:=wobjPingMing2;
WaitDI di_0,1;
MoveL pick,v400,fine,My_Tool\WObj:=wobjPingMing2;
Set do_0;
WaitTime 0.5;
MoveL Offs(pick,0,0,100),v1000,fine,My_Tool\WObj:=wobjPingMing2;
MoveJ Offs(D1,50*x,-55*y,100),v1000,fine,My_Tool\WObj:=wobjPingMing2;
MoveL Offs(D1,50*x,-55*y,5*z),v1000,fine,My_Tool\WObj:=wobjPingMing2;
Reset do_0;
WaitTime 0.5;
MoveL Offs(D1,50*x,-55*y,100),v1000,fine,My_Tool\WObj:=wobjPingMing2;
x:=x+1;
IF x>1 THEN
y:=y+1;
x:=0;
ENDIF
IF Y>3 THEN
y:=0;
z:=z+1;
ENDIF
ENDWHILE
MoveJ P_HOME,v1000,fine,My_Tool;
RobotStudio 6-7