|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
, O8 p0 s/ i. O3 ^语句是这样的 O X& Q" @' P
is
, p' ^$ |9 `$ A i:integer;. [% S6 p. h7 H' v8 V: t6 w0 k
Res:string;- y4 U" C/ H; v
obj:object;
: j ?6 h( p$ V) ido
* j4 v0 M1 m. f! {- V if existsObject("Status") then
/ b z! \$ W+ a: q Status.deleteObject;1 D1 ~# R1 l! n+ J& l, { s6 `$ W
end;4 ]1 _' p) j: ?9 B7 r i
for i:=1 to 10 loop3 ], C& x G( t3 Z# E' e) T
Res:=sprint("Store_",i);$ z/ x& [, D) A K$ |- D
if existsObject(Res) then2 H/ w7 ]$ U( H: N% N4 w
Obj:=str_to_obj(Res); ]! z4 ?$ ?+ U
Obj.deleteObject;
5 N) a% h6 J+ j: }( p end;& k& ?9 |: Q8 K8 O5 Z
next;" u$ p8 l- U% ? B2 z- y
--shengcheng Status:zimoxingceng# x$ U6 }" V, h' v0 X8 h
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
% Z# D$ U3 ?1 l! h# Z5 D! i Obj.Label:="warehouse status";
$ T5 M/ e+ O! {: y( f * l5 g3 A6 _$ k( R% p8 N. t
for i:=1 to WH_nums loop
9 R9 R2 o- u0 J/ K# a/ a) D; u0 f Res:=sprint("Store_",i);+ @2 h; f. H* Y, _3 E
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);, l' [# p/ M% b/ e9 G
Obj.Label:=sprint("huojiaceng:",i);0 G' t8 ]: u* B; |& c+ d5 [% _+ q! [
Obj.xDim:=WH_x;
) f+ `- S0 c" c4 d Obj.yDim:=WH_y;4 I+ `* ~7 R ?
Res:=sprint("StoreData_",i);
* E3 i' O+ v- w* C& N! G
' j- Z/ A4 ~+ A4 }4 r. T" x Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);2 D9 P, M! c, P, x- y+ a6 e
Obj.Label:=sprint("huojiaceng:",i);
: q& r7 w6 N& z Obj.inheritFormat:=false;6 c1 ^5 |0 D. j9 v4 s! i
Obj.maxxDim:=WH_x;
8 f' J% w* B4 o# B" S/ S1 \: m: U Obj.maxyDim:=WH_y;
3 M5 ?1 ^, t l* U2 Z Obj.ColumnWidth:=3;! L, `# I2 K* Y' v4 G5 m- _6 E w
next;9 B$ e$ E% j w3 `+ m
" ]* O- Q7 J! T i0 |' q/ A .Delivery.MUs.Forklift.speed:=2;; i1 B. M! Q# h2 N0 f, J$ D
WH_var.delete({1,Part_Nums+1}..{*,*});; `! e: W: e$ Q8 E" M
for i:=1 to Part_Nums loop
/ {2 S6 I2 d" b7 @# H/ o9 t8 X- B WH_var[1,i]:=chr(64+i);
7 N5 T9 ?' ~% f2 I3 w6 G, | next;
9 J/ G' N/ C( d r* `& vend;5 m9 |$ p6 t1 B' J, |
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
* b. d/ L X+ s; p& J6 t# i
& R3 D- [/ o0 E: y% F |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|