|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
* @$ d5 s3 |+ T7 z! e# s语句是这样的( S; d5 j$ K8 p/ M
is& J$ \' Y1 A' n s
i:integer;
$ W) L9 j) _2 @' x& i' h4 H U Res:string;2 p- W. H$ l% Y6 B9 e9 J# ?
obj:object;
3 N- f6 s3 G+ n, h kdo6 l) p% q5 @, F- F% h; P
if existsObject("Status") then
) p9 h: L2 k0 I9 z5 _ W Status.deleteObject;
C1 P" _; Y( ^5 s& ^4 X end;
2 I& t( P. C0 E8 S. K. S& K9 r! t( G) q for i:=1 to 10 loop R+ I- s! x9 H9 ^1 p8 r0 o0 c
Res:=sprint("Store_",i);$ J/ W/ N6 @. c7 m% r; h
if existsObject(Res) then
: A0 s- W4 }( P j Obj:=str_to_obj(Res);
$ e3 X5 c; T! P( l, M Obj.deleteObject;
i/ K6 j0 T, p. w1 w6 E end;3 D+ _% c5 `( f, Y
next;" J2 p+ ~! i& Y/ d: c
--shengcheng Status:zimoxingceng' G1 P# A/ T k
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
4 r% C/ S0 m- c5 [# j% m$ f( z Obj.Label:="warehouse status";' i3 M5 S6 S# A/ X
* ~5 E+ l" k0 |: C: k. h* X for i:=1 to WH_nums loop3 ^* a( z/ N( u. G7 F+ S. C5 T& v5 K. l. ~
Res:=sprint("Store_",i);+ Z ]2 N I7 x* t
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
& {1 A/ }: i; |( G: N8 t Obj.Label:=sprint("huojiaceng:",i);1 c1 g/ e: b1 ]
Obj.xDim:=WH_x;
4 X* W, ^7 k" U2 U( t @ Obj.yDim:=WH_y;
* ~# ?/ V+ i0 n1 V( S% V Res:=sprint("StoreData_",i);9 m$ C' g s: Q1 |1 X& y3 W
1 H1 t: D& B" o
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);+ C' c! w& n0 d' p7 O
Obj.Label:=sprint("huojiaceng:",i);- F% V0 b$ v" F/ r7 l! U
Obj.inheritFormat:=false;
+ D0 O: H8 s/ s: D) n' Z! _ Obj.maxxDim:=WH_x;' @! E2 D( S( c4 V4 y- g
Obj.maxyDim:=WH_y;, m. c) U' _" o1 t8 V( c
Obj.ColumnWidth:=3;
& V% c, B* Q2 ^& y next;7 i. V: b' x9 |7 q6 C
, d) `+ C) Y$ K8 e% k: N .Delivery.MUs.Forklift.speed:=2;/ q, ?# Z+ }8 g, n5 Q
WH_var.delete({1,Part_Nums+1}..{*,*});5 p6 F8 }: a* J4 ^3 j$ o2 R
for i:=1 to Part_Nums loop' E1 S# A3 W4 L1 l3 M7 i
WH_var[1,i]:=chr(64+i);$ C% v' i0 Q/ g0 Z. u3 [1 m
next;
0 e$ S2 p6 H3 Y4 \3 h# }8 i; \end;! r6 z; o' U. v% _
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
+ u2 I3 D+ H% s8 X/ z& Q# T
$ n) Y' G; X6 b8 _ |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|