|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
$ B' b, e% Z+ J. Q& a& O语句是这样的
# x2 S, X6 F0 C8 x( kis
& K' S/ D7 `/ S+ [' u i:integer;
5 s J2 m" ?$ U# \5 x5 A Res:string;
9 T% H7 i7 |/ X1 X& @5 f obj:object;% u* |, m3 t: y/ J8 p
do: ]" ~. ^: R& B! }9 D) }/ G
if existsObject("Status") then) G) s' Q4 y4 O; b5 K
Status.deleteObject;
& @* Z( N8 U0 h' C$ K. C+ g0 E end;
! v% m8 D) d8 {9 a; g for i:=1 to 10 loop
# p4 I' Q! I) F1 \6 ]+ i9 T Res:=sprint("Store_",i);
9 J: U( j' s1 k' \) v7 ~ if existsObject(Res) then
]$ A9 r) r+ k0 O" j Obj:=str_to_obj(Res);! i3 k4 x& a% H7 h% ]3 _
Obj.deleteObject;
5 p( b7 U. q4 q& `; h& h end;
9 ^" A2 r, z& u% P1 [ next;. z" _8 b# E5 D: I3 w' i' ]
--shengcheng Status:zimoxingceng
( e4 i4 v/ B; p5 F Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");3 D1 r ?# l" r5 C! g
Obj.Label:="warehouse status";9 _% u! ?: M& E* b
2 z. w4 ^( }0 \" @3 b) w, Q9 S for i:=1 to WH_nums loop; e0 m1 z d9 A
Res:=sprint("Store_",i);! E3 D0 K; `( @7 [8 f2 g
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
' W+ I* `5 c( \" \% d- p2 Z Obj.Label:=sprint("huojiaceng:",i);
: Y% {6 G2 ^6 g: s6 T Obj.xDim:=WH_x;
, w. f" X, b% q- ? Obj.yDim:=WH_y;
) [( s7 b0 e( X' b1 [8 E Res:=sprint("StoreData_",i);5 R1 V( M+ _" N9 a; b% }- Y
0 U% a. N! ^4 y) t$ i$ {# l# S
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);7 z. x* `; z+ x, ?0 c' v" b& r
Obj.Label:=sprint("huojiaceng:",i);0 V# t/ Q; ~' t! \9 z
Obj.inheritFormat:=false;$ i$ R* c7 K3 x/ E0 R* P7 i
Obj.maxxDim:=WH_x;
# a! o$ x: ~2 I5 w Obj.maxyDim:=WH_y;$ D1 `: w( X' h7 h+ \5 `, O
Obj.ColumnWidth:=3; b+ B0 |7 X1 r
next;
) T( ?% f& ?4 A) ~$ h0 G7 `: S. f & V# c3 R4 u) K' }
.Delivery.MUs.Forklift.speed:=2;! X( E8 R# @: }- g. E
WH_var.delete({1,Part_Nums+1}..{*,*});9 O) M. y5 S) x9 _ y2 E' ^
for i:=1 to Part_Nums loop" \. S( G% \! z+ {. }
WH_var[1,i]:=chr(64+i);& E* j5 f: I* z# G) T
next;! ]8 O5 S; a: h' t% }
end;
8 m7 r1 w4 I# Q' _; B" H6 s出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
7 J% j0 J, G/ S" Q4 Q4 c- S# \" F4 C- |$ A
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|