|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。) G# Z6 W: l5 t! ]) z' O% g
语句是这样的
- x3 W5 V) F* t- Lis0 k) u& ?& z% p& @
i:integer;- ^" O4 J4 F3 s( `
Res:string;
% T6 t T: m6 H% x: B; q! @, F% B& g obj:object;0 d9 `" R. ~! b6 E; V, f2 N
do
; H! K6 L4 a/ r6 u4 l if existsObject("Status") then
6 Q" Z/ E- _4 ] Status.deleteObject;4 q2 p* l: s/ i" i
end;/ c7 s# Q; |& H% Z3 |- p
for i:=1 to 10 loop! k7 p1 B a0 V
Res:=sprint("Store_",i);
8 O: D9 m2 w! |2 T3 O- s if existsObject(Res) then
, p0 _ q7 ~4 M% Q- q- j! u Obj:=str_to_obj(Res);' v% ]( u9 o/ a6 v8 \0 E5 S
Obj.deleteObject;
9 o4 p0 k0 f* f9 Z' M end;
. T! U0 o+ Y, V% T' L next;
% `. b, }* I* K$ O: ~ --shengcheng Status:zimoxingceng
/ p( e% r6 I! Z- W; r% y Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");3 e) x% p# I3 \8 W
Obj.Label:="warehouse status";$ u# S5 n6 `# n7 M* M% _- ?2 _
# l& l" ~& `* D for i:=1 to WH_nums loop8 {% T8 c7 x( V# q
Res:=sprint("Store_",i);
& t' ]. ~3 `" z4 G \ Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
' t) C0 ]6 `# y0 B Obj.Label:=sprint("huojiaceng:",i);
" h6 y4 V9 s: q* T Obj.xDim:=WH_x;
0 ?& E7 a* f: J5 x Obj.yDim:=WH_y;- ]0 Z: ^$ W% W1 K1 [4 p
Res:=sprint("StoreData_",i);8 | }) A b( b; E5 W2 h
1 N. |, \ Y# R7 W9 j: _
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);$ |1 D& C7 s/ l% ]
Obj.Label:=sprint("huojiaceng:",i);: x* e, N' f: ]* R. @
Obj.inheritFormat:=false;( L2 t, ]; I& R
Obj.maxxDim:=WH_x;) e; [( T8 k+ i
Obj.maxyDim:=WH_y;3 J( ]. `/ A6 K2 h: ]6 _" ?
Obj.ColumnWidth:=3;
$ D2 @0 B/ \# X6 A- q next;' b- H' _: |1 ^4 X
# C! `" |- d2 F7 S% F
.Delivery.MUs.Forklift.speed:=2;8 u) K6 @" O1 [4 x% \% ~- y1 k" p
WH_var.delete({1,Part_Nums+1}..{*,*});
( M2 a' \' Y0 g0 J for i:=1 to Part_Nums loop
% ^1 G. [+ L* N. G5 ~9 U WH_var[1,i]:=chr(64+i);
* w; N9 i3 D( M% v" S% p& N* ^ next;) F7 m+ Y9 i" w2 _/ i% B( `+ D
end;& y. h, d6 e1 D; D2 }3 z
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 + S) U/ X" e$ B4 a. `2 J) B/ G
* E2 r" }! @7 M# |
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|