如何同时移动store中多种品种entity的不同数量

zhangjunsunyu

如题，即如果store中存放有4种entity分别为part1,part2,part3,part4,每次需移动数量分别为4，3,1,1。按下面语句是否可行，不知道怎修改，或者类似语句该如何编写，向大家求救。
) o) |" |# j. c! `  wis
2 v* F1 w$ ?5 X/ L, W, A/ E5 n# ~        a,b:integer;
, p6 N1 D6 N: o/ m, U7 Odo
        if store.cont.name="part1" then
                for a:=1 to 4 loop
                        store.cont.move;
$ B+ N3 t& J' H+ l# S                next;
: T6 N; t5 A9 w- o0 c        elseif store.cont.name="part2" then
                for b:=1to 3 loop
                        store.cont.move;
0 X& Z! G; s- _1 B                next;
1 Z! H2 |4 y8 O* O3 ?4 H                elseif store.cont.name="part3" then
! t% y# @  f) k) B2 k                              store.cont.move;
                       elseif store.cont.name="part4" then
                                    store.cont.move;
( a& M! h0 \) l9 ^5 P0 j1 F                        end;
8 ^4 D3 b9 e. _& w           end;

老马多拉

估计不行，可以将store看成为二维数组，然后对数组元素操作，而不能对数组名进行操作

dongshui8558

store.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
is
5 j* f+ G* B& o7 R7 r        i,j:integer;
8 }# K9 ]0 v- E6 `1 ^do
6 o; n6 B2 a% G# c6 U7 g        print store.cont.name;
        for i:=1 to store.ydim loop
8 e/ P5 b" S& }  i& J( t4 L- i. }3 ~                for j:=1 to store.xdim loop
% b/ ^2 i1 {1 o0 \: G- ?" Y4 c                        if store[i,j].cont/=void and store[i,j].cont.name= "" then
5 g# d* Y9 M8 c2 Q% L% I                          -------------------
7 v# p+ W. ]" Q3 [& w, L/ v2 B                        end
                next;
, |, x0 K  m* x6 F- T/ Q8 F$ s        next;
end;

zhangjunsunyu

dongshui8558 发表于 2011-11-22 19:19
0 ?$ T9 Q7 Q0 Lstore.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
...

! o2 }: ?, _+ m& z恩，谢谢您的解答，对我很有帮助。
想再请问下，如果每次移动四种物料作为一个操作过程，以后没间隔一个小时操作一次这样的循环（即每隔一个小时移动四种物料一次，所移动的物料数量最终是成比例的），要怎么弄呢？

haiqiu_sun

dongshui8558 发表于 2011-11-22 19:19
# g; T6 @- i+ _7 S5 F$ D7 ?store.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
...

你就是我心中的神，论坛就应该多点您这样的人。

dongshui8558

用编程最简单，用methcall方法，自己看帮助吧，能看懂的。。

zhangjunsunyu

dongshui8558 发表于 2011-11-23 14:07
用编程最简单，用methcall方法，自己看帮助吧，能看懂的。。

是这样吗？
ref(moveout).methcall(str_to_time("1:00:00"));
运行不出来啊

dongshui8558

ref(moveout)改为self

xuwenfei

dongshui8558真是高手啊，留个QQ吧？

xueya

我想问个问题，store只有入口控制，没有出口控制，那你的这段程序是放在入口控制的method里吗？