|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
' K/ d- j ~9 s- [7 e% P( z语句是这样的
7 L T; D. K7 p: F- c% }is
: C# R: _) a9 a+ Q* H1 ~# @! I: i i:integer;
! o7 D# o! `4 p$ [( i2 t; n( P Res:string;
; v) k( M8 S" }0 I0 | obj:object;
3 l0 [4 H9 x% e5 y5 Gdo, N% w7 J0 d" z* l5 a
if existsObject("Status") then* j1 b& Q" w3 J% {- S, J0 K
Status.deleteObject;
* k8 ?/ v) w* P% L) Z end;
+ Z3 |) u" x( R" h3 L for i:=1 to 10 loop: F. D9 s8 ^/ K" e9 T# B
Res:=sprint("Store_",i);! K% x# w* V q Q! A: o
if existsObject(Res) then
! M. o6 u' Z$ U# \ Obj:=str_to_obj(Res);& E$ o7 f: o6 N& @0 k- ^' Z
Obj.deleteObject;! P/ J' J* `/ C* R
end;
8 n8 p- t* Y: N" m next;
0 T2 a* G; L" G! g# e6 x: V --shengcheng Status:zimoxingceng6 Q8 A( R* P9 Q: [/ J0 d
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
8 L% s/ U7 ~$ l Obj.Label:="warehouse status";0 k4 K% p; I4 h4 M9 K1 u6 Q9 C1 X
2 T" G9 k0 j% ]4 |
for i:=1 to WH_nums loop
0 J, E0 z. O: G Res:=sprint("Store_",i);6 b7 `0 y& s& m( K
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
' k7 ]) {4 B0 G3 G! Z Obj.Label:=sprint("huojiaceng:",i);2 @* F" @. x! }+ K5 C9 h
Obj.xDim:=WH_x;: Q9 H6 O9 N8 h; E5 t2 F' S! l
Obj.yDim:=WH_y;
/ H& _; m% ~# e9 L Res:=sprint("StoreData_",i);7 E% ~# t; @2 o' Z, v" r
+ }: G% K3 d P: X/ A; y
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
( l8 ]0 l8 v: ?8 l Obj.Label:=sprint("huojiaceng:",i);1 u; ~- U& @( d
Obj.inheritFormat:=false;
6 O8 M6 \" J! D0 E& R5 ] Obj.maxxDim:=WH_x;
# K# p6 I9 t. @ Obj.maxyDim:=WH_y;
5 Q2 r% S- O$ x% w Obj.ColumnWidth:=3;& x8 t! I; W' Q9 p1 W8 m
next;
0 x1 ?6 A: [, _$ m, z0 H9 `3 e' n8 W
' g3 `$ S- i, m, K- c2 u) R" f .Delivery.MUs.Forklift.speed:=2;
4 u5 l/ k/ q4 T4 j WH_var.delete({1,Part_Nums+1}..{*,*});
2 x5 ?& ?; W( O( B/ [3 t) f for i:=1 to Part_Nums loop, r( z$ _* l1 m
WH_var[1,i]:=chr(64+i);* G1 ~, c$ d, @0 T- |
next;3 ~/ U6 i' [7 [% T
end;, W* N! V: j6 s7 a3 T
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ) i. K* e0 N" ?3 s% g X
, z! Z5 r% o3 N3 U' a |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|