|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。/ B" k) z) v, b( V4 y, b
语句是这样的
2 h1 C' u3 f' y+ His$ D( a9 d, X4 e/ z' C) R
i:integer;: z3 [. ~ T# X
Res:string;
H( P# @* b- n+ G% u z obj:object;
, {: w/ l D2 x' ddo
' `7 @/ u8 [' k" a0 R3 }: Q. P if existsObject("Status") then: @9 [. u7 V' [' T) ^% ^( ^' V
Status.deleteObject;, ~6 |* `0 n" o0 Z0 _5 O# B/ m
end;
( K, p( ]" }) Q( Q$ u ]* K) @5 X for i:=1 to 10 loop6 ]2 v* G" H: \4 _
Res:=sprint("Store_",i);2 ` {$ U4 B% x, F- C. \! n
if existsObject(Res) then
$ P8 I/ D7 i ? b# c5 P Obj:=str_to_obj(Res);! f& J5 ?+ _; A" A
Obj.deleteObject;
" y9 {8 z3 v" j/ m& b end; I# ]7 i5 a9 g
next;
. _( D) Y& V/ v0 v- h2 @0 B --shengcheng Status:zimoxingceng
) t% e2 q6 @8 ]3 V3 o. ?+ a Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
5 C6 y: { i& E% n Obj.Label:="warehouse status";
: W+ Z. t" c- r0 V
5 D) I$ n8 _; O; A# F for i:=1 to WH_nums loop- h( ?0 q- t$ O) @% `2 n+ p
Res:=sprint("Store_",i);
6 n& j; C% Z! Y. A# V Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);, t# A6 i- q( i7 m& W
Obj.Label:=sprint("huojiaceng:",i);
8 ?2 e) I; F9 _# T Obj.xDim:=WH_x;
! u8 u5 [* s/ `; @& u% o# H Obj.yDim:=WH_y;+ H6 I' O4 D. R
Res:=sprint("StoreData_",i);+ d5 Z8 z) {- f3 m$ b
0 p; [, X3 a" t% P$ z' K
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
2 R4 B& @' a% c/ L" x: k+ O0 l+ R Obj.Label:=sprint("huojiaceng:",i);
/ a4 u+ G# P' Z3 A- V5 r Obj.inheritFormat:=false;
% {! W6 U& B! T* A Obj.maxxDim:=WH_x;0 Y: |& [" b/ `# }* B
Obj.maxyDim:=WH_y;
. V: Y$ Z$ C9 x; b; q% g Obj.ColumnWidth:=3;! ~$ g3 [. B! z
next;
, j" N' S9 T. F# q" O' i( P% W8 @
+ C, k! S2 @" I' Q8 G .Delivery.MUs.Forklift.speed:=2;
. g0 P n; h8 r/ o! q/ Q WH_var.delete({1,Part_Nums+1}..{*,*});
7 G0 @1 ?# o8 h/ t/ T/ U8 P' w4 I3 c for i:=1 to Part_Nums loop
/ V; l1 s. g5 `1 \1 e& U0 A& b WH_var[1,i]:=chr(64+i);! \# h; |4 z3 d2 A( R
next;8 j2 [! V2 _9 p' K
end;) n+ f1 j* e" d3 p
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
- H9 |$ Z6 A8 I. C" t1 r- ^7 Y2 h4 m7 F+ ?: F7 W: A2 K
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|