|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
/ u* \/ t0 H5 v& \- T语句是这样的
" x5 K! p) ~ l' w& cis
0 O" K }1 t) }" s; p7 |) o; P0 k2 k i:integer;
4 }8 I6 h3 j( @9 h {/ V Res:string;
, T8 D; j- N; N2 l, e obj:object;. ?4 \; k& ~' Q+ C
do
' B' w- E! H* h) d; a: D, N& Y: [ if existsObject("Status") then
6 E! U: [1 ~6 h+ C$ [3 U8 j Status.deleteObject;
c0 K8 h0 T% Z3 P3 g0 G4 j2 @ end;% e B, [) ]7 x3 f, p
for i:=1 to 10 loop0 H' j% l# }: b A
Res:=sprint("Store_",i);6 a3 O- V @8 a5 m! n4 T
if existsObject(Res) then
1 j! ^$ A5 g9 `0 g1 N Obj:=str_to_obj(Res);
0 M- G7 a7 }' z2 k! o& l5 i' a Obj.deleteObject;
" h! |; K5 v) j6 ?9 E end;
3 C- O% N; @5 q/ s8 ^, v* i next;
4 {" G: Z$ F# M" ? ~ --shengcheng Status:zimoxingceng
3 P. H8 [: Z, s& b# ] Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");9 k6 O. a9 J( T! l) t0 _; t3 r
Obj.Label:="warehouse status";3 n% T. d5 q& J1 g
; }$ l4 c1 D1 x1 y4 u4 v. q+ F
for i:=1 to WH_nums loop
+ b8 Y& ]# F# F6 v. y. s, a' H Res:=sprint("Store_",i);
# `7 B5 i# x9 u0 }$ p& L5 s [ Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
, U3 `: u# ]# q: P Obj.Label:=sprint("huojiaceng:",i);
' y" [/ N7 n" I: A# ? Obj.xDim:=WH_x;& d4 K) t- }& t; I
Obj.yDim:=WH_y;) z5 D, M: C4 g
Res:=sprint("StoreData_",i);( O q5 J5 W! K/ l8 D
; s2 i+ P+ s+ Y. l! g% p
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
: h7 G; @$ `, L D1 A: A Obj.Label:=sprint("huojiaceng:",i);
- G* j0 |! {" n Obj.inheritFormat:=false;
! ]( B7 L _. p Obj.maxxDim:=WH_x;% W6 p3 }% O9 l6 c
Obj.maxyDim:=WH_y;" d- _& t2 b# b) p. D
Obj.ColumnWidth:=3;8 w7 `0 R0 x! e7 r
next;
& [, `3 J" A' e0 S; B6 H( L; E+ _ , c; @6 k% ~; g& C @6 W2 I
.Delivery.MUs.Forklift.speed:=2;
% d3 b/ V8 U) @ J, _0 Y+ e WH_var.delete({1,Part_Nums+1}..{*,*});
9 k1 t0 o! J% j' n/ f: ?1 f; V for i:=1 to Part_Nums loop
0 S% X+ u% h8 [5 q2 F WH_var[1,i]:=chr(64+i);& F* W! [2 X8 G. P* f+ w- \& J
next;9 q9 V3 Q# J) D8 ^' d
end;8 n1 k/ ]( j7 x) I' V6 w
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 9 A% r6 u: D$ _( j+ C7 s
' W# r. j) I' R$ w
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|