|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
: `5 c' n/ K1 S# g- Y" B语句是这样的# ~1 ?1 I1 |( q2 A/ \3 T
is' t0 X1 F, p1 {" {4 u' q& ~: s
i:integer;
! o7 R6 w* w9 @$ D/ w Res:string;2 f1 J# ~2 h) w3 \2 |1 p$ w
obj:object;
0 N. B! ]4 {! u/ qdo
, f2 G( C8 J) f8 I+ b4 j if existsObject("Status") then5 K. z/ X w. z* N) `8 g/ G
Status.deleteObject;$ u" v$ R, b! p# e* S9 B0 q; G' A
end;$ V- s* U3 [7 ]: f8 h& j
for i:=1 to 10 loop: Q) ^+ Y, }3 e* m& e: p c0 R
Res:=sprint("Store_",i);8 V- q# ?* x4 X1 U' I1 i
if existsObject(Res) then
0 f; c) U* O8 S/ j+ h- K Obj:=str_to_obj(Res);
+ x* F9 u2 s. \: d Obj.deleteObject;
: x: X# z; i. {: w) w$ @ end;
9 ?2 l* B( Q2 g) a: Z# P next;6 v! J6 K7 S. X+ i/ \
--shengcheng Status:zimoxingceng) |2 R& A1 s) t( ~/ h
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");* E1 Q+ U9 k$ }3 B: Y+ A
Obj.Label:="warehouse status";2 ?% A7 m0 O% Q8 b5 o; r2 w9 p
$ z" y5 X- G2 T o I
for i:=1 to WH_nums loop# F4 H7 p% E4 C% o/ @: J
Res:=sprint("Store_",i);
8 y) [' _9 M( ^& X# S5 j Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
& s* m; B) `# z: \/ ^% h Obj.Label:=sprint("huojiaceng:",i);' }% c' u: ~% k+ Y
Obj.xDim:=WH_x;- F2 |( y7 I( F. z A
Obj.yDim:=WH_y;
% g3 l/ S8 Z( g6 z Res:=sprint("StoreData_",i);! J f0 [" v& Q x/ O0 _1 Q+ T
% t$ U; `! F" L' g* j/ ]* n4 j: R Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
/ D! j# m& y3 f& |0 T& c4 | U Obj.Label:=sprint("huojiaceng:",i);
8 a% F0 \" x1 f4 k Obj.inheritFormat:=false;2 N$ l! N% b: Z; i" D/ V
Obj.maxxDim:=WH_x;$ n* b0 ~1 ]1 ?+ v; x
Obj.maxyDim:=WH_y;
: g+ N+ v( b# s; h Obj.ColumnWidth:=3;2 A/ A2 J' B$ O' u
next;8 ]6 q( v5 l/ r: X h8 q. ]
+ s# B3 a. A9 n: B# ]
.Delivery.MUs.Forklift.speed:=2;- x/ h H! Y2 o/ x _- U
WH_var.delete({1,Part_Nums+1}..{*,*});
6 {3 Y4 u4 D: X6 ]) I8 b for i:=1 to Part_Nums loop2 b2 L/ e0 z+ i3 y4 s4 P
WH_var[1,i]:=chr(64+i); O A( v5 h/ x; z/ a
next;
5 ^ D/ \+ G; P4 P$ c7 Hend;
8 \( G; r D6 K* M6 e9 p出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
$ B; P; C/ @! y" @0 t2 T2 h8 t' [% I {
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|