|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。, A) U* g+ v$ `7 G( ?$ k; R3 z
语句是这样的0 p# l. b5 B0 M: I
is
* G( `% [+ u* s) I6 x1 b i:integer;6 G( [5 i3 c- p; s) O
Res:string;( W& Y% d" h' C# U8 n/ `2 i3 F8 U
obj:object;
Q" T/ w7 C1 \9 ?$ Vdo' A0 y, N/ y# ^6 E/ s
if existsObject("Status") then& X- ?% ]; Y1 Y3 ~- ~
Status.deleteObject;8 a4 h! u" q7 ?% H
end;- w6 o6 s8 w J$ i+ M+ \8 Q
for i:=1 to 10 loop) \. [# Q- u9 H) f
Res:=sprint("Store_",i);
, O% j5 H) o. T/ F; z& c" T if existsObject(Res) then) {+ w, b L' S3 s% ~3 b. g
Obj:=str_to_obj(Res);/ T5 E& B. k$ i+ k7 ~! I- G
Obj.deleteObject;2 G1 U+ B# C) w2 G3 \$ z* g
end;
3 t- V/ D3 Q" z9 @+ V4 Q next;
) {1 K X4 y; F# Q --shengcheng Status:zimoxingceng! Z: x7 v, h# ^ ?2 @6 O! Y8 i
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");+ N' e7 g" c+ g, F; z% k
Obj.Label:="warehouse status";* r- b M1 Q. l# G
0 {; A3 c. a) L0 Q) \
for i:=1 to WH_nums loop
0 s2 [9 O0 x/ a7 n! V/ c% X Res:=sprint("Store_",i);
; Z7 x* L) z6 s" \' A9 [5 E Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);' ~$ ? k; v; d, x }3 \: W: l, \
Obj.Label:=sprint("huojiaceng:",i);- N1 Z2 V# S9 z) E y) t
Obj.xDim:=WH_x;
0 {6 j' w: b$ @4 Z) D0 M) [! c: t" y& ~ Obj.yDim:=WH_y;3 x6 O7 K2 |& h2 T
Res:=sprint("StoreData_",i);
6 x* A( O* I" |3 g( {- E, d. M . H. R3 X: T! ~: B: X/ K% S
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);) g. j( O" a2 ~& e* y: [! Q
Obj.Label:=sprint("huojiaceng:",i);
- | Y- o5 ^6 D/ Z8 z Obj.inheritFormat:=false;
0 d0 x# {! I; c5 F$ U- { Obj.maxxDim:=WH_x;
- l7 h3 ~3 V5 z6 Z8 T' T Obj.maxyDim:=WH_y;
" y& W- W: e+ ?3 G+ _ Obj.ColumnWidth:=3;$ ?+ _; F6 J" d d* O& b
next;
+ G& i {7 V+ n
3 B- B9 o# F; n2 A+ U .Delivery.MUs.Forklift.speed:=2;* c8 a: b" I% `* m8 ^
WH_var.delete({1,Part_Nums+1}..{*,*});+ f3 q+ K8 L6 ]/ L6 U
for i:=1 to Part_Nums loop( N& |' ]" Z8 O0 |: Q& ?) Z8 v
WH_var[1,i]:=chr(64+i);
3 t0 ^5 w4 S/ B next;
/ q4 A5 G4 U! E5 ]4 ~/ @end;1 f2 s: M/ X7 F4 N8 E% O
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 + b4 ]! o: s& Y+ N+ S
, J. a. B( }# U7 N ]( [$ ?3 H
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|