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

zhangjunsunyu

如题，即如果store中存放有4种entity分别为part1,part2,part3,part4,每次需移动数量分别为4，3,1,1。按下面语句是否可行，不知道怎修改，或者类似语句该如何编写，向大家求救。
is
' ^8 O* N. C7 [, Y        a,b:integer;
7 G# B; K! k. J7 v+ _/ P/ Cdo
  Z  y* U0 G# O9 ^. E  U; s5 X        if store.cont.name="part1" then
$ G: D" H3 f/ M* t                for a:=1 to 4 loop
                        store.cont.move;
) q: Z4 f2 o1 x( L4 ~                next;
4 Z3 n3 F" B/ b- f) i        elseif store.cont.name="part2" then
/ Z# z5 B" n- m+ [% s7 F, d" _                for b:=1to 3 loop
                        store.cont.move;
0 x- j1 |, v& e4 }# u                next;
' |4 P0 p# {8 w! m" K- [, V* D% b                elseif store.cont.name="part3" then
" `7 a* m4 ~' s+ m' C7 c  H# e                              store.cont.move;
                       elseif store.cont.name="part4" then
                                    store.cont.move;
                        end;
           end;

老马多拉

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

dongshui8558

store.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
is
        i,j:integer;
9 ~6 k9 K9 M7 I' vdo
        print store.cont.name;
* ]; D/ ]: [. J8 O) q. {. k; ]        for i:=1 to store.ydim loop
. @: p$ }" Z" G  _& f  J3 P                for j:=1 to store.xdim loop
( O6 a4 I- p! k/ v4 H                        if store[i,j].cont/=void and store[i,j].cont.name= "" then
                          -------------------
( A" J2 P* }) v                        end
                next;
        next;
end;

zhangjunsunyu

dongshui8558 发表于 2011-11-22 19:19
store.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
- z* M# ~1 ~1 m5 P' b1 p ...

$ E& v" o+ C2 R# M1 w恩，谢谢您的解答，对我很有帮助。
7 ~4 M' J" a9 v想再请问下，如果每次移动四种物料作为一个操作过程，以后没间隔一个小时操作一次这样的循环（即每隔一个小时移动四种物料一次，所移动的物料数量最终是成比例的），要怎么弄呢？

haiqiu_sun

dongshui8558 发表于 2011-11-22 19:19
( ]; Z# a4 d( v+ {store.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
...

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

dongshui8558

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

zhangjunsunyu

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

是这样吗？
ref(moveout).methcall(str_to_time("1:00:00"));
% w# i/ l9 [/ u) v1 x3 A* l3 Z' x运行不出来啊

dongshui8558

ref(moveout)改为self

xuwenfei

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

xueya

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