|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
( b$ X; s6 T% t/ ?' H# s G/ `4 b语句是这样的
0 x P# b a% t$ A, {+ Yis
1 \$ R) @0 y; X, k! S i:integer;$ F: z' c4 r; h3 h1 V+ r6 `
Res:string;
7 g/ r* ]4 R3 _' e obj:object;
0 F; ?; B& V2 n9 Z+ D0 M3 A/ Gdo
; O! ^( A: e9 G4 R2 L/ P2 m if existsObject("Status") then
) i9 i6 X6 ~2 ] g6 z Status.deleteObject;, t# I1 t+ o) H" c
end;+ e0 y1 _8 Q1 M! f! {6 w
for i:=1 to 10 loop
2 ^4 ~% J) U" t6 i Res:=sprint("Store_",i);
. v! e g @0 D w- z" w if existsObject(Res) then
5 R& x, f3 ]! `9 l! q* r8 T" B* { Obj:=str_to_obj(Res);
& k7 w( ^: _' p+ n+ T, o1 U4 n7 {4 z% [' [ Obj.deleteObject;; @4 c3 \+ e3 C9 e4 a- M
end;6 t& a- }) l# f% G( F: h. ?
next;
) @. c+ s* U& m; R --shengcheng Status:zimoxingceng
H' S$ `, X& U5 n5 X$ v4 E Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");; r2 C& @$ p5 w3 o8 Q
Obj.Label:="warehouse status";/ ^/ T# @5 m6 X8 ~' u& T+ D
) Q; l& \" V+ G. T! [" [, ~ for i:=1 to WH_nums loop+ ?! N# M4 c F' ^: ?0 b
Res:=sprint("Store_",i);( r ] K2 p* S' V5 ~- m1 G& @' }& V
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res); H1 F' h7 S+ C8 s2 Y2 T
Obj.Label:=sprint("huojiaceng:",i);# T$ Y/ Y9 O7 \& r/ ^/ j7 p( r
Obj.xDim:=WH_x;
+ S! t( ^8 E! U* |+ | Obj.yDim:=WH_y;# O* }! T; T! Y% V, L
Res:=sprint("StoreData_",i);1 ^& U; l) ?$ j% ?1 A2 y; G, W6 G+ `
! @% `6 L0 _+ g' M Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
8 J5 J2 R) I4 o+ D7 J% k2 m1 e Obj.Label:=sprint("huojiaceng:",i);$ }' X) I4 j. C" ]6 T
Obj.inheritFormat:=false;
- d( f9 y% o2 {3 V! z8 |1 B9 B Obj.maxxDim:=WH_x;
$ _0 d+ l) D, n; G) P2 H9 K" x5 | Obj.maxyDim:=WH_y;+ q, V- C2 X9 Q4 r1 W
Obj.ColumnWidth:=3;7 M: y) @+ Y$ M) p0 o
next;
1 E8 b4 j& W- ~$ h
3 n3 E+ I1 E' b* b1 V x! G .Delivery.MUs.Forklift.speed:=2;
2 Q, X* v8 Q) y. d. E WH_var.delete({1,Part_Nums+1}..{*,*});2 _4 s0 @- h G$ P8 @+ m
for i:=1 to Part_Nums loop! h* Q! {: ^, m" ` V
WH_var[1,i]:=chr(64+i);
& o4 C" R G7 a next;8 a6 _( S) {& I e- O
end;
& _8 w/ J1 v% l. a: Q; c. k# d, T出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 $ J+ m; b3 }+ s. G3 q9 o
7 y6 n/ D+ H& I4 ]' l |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|