|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
5 ^' w# }0 O% p/ S O$ k$ C) Y: S语句是这样的$ Q! S+ w' Q) ], b( i
is1 U! Q3 b* g) T7 [+ ~! n0 j
i:integer;
; E! E: U0 y- e4 M( }6 N( ~ Res:string;5 B! _" z/ F T' h
obj:object;
' P1 G4 w( f2 _# O0 D: [: L6 udo
9 J6 t% {. }. Y- ?" g if existsObject("Status") then$ i! n" Z' B- Y; `1 y `$ g$ z* }
Status.deleteObject;- ?# T F2 ~" q' |& y% ?$ x; O
end;
' i2 b. j( ?- B for i:=1 to 10 loop
' a2 r$ d" A5 B! k% }4 @" s8 L Res:=sprint("Store_",i);* |3 e2 x) N0 e9 g* |7 F' J4 A
if existsObject(Res) then
) ^2 Y& q- _" Z, o0 s6 ]5 v Obj:=str_to_obj(Res);
$ A# W$ c; R( l9 x+ F Obj.deleteObject;3 S2 S3 Z, Y" G3 g- t- n
end;
- i6 J4 K+ V4 g5 H next;
7 Y1 W7 g" n ^& l( W --shengcheng Status:zimoxingceng
1 K5 M9 h4 ~" G$ T6 \ V9 p Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");* F) ^/ p u9 W. L$ g, k
Obj.Label:="warehouse status";+ \' ^( Z3 v) M" I1 U7 K
- [9 l0 ]5 f* ]2 C. k& a. X0 h" P* R for i:=1 to WH_nums loop
$ h a9 K4 q' x& w Res:=sprint("Store_",i);
1 l% K/ ?. S( |: P4 F6 ?9 k Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);# w. Y/ t' H6 P- W# ], u# O
Obj.Label:=sprint("huojiaceng:",i);" `' \6 p. j8 W6 e1 n# z
Obj.xDim:=WH_x;/ u. s6 x6 D, X4 }5 y/ a3 d1 k
Obj.yDim:=WH_y;
0 [( o+ i0 B6 R Res:=sprint("StoreData_",i);( L7 h( V$ o5 }1 Z) W# H
9 E% M5 `9 Z0 }- m. i% b
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
, T- G) ~9 T) }: z Obj.Label:=sprint("huojiaceng:",i);( A$ Z3 c+ ]6 `9 h( h
Obj.inheritFormat:=false;
c# j) Y' t$ R u5 c% I Obj.maxxDim:=WH_x; Z1 d) o4 D$ v+ R9 K0 r# D1 `
Obj.maxyDim:=WH_y;2 A6 k# J9 {! [& _9 Z. {+ x2 u
Obj.ColumnWidth:=3;
% k& Y+ [) U/ ~- @5 D3 I/ {% R next;, c# B% g+ H5 O% C) L. d* J0 {
: J! m2 u) _7 w/ F, c .Delivery.MUs.Forklift.speed:=2;
# }/ t2 b8 ~/ M' h6 i5 w2 K WH_var.delete({1,Part_Nums+1}..{*,*});
; F% a2 {6 M0 }. M+ N for i:=1 to Part_Nums loop5 J" o( V1 L- Z7 F0 Y. @. `1 b+ I
WH_var[1,i]:=chr(64+i);+ ~6 S# J/ {1 {" Q
next;
+ T7 V3 F' m/ J3 a3 u% `end;' O$ c5 B5 l$ `. A
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
8 I! p1 |6 U# A4 J4 w$ A. h
" u& X5 W n3 x5 d/ [* j& P) u9 E9 u# l |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|