|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
* R1 i; l5 }) c语句是这样的6 C' F f5 z5 U: `5 a, I' V9 u
is
- Y3 Y5 H. |( Q2 z' L" y) T8 H i:integer;4 }/ B! l: K4 P$ s9 V
Res:string;# e7 d$ F" ~$ N7 j& P; A3 Q+ ^
obj:object;
4 {* ~% r6 D; O, Bdo
( U# ~# m. d6 _/ T2 K if existsObject("Status") then
3 Y U% p. t/ T2 U, [. m- C6 K Status.deleteObject;+ T$ L; A0 J/ }: L8 g# Y) c
end;! b7 ~/ L; Q# d0 l
for i:=1 to 10 loop+ L4 O r7 ^* P {8 u
Res:=sprint("Store_",i);
9 Q- y$ e1 B+ _7 X if existsObject(Res) then
. y2 Z9 ^* y) J, L Obj:=str_to_obj(Res);: c6 E. S, x, \
Obj.deleteObject;
8 f1 g7 q8 X/ h g3 t; L end;
. a/ `( H; h. O. c9 T8 w/ ]' I- @ next;
" H# n# w6 c" p5 k4 |4 d r. d/ W --shengcheng Status:zimoxingceng
6 X, \, d1 x* I* c Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
2 P: ]( _, ^! D' y% c1 }( J% x Obj.Label:="warehouse status";) c( e8 {' J4 \1 U* Q
5 u7 p: G1 L8 m% W1 [0 v9 w: [
for i:=1 to WH_nums loop5 v0 C9 v: b$ _& G+ h2 u2 A4 E. a
Res:=sprint("Store_",i);
5 h4 L1 P: t4 U6 T% ^ Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
- z x/ }8 \6 n8 b Obj.Label:=sprint("huojiaceng:",i);
) Y' b p8 ?, y1 N: L Obj.xDim:=WH_x;8 b3 R) @- J2 V+ i( M( S3 R5 o
Obj.yDim:=WH_y;
( Z0 t6 p! z9 x1 L& H- x Res:=sprint("StoreData_",i);2 v/ O; } J7 P' {
3 O/ s3 F# T$ ~* S; I& z
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
5 {" ^ f. ]5 l9 C Obj.Label:=sprint("huojiaceng:",i);
5 C" W$ v% e4 F$ i$ X3 [ Obj.inheritFormat:=false;
9 U# ~( g' z* t+ V V" d Obj.maxxDim:=WH_x;; e, y3 e9 y+ g+ R
Obj.maxyDim:=WH_y;+ F8 |! \+ N8 j& {+ X7 q: b- x
Obj.ColumnWidth:=3;) a S8 x, j: T$ [
next;3 w2 p! {+ g4 y* X) U4 ]4 N
/ Z* S' ^% j. X! G
.Delivery.MUs.Forklift.speed:=2;
4 o$ R: h( h7 r4 {2 Z WH_var.delete({1,Part_Nums+1}..{*,*});
% ^8 @) X6 U0 V+ v for i:=1 to Part_Nums loop, z- E1 E1 E( w3 e' F. }
WH_var[1,i]:=chr(64+i);* C9 }. f* d2 w. K
next;
, [/ C1 s7 c+ D7 X( n: B! dend;
5 Y7 l, v9 |% \0 l出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 0 u8 h1 T& f7 M8 L# X6 j7 S" p; D
. L. k1 i S( c( ?* ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|