|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。* k. V* b |2 E& f3 o- }, D
语句是这样的9 o1 l! y0 N7 {* n4 x& J/ z% ^( W
is
/ ?; P! h; N' w& w" T% N* F2 l i:integer;5 E; j" |3 ~* F7 r: x; f
Res:string;4 x9 e; Z. R* |8 y
obj:object;
/ w8 y4 T. z) Z vdo4 @+ G: D! q+ f \$ |9 r7 T* U; J
if existsObject("Status") then5 H0 A( K) u; f& D8 S
Status.deleteObject;) P$ X* g$ w2 i0 Z9 ]3 m
end;
# H* I! K" [% [( ?) p6 `8 G for i:=1 to 10 loop& v! |! x% T8 n& I$ w! e
Res:=sprint("Store_",i);1 a \. L0 s/ \1 O
if existsObject(Res) then! E' ?. i2 h5 U% U& E% U8 W4 r/ c% K
Obj:=str_to_obj(Res);
1 S" Q3 W+ w8 u; a& g( v% Y- r Obj.deleteObject;# r5 f; Y, `. n! N
end;: }% n% B- P% l2 |: t6 [
next;* \% p4 v* F7 L8 i2 h% e' h
--shengcheng Status:zimoxingceng: S9 x+ s) ~+ |
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");$ ~2 Q- f6 c3 s X. q
Obj.Label:="warehouse status";- P: k$ w% |1 _
' R# S2 w$ \; S$ U+ i: w for i:=1 to WH_nums loop* p8 P4 `0 g9 _0 W- ^) J6 F# ]
Res:=sprint("Store_",i);% D5 Z! `" R4 }( P
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);) W0 i, l3 [' c
Obj.Label:=sprint("huojiaceng:",i);
* j7 N3 y6 m- {3 i Obj.xDim:=WH_x;! }+ ~6 \5 t9 K- }, n; }# b
Obj.yDim:=WH_y;
# l; w! d' ]2 ^* r8 } Res:=sprint("StoreData_",i);
9 N. w: F% y [6 I& c V
5 I9 R/ W8 |9 I0 J Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
1 ]" o4 ~% ^4 j; X, {! x. ^ Obj.Label:=sprint("huojiaceng:",i);, m9 q3 G" N- Q4 i
Obj.inheritFormat:=false;
/ |) k" n4 j% Q Obj.maxxDim:=WH_x;
& l s/ \0 c: g% k- H6 K9 m. Y6 G4 D Obj.maxyDim:=WH_y;
- r# p9 V+ y) a2 M, M# { Obj.ColumnWidth:=3;
1 N7 x, u5 |0 z' f# Z5 G" ? next;
7 }! s, f+ i' k+ N9 W
, L$ ?. M) g! P .Delivery.MUs.Forklift.speed:=2;) s `3 ?& p8 c/ I
WH_var.delete({1,Part_Nums+1}..{*,*});
/ K" ~5 E! f# O: n) ?$ H- m for i:=1 to Part_Nums loop& b6 h) M; O$ z% i
WH_var[1,i]:=chr(64+i);% c# G3 E+ K$ E/ W' {9 y
next;
9 r& d8 j4 w1 T1 ]- ~$ o! }end;1 i4 x" V/ ^$ [* f$ O$ q
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
3 B. w/ t# f9 h1 b9 N: B9 w. [: p# [
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|