|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
9 ^& a$ I5 @. d% s+ {: J9 k语句是这样的
1 K) ~7 \6 [7 q( tis
5 P. d. ?- s: j; C i:integer;# [1 w6 }5 h) [- r6 E1 w' G) i
Res:string;
5 v1 D5 C' W8 Z. ?& a obj:object;) f% y# @' ^2 z0 v( Z _ J
do
. G& Q& E5 t# o' C# L5 x9 N4 h if existsObject("Status") then3 ^ A7 n+ G d% T5 q# m( I
Status.deleteObject;4 }/ u+ T) s5 n, A* ?
end;
8 a/ u, C1 A7 Y, F" d" T# ]7 P for i:=1 to 10 loop
- `7 L2 u# Y% r; E1 {% j Res:=sprint("Store_",i);
8 A9 V# `) W# f- q' t if existsObject(Res) then& E' y- [1 D6 w# u) r/ z! x
Obj:=str_to_obj(Res); x; e( ?3 [1 j3 l
Obj.deleteObject;( }) w' y3 H# i. q& r9 Q
end;7 ]% q( |2 k" S' o
next;
+ ~5 K4 u4 i9 H+ P7 z --shengcheng Status:zimoxingceng) ?& o' g- R( m1 M6 L4 B
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
" D, O; a6 t: H6 \ Obj.Label:="warehouse status";4 u7 ?7 k1 q1 X' C. o3 a
1 o# C0 v) U; O0 P
for i:=1 to WH_nums loop
" v( i. @3 S* \ Res:=sprint("Store_",i);+ g2 v, i# P! `1 Y6 a
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
r. W' d R* K3 f! Z2 }$ ~0 H Obj.Label:=sprint("huojiaceng:",i);3 ]* X9 ? n: x& J3 n
Obj.xDim:=WH_x;
' ?, }4 l! X* y5 _- i Obj.yDim:=WH_y;9 A- k1 I; M$ P
Res:=sprint("StoreData_",i);2 A0 j; M7 `! d- F x2 o- X$ l. ]
) l, t/ D- ?' P2 A) i Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);7 ]4 _) ?6 \) z
Obj.Label:=sprint("huojiaceng:",i);
! h0 o, e3 t8 b6 x1 e: F* g/ g \ Obj.inheritFormat:=false;4 f( {7 e; x9 w6 Z( q
Obj.maxxDim:=WH_x;
" J7 w- u: g- U7 e8 r Obj.maxyDim:=WH_y;' ^0 ?* i" a2 u! K. \. ] X
Obj.ColumnWidth:=3;; N! T' T: b: N j9 w- ^
next;5 z$ Y8 D8 i# O" j; x- g* ~+ E) g
5 c/ [: \) s- F9 z+ y& n& s' Y$ o .Delivery.MUs.Forklift.speed:=2;- n$ q- R" H. s' `- n1 ^8 c2 C; J
WH_var.delete({1,Part_Nums+1}..{*,*});
$ Z4 e; Z- C" D! J( q$ |, j for i:=1 to Part_Nums loop
% o( R2 m/ ?1 A WH_var[1,i]:=chr(64+i);
9 q8 t* l' n- F: |# @8 _8 q7 J) A next;3 j( c$ B# [$ T- I
end;
% V4 u2 G" I* Q' ~8 i# w. d5 ]) `出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
$ B- {/ m7 j0 c
@& [& c; E% K( C; ]8 m |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|