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

zhangjunsunyu

如题，即如果store中存放有4种entity分别为part1,part2,part3,part4,每次需移动数量分别为4，3,1,1。按下面语句是否可行，不知道怎修改，或者类似语句该如何编写，向大家求救。
is
        a,b:integer;
+ O5 P3 O3 M" m6 h0 \6 f/ g  V$ {do
        if store.cont.name="part1" then
                for a:=1 to 4 loop
5 m1 C1 Y+ q: q4 _0 O0 Q                        store.cont.move;
4 W. [' D0 F) f. C0 H/ i1 B                next;
0 R6 ^: a: Y: F& E7 y8 z4 N( P        elseif store.cont.name="part2" then
                for b:=1to 3 loop
                        store.cont.move;
9 g4 V& g! T. p, g4 S* w7 j6 r                next;
- @) X9 a2 s! I* e7 V; |                elseif store.cont.name="part3" then
: s  `0 H$ I! e- E                              store.cont.move;
                       elseif store.cont.name="part4" then
                                    store.cont.move;
) ~) P4 ~& x' N/ q% Z7 l1 X                        end;
: D3 G+ v  e" @4 w           end;

老马多拉

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

dongshui8558

store.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
is
: s8 _5 y. _1 y8 ]6 f: i. D3 t        i,j:integer;
do
        print store.cont.name;
        for i:=1 to store.ydim loop
                for j:=1 to store.xdim loop
                        if store[i,j].cont/=void and store[i,j].cont.name= "" then
                          -------------------
) C5 @, h7 ~  B# K# h# F! l. g                        end
; v7 q' g* M) @/ b* V& e0 z) K                next;
$ N1 t2 Z4 J3 d        next;
end;

zhangjunsunyu

dongshui8558 发表于 2011-11-22 19:19
4 s' P; J6 k3 z6 i* j8 Jstore.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
...

* t& ]( G0 N; D" a恩，谢谢您的解答，对我很有帮助。
想再请问下，如果每次移动四种物料作为一个操作过程，以后没间隔一个小时操作一次这样的循环（即每隔一个小时移动四种物料一次，所移动的物料数量最终是成比例的），要怎么弄呢？

haiqiu_sun

dongshui8558 发表于 2011-11-22 19:19
store.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
* |3 ~4 I+ S4 y ...

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

dongshui8558

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

zhangjunsunyu

dongshui8558 发表于 2011-11-23 14:07
9 X* \  z+ T7 A! G. ?; ]7 O  ]! G* N) d用编程最简单，用methcall方法，自己看帮助吧，能看懂的。。

; ~. m( j) u8 t9 Y- M7 ?是这样吗？
ref(moveout).methcall(str_to_time("1:00:00"));
( Q$ ?8 ]& ?9 X运行不出来啊

dongshui8558

ref(moveout)改为self

xuwenfei

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

xueya

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