|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。! A! R" Q) @! _- B
语句是这样的2 A X8 ?0 ^, U4 b
is4 z2 J4 ?+ ?- S( d; U
i:integer;
' ?( k0 x' t" l. j! R7 B2 { c6 a6 h Res:string;6 g3 b8 \) s n# P8 }8 }
obj:object;+ A! @# H1 F% I/ [; U. E
do3 |) x+ O% }2 w5 n/ l/ G- X
if existsObject("Status") then- Y( v9 E' [; f j6 A3 n) f- i* i
Status.deleteObject;
! f! s6 U' K! B1 r: K end;: q4 Z; C7 U6 H7 g
for i:=1 to 10 loop
2 [# v6 l% e0 D: r* n9 b4 W( H Res:=sprint("Store_",i);8 ]: e: |* e) Q8 U, E3 @7 r& Q' H3 K
if existsObject(Res) then
) L$ u& b0 X$ `0 k4 u Obj:=str_to_obj(Res);
/ _% ^& O9 c( y Obj.deleteObject;! l6 v2 `, k( ]( z1 o; `2 S
end;
, ?2 Q& U+ t( v6 D next;
N* U2 m6 N* e+ } --shengcheng Status:zimoxingceng* n0 o' E) }0 N: i: i. I
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
4 e$ [( q* g6 k7 n) ?; m1 n" A Obj.Label:="warehouse status";) w8 g2 @3 M6 ^1 Y
2 G6 U0 H7 s7 k' t8 Q* |! [
for i:=1 to WH_nums loop7 K9 K; W+ R. p# e0 {* m
Res:=sprint("Store_",i);
5 E0 G4 K( }+ Y1 Q8 C I/ w# z Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);; A* {6 g0 Y! s: s8 G3 ]
Obj.Label:=sprint("huojiaceng:",i);$ q0 o, k3 R# E: j9 l
Obj.xDim:=WH_x;
. |+ O; g) H2 N: Z1 r0 f Obj.yDim:=WH_y;% F8 l9 E; }# h
Res:=sprint("StoreData_",i);; ]6 V% g [- M& ?! C
0 |! S. d X$ l! T8 T5 E& D1 S Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);; R& Z6 Z+ m) P0 g# O
Obj.Label:=sprint("huojiaceng:",i);
( G, D; ~3 x0 W& h Obj.inheritFormat:=false;
7 J& {, `/ O% S& P. X) b [8 t* k Obj.maxxDim:=WH_x;/ {$ g5 l2 ?5 w
Obj.maxyDim:=WH_y;
3 X; v( Z4 s; u H4 h Obj.ColumnWidth:=3;
, C6 d; K* q* n# s J next;
: _7 \" ?( a' v
/ @+ Z% @; ^* r# ^! ^ .Delivery.MUs.Forklift.speed:=2;
2 r) y( O, m* W WH_var.delete({1,Part_Nums+1}..{*,*});/ G& o6 h- V6 g% L
for i:=1 to Part_Nums loop7 m" O* j% s+ a& b* @$ \. S! V
WH_var[1,i]:=chr(64+i);
. `4 q( J8 c- C/ T& h next;" `. u/ s- a J! ~, p5 l
end;/ ?1 r+ }' ^' S& w6 a/ q2 A y
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
0 K+ D$ x q6 c. g8 R4 q! v% p. ?6 P- c! _0 s; u, ^+ U
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|