Code Display MoreDEF MAIN) DECL INT n PTP HOME VEL 100% DEFAULT .... FOR n=1000 TO 5 STEP -5 Pick(n) Process() ENDFOR PTP HOME VEL 100% DEFAULT .... END DEF Pick(height:in) DECL INT height DECL E6Pos PickPos, StartPos BAS(#tool,1) ; gripper BAS(#base,3) ; whatever StartPos=$PosAct PickPos = xPickPos PickPos.Z=height LIN PickPos GripperClose() LIN StartPos END DEF Process() WAIT SEC 5 END
thank you i will try