Fixed Issue with Pressless Cylinders on Tool 4

This commit is contained in:
Michael Rest
2016-07-26 18:23:33 +02:00
parent d6dcdd8b6a
commit 3780ba5bb7

View File

@@ -933,7 +933,6 @@ PROGRAM _CYCLIC
//------------------------------------
IF NOT bRepairCycle THEN
//Normal Cylce
gTool4Interface.bToolPressless := FALSE;
IF (bSafetyOkFP OR (bTransitionCondition AND bEnableNextStep)) AND gbInTool1PartAvailable AND NOT gTool4Interface.bToolIsHome THEN
//Tool is not Homed
gMachineAlarms.Alarm[125] := TRUE;
@@ -952,9 +951,11 @@ PROGRAM _CYCLIC
END_IF
IF (bSafetyOkFP OR (bTransitionCondition AND bEnableNextStep)) AND NOT gbInTool1PartAvailable AND NOT gbInTool1PartAvailable2 AND (genStepTool4 = enTool2Step_WAIT_START_HOME) THEN
genStepTool4 := enTool2Step_HOMEPOS;
gTool4Interface.bToolPressless := FALSE;
END_IF
//Tool is home
IF (bSafetyOkFP OR (bTransitionCondition AND bEnableNextStep)) AND (gbInTool1PartAvailable OR gbInTool1PartAvailable2) AND (genStepTool4 = enTool2Step_WAIT_START_MOUNT) THEN
gTool4Interface.bToolPressless := FALSE;
gMachineAlarms.Alarm[122] := FALSE;
gMachineAlarms.Alarm[123] := FALSE;
gMachineAlarms.Alarm[124] := FALSE;
@@ -1299,6 +1300,9 @@ PROGRAM _CYCLIC
lAxisShaftMaster.Para.rVelocity := grPressSpeedEmpty;
bTransitionCondition := MoveConditions.bEnableNegShaftMaster;
IF bTransitionCondition AND bEnableNextStep THEN
IF (gusCurrentTool = 4) AND (gusSelectedTool = 4) THEN
gTool4Interface.bToolPressless := TRUE;
END_IF
lAxisShaftMaster.Move.bAbsolute :=TRUE;
enStepPress := enPressStep_PRESS_HOMEPOS_WAIT;
END_IF