Automod物流分拣仿真设计(10)

travel to pmAGV:cprsback

move into Qrsback

set Anum to 6

get Rback

while Anum > 0 do

begin

wait for 6 min

clone 1 load to Pbackbox nlt Lbackbox

dec Anum by 1

end

free Rback

end

end

begin Pfrontbox arriving procedure

move into Qrsfrontout

move into pmAGV:cprsfrontout

travel to nextof(pmAGV:cpassemfront1,pmAGV:cpassemfront2)

move into nextof(Qassmfront(1),Qassmfront(2))

wait for 1 hr

end

begin Pmiddlebox arriving procedure

move into Qrsmiddleout

move into pmAGV:cprsmiddleout

travel to nextof(pmAGV:cpassemmiddle1,pmAGV:cpassemmiddle2) move into nextof(Qassmmiddle(1),Qassmmiddle(2))

wait for 1 hr

end

begin Pbackbox arriving procedure

move into pmAGV:cprsback

travel to nextof(pmAGV:cpassemback1,pmAGV:cpassemback2)

move into nextof(Qassmback(1),Qassmback(2))

wait for 1 hr

end

begin Prdockworker arriving procedure

bring up Rdockworker

wait for 100 min

take down Rdockworker

wait for 15 min

bring up Rdockworker

wait for 100 min

take down Rdockworker

wait for 40 min

bring up Rdockworker

wait for 100 min