用OrderList与Queue结合实现叠盘系统的方法分享

tengda_wlfz

0 D4 ]1 D2 ^- s, J! t( I' _9 O8 M9 R5 m我是Automod 初学者，在做某项目仿真时需要仿真叠盘系统，而叠盘系统在Automod中是没有现成的东西可用的，必须通过编程来实现。现在把这个方法和大家分享一下，献丑了，如果有什么更好的办法希望大家一起分享交流。
# U' R, \6 q0 R: v8 H. _首先，在输送线的叠盘系统位置建立一个Queue,在Queue中建立一个Container,这样你的托盘进入到队列才能显示出来。
然后 建一个OrderList,详细设置我在这里就不赘述了，你可以每项都试一试看看是什么效果
7 I3 e% i! Y  p+ s. w6 Y3 m接着我们就可以编程序了，源代码如下：
begin P_process_name arriving
           move into Q_queue        //load进入队列中
' A# _8 H# i. Y+ r5 u         if OL_ orderlist current loads =4 then //判断OrderList中是否有四个托盘
         begin        
                order 4 loads from OL_orderlist to die //取其中的4个消失
3 b* Y( ^' u/ W) _* Z8 w( x                set load type to L_new//设置第5个进来的Load为L_new类型的
  x4 b( q7 M8 @3 z1 S) i3 R3 i7 P                send to P_next//进入后续流程                       
, ^% o+ H2 O- z. t4 A0 {         end
6 t  X* n  X- B' f        else//如果OrderList中的托盘数少于4 则进入
4 p: b4 J8 C# V2 Y5 A                wait to be ordered on OL_ orderlist
: o. L  {) g4 i3 ^+ ~' nend
7 G8 R9 j9 p  N0 u, X- u9 g4 F3 ?& ^+ c这段代码还可以精简为：
begin P_process_name arriving
) a- v+ |% |) @: s           move into Q_queue        //load进入队列中
' _5 x8 P) J4 b; V9 `0 K5 A) M$ C. i         if OL_ orderlist current loads =4 then //判断OrderList中是否有四个托盘
, D4 m# m) J$ b& ~* E5 p' }         begin        
3 Q8 x6 J4 I# e0 ~! `                order 5 loads from OL_orderlist to die //OrderList中的5个全部消失
2 G. p9 z2 [) `) C  X2 j9 v1 ?                create 1 load of  load type L_new to P_next        //创建一个新的Load
2 {$ {7 z0 i* }+ L* i; U  Z end
        else//如果OrderList中的托盘数少于4 则进入
9 _# A5 ?* b! |! A                wait to be ordered on OL_ orderlist
0 X  V4 u" i+ }) s" [( Send
! r( |* }' P0 Q2 M+ m这段代码不但可以用于构建叠盘系统，还可以应用与装配工位，机器人码垛等！

ksec_wangwei

平时做项目也会遇到这种情况，作为初学者，长知识了，谢了，，，，，，，有时间把我们的解决方案贴上来

gjccrazy

不错，谢谢您的分享