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

travel to conv:cpback

move into Qback

wait for 3 min

send to Pagv

end

else if Atype = 4 then

begin

travel to conv:cpstock

move into Qstock

wait for 1 hr

end

end

begin Pagv arriving procedure

move into pmAGV:cpin(Atype)

if Atype = 1 then

begin

travel to pmAGV:cprsfrontin

move into Qrsfrontin

set Anum to 12

get Rfront

while Anum > 0 do

begin

wait for 3 min

clone 1 load to Pfrontbox nlt Lfrontbox

dec Anum by 1

end

free Rfront

end

else if Atype = 2 then

begin

travel to pmAGV:cprsmiddlein

move into Qrsmiddlein

set Anum to 10

get Rmiddle

while Anum > 0 do

begin

wait for 5 min

clone 1 load to Pmiddlebox nlt Lmiddlebox

dec Anum by 1

end

free Rmiddle

end

else if Atype = 3 then

begin