|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
3 x" x# ]- r) w$ f' J语句是这样的# Y, V" p$ s0 q
is
. e( v* J! ?* Z ~$ C6 |& T1 C i:integer;
/ ?# N& I4 ?! G& F7 w E Res:string;
2 c J/ i0 ?; T* [2 H0 e: z9 z) T obj:object;
! Q% k6 N( D/ Y( ydo
, b! ` Y! o5 [ if existsObject("Status") then+ Y6 m- H% Y2 b. L
Status.deleteObject;
$ `! y. g j: p9 b end;5 c. z9 n8 g. H8 t+ G) G4 m$ E
for i:=1 to 10 loop* K/ @( Y& }" A3 B5 l
Res:=sprint("Store_",i);
& a9 \1 D+ Z. l- y if existsObject(Res) then
) Q) F! O- e0 P; j5 }+ s Obj:=str_to_obj(Res);$ G. u2 m( j5 l9 e ?
Obj.deleteObject;
: X1 F% z. D8 t5 r. ^2 L end;
" ^% V" f5 L1 J1 N- L+ | ? next;* A; y9 k' I! w! r! H F' m) D0 f6 h
--shengcheng Status:zimoxingceng
( ]- e: Y: T* A+ |2 Q Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");5 f; p3 ` `3 K" J( C" M; P; Q
Obj.Label:="warehouse status";
# E# d0 N0 Z2 `4 Z$ \" I 9 ]4 s. i! J# n. ?
for i:=1 to WH_nums loop! o" ]- Y+ S# {& V" W/ H0 _
Res:=sprint("Store_",i);/ H5 L. E3 `% c/ `; y
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);( i: c; J$ g. {7 [
Obj.Label:=sprint("huojiaceng:",i);
6 a! G, J6 |, t" N6 Z, n Obj.xDim:=WH_x;+ l" {/ g0 h: `; g, j: A; O# ?
Obj.yDim:=WH_y;; F0 d8 c1 F( K. u( X
Res:=sprint("StoreData_",i);
' ^8 l" c% `. ~0 B+ U2 V 7 Y1 i* b+ V/ v4 P. t; h+ U
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);7 Q: A5 h& |& r. D# P1 W1 A
Obj.Label:=sprint("huojiaceng:",i);
) p/ O- }8 A; g; E @) E$ M5 L Obj.inheritFormat:=false;) x# c" I4 F8 ]8 q* Q
Obj.maxxDim:=WH_x;9 w' V9 |# c& k# C$ u# s. h2 z) F
Obj.maxyDim:=WH_y;- a" |3 g; s. Q5 r1 R
Obj.ColumnWidth:=3;' {: O1 A$ }0 D9 u- O( E& a
next;2 i/ z' E, `; l+ m: w
2 i, L2 w8 l" e' @( D .Delivery.MUs.Forklift.speed:=2;1 F4 i/ {$ \" S) e+ U7 r
WH_var.delete({1,Part_Nums+1}..{*,*});
7 n2 [( d0 d9 ^! y: ]7 k for i:=1 to Part_Nums loop% w! h7 g1 D2 `$ J& F& u: {
WH_var[1,i]:=chr(64+i);' G. t) t: E: _' g. |
next;
( C6 @) k2 W% f& I4 I& Fend;! E2 f3 O: Q t
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 + m1 F _+ V8 S6 Q
7 R6 o1 v# s( W! e
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|