|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
+ |5 w% j# D5 @语句是这样的, a# ]1 @1 y3 u" \1 S9 K* n
is
( U' k( m- {$ O, s0 t i:integer;$ x- x) u7 o* P/ z5 O5 V! x: w) o" E
Res:string;
5 {$ x$ M3 J' k, U9 S obj:object;( h8 }2 o6 `$ h2 Q N. L
do
" d) f* G$ i0 i3 L$ Q if existsObject("Status") then
9 [" C/ k$ K7 G8 Y2 P& x0 p Status.deleteObject;
1 _& J1 F/ X: N3 N) M% R4 ]0 g, @ end;$ }) X* w r/ p0 ~9 X
for i:=1 to 10 loop% @0 D+ R6 v. R, m4 n9 a/ o
Res:=sprint("Store_",i);0 ]0 M* p6 ?! K- T f1 [6 }0 d
if existsObject(Res) then, B, K/ c& p& N! Q0 m$ I4 |# D3 e; u+ a
Obj:=str_to_obj(Res);+ D: V: c G5 x% `2 j
Obj.deleteObject;2 c8 h- B s% g2 Z# n. K
end;$ z B" v, U u4 C, U1 A b
next;, l* [6 A& ?# z1 [2 }
--shengcheng Status:zimoxingceng- o, I! W: T; D l) k
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");7 }1 V! r, \4 m, o" Z6 p- K0 O z
Obj.Label:="warehouse status";
W4 u. P0 {7 ^3 z" c' Y 4 r3 P( m) `, F9 E2 w! K0 h
for i:=1 to WH_nums loop& \" _) L2 q( L
Res:=sprint("Store_",i);
1 a$ `+ e" }% {9 i' n Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
: z3 [. Z6 N6 W1 M1 x9 S Obj.Label:=sprint("huojiaceng:",i);
6 p) L9 O: P) |' T) z) }6 g6 u5 A( M Obj.xDim:=WH_x;- i* b6 _1 q9 |( `) m4 o
Obj.yDim:=WH_y;
: e/ z0 X3 \" f! U Res:=sprint("StoreData_",i);, o7 M6 Q2 w+ v4 I/ N
& \4 P: d7 @4 W, s6 q
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);. n9 v# h2 m6 i0 N3 X
Obj.Label:=sprint("huojiaceng:",i);* S9 s+ a: \6 G
Obj.inheritFormat:=false;1 @& S- ]) l( ~9 p6 w
Obj.maxxDim:=WH_x;
& ^6 m: I1 c& t0 B6 H5 `8 r Obj.maxyDim:=WH_y;
6 m6 X Y8 `: C) A1 a& h Obj.ColumnWidth:=3;
: } Z$ M R: Q next;7 V {0 d. G5 C
! a5 a v+ ]" n .Delivery.MUs.Forklift.speed:=2;
" v' {$ W1 |" h( v2 B WH_var.delete({1,Part_Nums+1}..{*,*});! k# j; L) |0 ]0 F3 e1 i6 @
for i:=1 to Part_Nums loop
9 ]6 W% P* ^$ G0 k" V WH_var[1,i]:=chr(64+i);0 ]6 ?+ |! j, U! G. b
next;
0 ]6 Z7 c9 R7 \5 E4 N9 ?* z) ]5 Yend;
0 @' m* D$ ]- m+ f% G. k6 G出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
/ R0 X5 }' P2 P0 R! [* z7 M0 r+ C) e' `# p, }
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|