|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
& o; ?7 r7 @' b! Q+ U语句是这样的% }2 K6 i: H3 [. y+ u2 |$ R
is# `5 C; Z3 z9 w2 t% o; g
i:integer;+ b7 F ~" W% r0 `/ N# t% H- {
Res:string;& ~( }* c" P4 k7 K$ A9 D# \4 K
obj:object;. g! J; q! J0 _5 n/ J4 u
do
7 o% `; p4 n9 ?9 e if existsObject("Status") then6 G) z$ b% c# I) d, i
Status.deleteObject; z _) d& q# ?* T; K1 _5 u
end;
7 k# W4 F! ^6 z7 v6 g. u for i:=1 to 10 loop
# l" {5 G! z$ |/ N; g. `+ S Res:=sprint("Store_",i);
: l7 n, I2 p# P. `1 ] if existsObject(Res) then
& P1 ^: h o$ Y& I. W/ X1 q Obj:=str_to_obj(Res);
% I" `/ V1 ]$ R8 o* [7 Z1 C Obj.deleteObject;- T3 [1 u7 O8 O. ?- C$ p" V
end;
" D. Z& v5 u0 X3 P next;
! i# V$ J6 q1 c8 G --shengcheng Status:zimoxingceng. r# q/ `% N6 X( Z6 o2 p" S
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
* Y* o9 L- p0 f' o Obj.Label:="warehouse status";- d/ B0 q# @2 x! k/ S3 K
4 H7 X" u' U+ R2 G' m2 n: ~
for i:=1 to WH_nums loop( \; m4 U5 Q& _" L( b
Res:=sprint("Store_",i);- i. a/ b0 q8 p$ @ y K
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
9 T5 P) x. U) g; A+ u) E" b Obj.Label:=sprint("huojiaceng:",i);
1 N& v7 j! J% M9 l6 H Obj.xDim:=WH_x;! j# {! z; N: D
Obj.yDim:=WH_y;
: a6 q% l! z. _( D2 `* C Res:=sprint("StoreData_",i);, ^ W! S' M6 E$ \
* E# A& r' ]+ h E" }' v; n; Z Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);6 n# F y a" o7 z3 V. d
Obj.Label:=sprint("huojiaceng:",i);
4 S0 c( \5 U t3 d' L9 M Obj.inheritFormat:=false; J' F( b/ ], Y2 a- m
Obj.maxxDim:=WH_x;* i% Z8 @8 D$ F
Obj.maxyDim:=WH_y;0 J3 s# ?! b% R/ }2 P) D7 R- E
Obj.ColumnWidth:=3;, I, {/ z& R+ K; t1 ]. H6 O
next;+ |5 t! {, C0 ~' t& t) T
* Z0 j( @6 {3 n$ T2 `8 e5 O .Delivery.MUs.Forklift.speed:=2;' F" s" [( \* z8 X
WH_var.delete({1,Part_Nums+1}..{*,*});8 {/ i/ C) Y {* p% ?
for i:=1 to Part_Nums loop J( T" t) I5 Q
WH_var[1,i]:=chr(64+i);& }5 w' c" v7 g1 q7 w, x3 F
next;
5 [2 S' m9 }) oend;/ P; t; a' s3 Q
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
4 B: Z( ~1 }8 I* K4 w4 m8 q" e& X" E' i
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|