|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
$ [( G& b2 N' t# ~( v" x语句是这样的
- k( x6 n! ]) j+ y; l! Yis
( n# J- }: D* h1 `. u- B( f i:integer;0 i0 I/ n' k% d, e3 J
Res:string;
" p9 i- v, E. o, P3 G, \" `- d$ V obj:object;
7 g/ q( c2 G% u1 p, Fdo- \1 @: c, B; R! e6 B" N6 e! `7 e
if existsObject("Status") then
6 L0 `, w$ [ S7 m4 N1 E Status.deleteObject;' L' R P+ H2 A n2 r9 V e( u- v! F
end;8 p% ]5 v% x8 O: @! ~
for i:=1 to 10 loop# e. B9 o6 p- T6 b5 @
Res:=sprint("Store_",i);
+ s8 t! S2 u I2 d& D if existsObject(Res) then
( @/ h* e: c% x1 E" n! \9 z Obj:=str_to_obj(Res);' P8 z. \8 o$ q$ s3 z* K+ u
Obj.deleteObject;- L1 Y# W4 _7 e( @0 P
end;& O- z4 d7 i; U X
next;
# |+ J. x1 f: |' R+ E --shengcheng Status:zimoxingceng% _# v4 G6 m; c
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
7 M" B0 U* P8 E* r( f; i1 T Obj.Label:="warehouse status";3 F" I7 j& Y% k
6 o. _) e8 K, z for i:=1 to WH_nums loop# t) S' }/ M+ @, u+ P7 s
Res:=sprint("Store_",i);
5 M! u! Z$ G8 l* \ Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);! L* q# p' B5 S1 {& m& I
Obj.Label:=sprint("huojiaceng:",i);
3 h% G$ _) l" [5 Q; r Obj.xDim:=WH_x;
# h! B6 h, Z6 O0 O! M( x' H Obj.yDim:=WH_y;4 W* n- s# b+ j+ h; E. U" \& k) ]
Res:=sprint("StoreData_",i);. e& H" ?- \2 t: W. o. [
( @+ `4 a4 L, g/ N+ v1 ~
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);8 I7 D! x0 Z+ M
Obj.Label:=sprint("huojiaceng:",i);
8 Q; ]: y. Z6 a9 [4 ?7 L) L3 T6 A Obj.inheritFormat:=false;
9 g7 B. d, h5 X* ^ Obj.maxxDim:=WH_x;
. y$ q8 V( o/ y( g: r5 B) Q. h" R Obj.maxyDim:=WH_y;
# g1 O) v4 B) G: t9 s* s Obj.ColumnWidth:=3;
0 ?. C1 T0 j& U6 Z next;
- P9 S% Y |' K ) E$ A/ P! q" G- _' U. S
.Delivery.MUs.Forklift.speed:=2;9 t0 C( @( M! R7 j/ f
WH_var.delete({1,Part_Nums+1}..{*,*});
: H: H3 V' I$ @5 X% X4 o for i:=1 to Part_Nums loop1 Q4 R3 ^' l. X2 i1 ^
WH_var[1,i]:=chr(64+i);& x3 r, P" `& ] T# f( x2 u
next;
Z+ ^# v- X W1 t1 r: { w( { jend;
8 d- H; w1 @5 e0 s1 M( R! g% [出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
* l6 Z! Q1 n3 k0 ?$ `' I; Q0 H% F$ D' V
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|