|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。7 k! R5 e0 ?& B, T S6 X; I
语句是这样的
) L3 J7 \! X$ zis( c3 } y; Q! O4 ~, g! W
i:integer;
! u6 G, Y) n; c/ } Res:string;# U) a) O/ F; z' I( z
obj:object;$ I; Z9 u3 O2 P e# j5 x4 T9 K, b
do% P: q4 u$ S: Z' Z% B
if existsObject("Status") then8 ?5 _7 `- r0 e( w- O) o3 H
Status.deleteObject;
$ N8 u) V. ?$ Z$ A; j: F( _ end;4 E: J, [, X: m( C
for i:=1 to 10 loop
, p: }, ^7 s8 l6 i( y Res:=sprint("Store_",i);
2 C: A* o4 Y- b1 i; i% d6 B if existsObject(Res) then
2 Q( l$ ~6 i+ b+ i" Z1 o Obj:=str_to_obj(Res);
+ d% W- t; n- a1 O; n( M( p- @0 e Obj.deleteObject;
! I/ `7 a, {$ M" o$ b end;9 U0 M2 h' x; o% ]: Y' d0 D
next;: y1 u$ g2 u3 p# U8 ^
--shengcheng Status:zimoxingceng
- h" T1 f ?7 [- G- {6 o Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");" v) t$ \" h: M3 l* [) O
Obj.Label:="warehouse status";# O" O( a' J7 H, t
6 M- S% D4 I$ O/ ? for i:=1 to WH_nums loop
$ M `1 V. Y8 Z+ {9 v; A Res:=sprint("Store_",i);( \3 y0 R9 l/ K" `! `. `3 O
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
( f6 S0 O5 ~3 r; K6 F# s3 b Obj.Label:=sprint("huojiaceng:",i);% i8 V: H8 ?& R Z3 P0 w, q
Obj.xDim:=WH_x;5 k9 f' L% r- W$ ~( s* G2 t
Obj.yDim:=WH_y;) p$ V; H3 b5 O6 L4 W# U+ p7 r
Res:=sprint("StoreData_",i);
* Y/ W, T. @0 C/ ]
. U; p! d. {2 B: V2 u Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);, p! c/ E/ f% r6 O- u
Obj.Label:=sprint("huojiaceng:",i);3 J3 [8 N4 s. ^+ i' {2 a, T; N+ q
Obj.inheritFormat:=false; f! Q. q: _" n5 m5 ?+ m
Obj.maxxDim:=WH_x;
5 ?" Y* [) V6 S, W Obj.maxyDim:=WH_y;
4 c/ U# g. o6 ~) E4 y Q& z Obj.ColumnWidth:=3;
* a4 @# L/ o0 J" @& N next;6 @, _. W: j1 S& d
1 ]+ k6 }, R: K# `1 t .Delivery.MUs.Forklift.speed:=2;2 W) ?; b# G0 v. Z B# F& _
WH_var.delete({1,Part_Nums+1}..{*,*});
+ u' Y) g! j; o- p0 y5 |0 Q# e for i:=1 to Part_Nums loop
E/ O" F6 b/ g. Y0 r WH_var[1,i]:=chr(64+i);( n6 d$ E6 \8 }. B a
next;. x- `8 k% _3 s! B: A* L, b
end;
6 T5 W. ?2 Z; {) @出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 , @# v9 e5 K( W7 h; @/ B" Q" @
! w& k) A* X; P R0 G* r |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|