|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
( r2 B6 ~2 e1 s4 x语句是这样的
* C3 z/ F% t4 X J9 kis6 g6 C/ a4 e2 U! q
i:integer;
5 z* F6 i1 h# v( ?7 @ Res:string;2 `4 N0 |0 j$ \8 b
obj:object;
# z& y) w2 _) L7 N( Bdo
6 w9 ^" D/ @9 d! o if existsObject("Status") then" _4 N& C x! a" |- k9 Q/ ?$ J7 l
Status.deleteObject;
6 E" X4 I# n, i$ a W, p, F% \' g end;! L# i2 B1 ]4 e( u
for i:=1 to 10 loop
' R- J+ V5 r$ W6 S0 ? Res:=sprint("Store_",i);
7 C5 H( ^" Z! G+ y! M" x if existsObject(Res) then
/ j- _- U3 L* h& } Obj:=str_to_obj(Res);
; b7 h" V: M8 s s2 u1 @( d Obj.deleteObject;
; w1 z/ z. u. L end;- k( p6 y: a6 ?# c6 R4 d
next;- p4 X* S2 D! u) h) `
--shengcheng Status:zimoxingceng; ~. o9 Z2 ^' l2 P7 h8 p' G& i- |
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");4 F2 M: T' W- X5 D+ o6 s2 E. Z
Obj.Label:="warehouse status";9 W1 B& C/ J) E
# d+ B% Y1 g$ J- ]! @# V
for i:=1 to WH_nums loop
. _. g% V& {+ o, u; u5 l8 @ Res:=sprint("Store_",i);
" _) ^1 V6 J: d, m- l3 K7 l) P Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
8 E2 H G' c" B9 I( X Obj.Label:=sprint("huojiaceng:",i);
3 D v" A+ B: Z Obj.xDim:=WH_x;
6 h* o( T5 M: E0 B( z7 p Obj.yDim:=WH_y;8 V8 X: S# u! j, ] b, O2 ^8 P
Res:=sprint("StoreData_",i);
% O4 H. t! O( K0 |. O . Q! j# c$ D! t1 y j
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);( J$ L- Y3 z, A, n1 j, `
Obj.Label:=sprint("huojiaceng:",i);' j6 _, J1 g2 B2 G% P
Obj.inheritFormat:=false;
, v. H, A. d# \; ^1 f" D Obj.maxxDim:=WH_x;- o+ V- [# T" g8 U. `. g; l9 y
Obj.maxyDim:=WH_y;( d: f3 W0 S6 J. t5 W
Obj.ColumnWidth:=3;
! T# ~( R( V% C& T2 p next;* k7 q* `( G% p. ^& y
2 j: L1 U3 i. z+ T/ K% L: h1 ^2 c
.Delivery.MUs.Forklift.speed:=2;3 y! d, i9 @* |! T, L" C0 Y
WH_var.delete({1,Part_Nums+1}..{*,*});
. [/ J# F( A/ X }$ ] for i:=1 to Part_Nums loop( z; S) G5 t0 R( ]/ R* P% Q
WH_var[1,i]:=chr(64+i);
0 ~5 ~ _: ^4 V next;& k6 J. b C) A2 m0 q# g H
end;
) ^4 W! V @, w* k0 ^出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
+ o0 I4 o, N( Z+ v G& p5 X
- d5 l9 a" f0 M; }6 ^4 O" v |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|