|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。+ L: R2 K( D7 D
语句是这样的
3 {+ N; Y' {$ m2 m( ]is
8 y1 ]# B1 m* ?; y2 O$ F% q i:integer;
5 C) d3 Z* X7 g% o9 R- u Res:string;
" j% z" \# S( ?5 }9 d7 W5 S obj:object;
) N: v3 _( k2 I* xdo
" W3 B; u" q5 y9 r. V2 I; ]8 u if existsObject("Status") then, ]0 @) g) ^8 D3 T* p1 V
Status.deleteObject;
/ A3 l& G3 I y- i3 N; T- ` end;
( U+ C' J+ {' e( {/ ^ for i:=1 to 10 loop
; s- @, P% k7 @ ^1 M Res:=sprint("Store_",i);8 q4 B) P1 l" _! v* ~6 z5 I9 ^
if existsObject(Res) then
/ D& H! G& W7 ]) h" O; G7 s4 G7 z Obj:=str_to_obj(Res);/ F8 O/ y4 J+ c
Obj.deleteObject;& u0 R% C j) {7 i. X+ J
end;
: S% ^9 U: }3 I" u/ I9 {$ K( h5 D next;
% P$ q4 l2 s# T: h --shengcheng Status:zimoxingceng% p" |1 d' u! \; [
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");" y0 W- | N h7 ~$ w. p
Obj.Label:="warehouse status";6 s7 y2 ~7 H6 L' w3 l1 O+ q0 ]
4 U0 d/ \: U9 t/ a( A for i:=1 to WH_nums loop
9 C& O+ h6 C0 c1 D. N Res:=sprint("Store_",i);' \& r8 B$ p5 L* b- i. e. J
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
+ U5 H. A' D" E1 e+ D Obj.Label:=sprint("huojiaceng:",i);1 v [% `1 H" ?1 h
Obj.xDim:=WH_x;
, C- R" W+ q) e Obj.yDim:=WH_y;
; m4 e% e0 t; `/ ] Res:=sprint("StoreData_",i);
% V! Y1 F$ D4 U- {, L 5 u/ @7 @: b/ U
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
: S# j: w+ l8 }2 H; u0 H Obj.Label:=sprint("huojiaceng:",i);2 y# `# D8 L5 o: X) S8 ?: V0 q
Obj.inheritFormat:=false;. z. h# |5 G( P3 K
Obj.maxxDim:=WH_x;! l* \7 i2 p5 [
Obj.maxyDim:=WH_y;; w' w. m; o% U$ ?2 G' S# C: E: ^0 \
Obj.ColumnWidth:=3;
$ c1 J* U. t2 v3 x next;
. W# G2 C% K2 x
1 L" T0 Z. j: Z0 g7 X .Delivery.MUs.Forklift.speed:=2;& v, M, ?# M r% g$ }* a! ^' e
WH_var.delete({1,Part_Nums+1}..{*,*});
* y4 M6 g3 ]0 |' W1 Y for i:=1 to Part_Nums loop
9 N1 `3 E! m* ^ WH_var[1,i]:=chr(64+i);
4 M* H5 H. S. u% x7 ?* o, S, p) a next;
6 d2 @% I3 A- j9 A9 a8 `* b/ k6 V+ Mend;+ J" G7 E, @+ M; U& ]
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 l O: g K: \2 A- o4 H0 M
1 A! H% N: g" N7 \/ \& t$ L% k
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|