|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。6 M7 `) S% \1 l1 @
语句是这样的
; j6 {$ F& P" A; |+ ~! v9 o% sis
! T B9 F @/ G$ a i:integer;# J, |+ X, u$ F1 T
Res:string;
. y" S6 t/ e( E- R2 v3 s; ? obj:object;6 M+ ]6 \5 a% y8 u0 p V
do
) D! i& A: e$ G if existsObject("Status") then' S$ @: M8 g6 a: @
Status.deleteObject;
# _3 ?( M W G3 U+ r. E end;
- G! _" p1 f- A) s/ ]. G for i:=1 to 10 loop9 X/ O8 l3 k" N
Res:=sprint("Store_",i);% e( q% O# ~7 C* k9 i1 r2 u
if existsObject(Res) then
$ |+ R* ^& s+ J9 U( F Obj:=str_to_obj(Res); p8 @: c' Z( Z. l
Obj.deleteObject;* ^% ]7 R. Z' w
end;
9 p' I- u: y, r) N2 _: V. f$ o next;# `7 t; W1 u: Z% T" c8 `
--shengcheng Status:zimoxingceng0 g- ?* N) J5 O. q2 ^, G: ?; B
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");+ e: W/ P y8 u! D1 ] L3 U& @0 r% L8 ?
Obj.Label:="warehouse status";8 l3 R2 O: G1 h( C
: w) b; B1 P, z8 k7 W I1 E
for i:=1 to WH_nums loop/ C! O2 `! h L& C; I; x( q& ~3 U
Res:=sprint("Store_",i);0 I! B/ h, P$ A6 X# _9 o
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);2 d$ D) v! F5 J2 \0 u# Z
Obj.Label:=sprint("huojiaceng:",i);. t/ A0 [, j0 @: b* B+ A
Obj.xDim:=WH_x;4 J h+ F2 I) v% r- @& g# ] s f
Obj.yDim:=WH_y;
; h& L7 N* b3 Z; j7 \ Res:=sprint("StoreData_",i);. H* |+ B5 ^5 j7 ~, ? S
x8 ?/ z$ l3 A) U Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);2 F& e2 N3 \8 Q/ n! H4 d9 D2 X
Obj.Label:=sprint("huojiaceng:",i);" X R5 [; f- E0 N
Obj.inheritFormat:=false;
0 O9 Z! K' K! V \ Obj.maxxDim:=WH_x;6 i) O9 a; J8 l1 n1 D5 ~
Obj.maxyDim:=WH_y;
- P1 p; ^9 X0 [7 g, ^7 N9 O* ~ Obj.ColumnWidth:=3;
) O5 h- h6 a% p2 @( d# V2 E next;
6 {$ P8 `9 ^ @, \) M% S % `5 P4 M6 `" w' R# h
.Delivery.MUs.Forklift.speed:=2;
' t& |4 s( G6 g1 O/ M0 x# t' ? WH_var.delete({1,Part_Nums+1}..{*,*});
+ d, L1 ?$ I# @, r& H7 } for i:=1 to Part_Nums loop
! U- k) @3 U8 y4 B @5 D WH_var[1,i]:=chr(64+i);
, [9 ~1 c% J8 M' k next;6 V2 j+ q2 `2 \* h" @+ s Y& ]: [
end;/ B! x: y0 ]6 R2 `3 G
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ; g+ ?0 _' u$ i9 b9 P r
8 ?& ^) }6 C1 ~) ? |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|