|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
8 N6 O0 ^! M+ [. F! m/ `2 X语句是这样的
( o% z% Q$ n! R6 K/ s, wis
" @* X" O! M- D8 j: T0 X% i i:integer; g- s. P0 V1 C+ ]5 g( c
Res:string;
% B% S9 X1 F6 i) m: P- [' E3 C obj:object;
: g& H5 L1 f0 X R2 T- edo2 R h" C. E) y& B' R, O6 W, K/ \! y
if existsObject("Status") then# X) b9 i& ?4 A3 j/ ^0 I
Status.deleteObject;
% r0 Y( @8 J4 j6 F end;" E% Y. U* `2 J: Z7 d
for i:=1 to 10 loop. M4 v2 D. R& Y$ m
Res:=sprint("Store_",i);
& ?0 i* h Q4 m+ h if existsObject(Res) then
( B8 d: c- B5 @ Obj:=str_to_obj(Res);. V/ ~5 [6 l# f# r4 t
Obj.deleteObject;
' y: R- s( j" [6 @; k end;
j' w. e$ Z2 A, f next;
) s! d ?( ^" }6 h --shengcheng Status:zimoxingceng
1 y9 y4 v" R) A9 G Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");+ e" v4 W+ [' t6 A, C/ a! e
Obj.Label:="warehouse status";0 q/ j6 g1 j) I1 I
* D6 b, g/ j5 |7 q% i7 A# r$ v; t
for i:=1 to WH_nums loop
: M8 M- H/ B9 o: i& n6 q! Y1 z) s Res:=sprint("Store_",i);
! B' ?5 h& ~- T9 ~2 A6 B Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
% ?+ ~7 h, v' M. K; Y0 r6 ? I) k Obj.Label:=sprint("huojiaceng:",i);+ I$ k5 i: G7 \
Obj.xDim:=WH_x;- h; U @1 j6 c& b) D) S5 @
Obj.yDim:=WH_y;2 ], e* d# M9 P( M, _' v+ G
Res:=sprint("StoreData_",i);
) ~9 [; e6 Z. H6 Q5 n* X
+ H0 `7 h# V5 s2 D/ s Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
- ^/ q2 {# @6 _0 i9 B Obj.Label:=sprint("huojiaceng:",i);1 Q0 k) K( N! a" ~5 n: w% ?; S
Obj.inheritFormat:=false;
- Q( G2 O% x& e' g7 V) p( u Obj.maxxDim:=WH_x;. Y$ k+ f- f4 I) h
Obj.maxyDim:=WH_y;" t9 X2 z- h, w8 J" q: t& Q
Obj.ColumnWidth:=3;
9 c- d6 d4 g/ @7 `0 M$ }. _5 } next;* V V7 a0 W3 X( k
y! b6 `' ?( M' K/ o
.Delivery.MUs.Forklift.speed:=2;
! E1 v7 N3 P' @) t" {- t2 } WH_var.delete({1,Part_Nums+1}..{*,*});
* `- r2 |7 j; H for i:=1 to Part_Nums loop) I: l+ v8 b$ ^( [, s: t; B3 Z
WH_var[1,i]:=chr(64+i);
. R9 V0 K$ c1 D8 ?4 R next;6 A; ?/ l- Y( A4 e2 R0 x$ H; g
end;
+ i: r5 U! k* t# V出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 # H2 G% ?7 y2 }
. l. J0 T8 d# v3 T$ k* ?( @7 t' J
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|