hier wären die Traps und die initialisierung:
TRAP CheckVacGrp1Trap
NoVacAfterPick 1;
ENDTRAP
TRAP CheckVacGrp2Trap
NoVacAfterPick 2;
ENDTRAP
PROC InitCheckVac()
IDelete intCheckVacGrp1;
CONNECT intCheckVacGrp1 WITH CheckVacGrp1Trap;
TriggCheckIO triggCheckVacGrp1, (checkDistBeforPlace/1000)\Time, diVacOk1, EQ, 1\StopMove, intCheckVacGrp1;
IDelete intCheckVacGrp2;
CONNECT intCheckVacGrp2 WITH CheckVacGrp2Trap;
TriggCheckIO triggCheckVacGrp2, ((checkDistBeforPlace + 1)/1000)\Time, diVacOk2, EQ, 1\StopMove, intCheckVacGrp2;
ENDPROC