|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。8 D. ]% K7 L# k0 v% z. g
语句是这样的4 n( C0 o4 `8 ?9 n. O( I
is. ], M( j& r7 l. s* B; q
i:integer;
% i, A1 C; U# K! H- R, r Res:string;2 c2 k1 N9 ?9 s- r. l
obj:object; u s3 x+ M- S$ x1 k
do1 o2 ~& M& Q W4 R
if existsObject("Status") then6 p! c" |# y# o6 y/ f! d. G. c
Status.deleteObject;
8 I3 T2 b. U' y' H, Q5 D3 X end;( Y; T5 L- M+ y4 A, g, X
for i:=1 to 10 loop
8 k$ _, x3 ]( C7 b% B5 @: F! K Res:=sprint("Store_",i);
) e" `- H' c( w- V5 N* {0 H if existsObject(Res) then
# K7 r& b$ }/ q0 Y! M Obj:=str_to_obj(Res);. m; R$ u, z* z+ `3 E
Obj.deleteObject;
- m1 q; I7 f" f9 j$ {# O F9 p end;
0 E' t' f/ E6 [/ s( S# N7 M' d next;
: {) p5 m! f4 `2 z' @! f5 Y --shengcheng Status:zimoxingceng l' e h3 o$ R7 E( \; @
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
5 o9 ?# Y1 D" f5 z/ H: z: u, `/ u2 @ Obj.Label:="warehouse status";0 I+ n! I* ?8 f. `8 Q. C
/ @: N( l5 T# Q$ X
for i:=1 to WH_nums loop' q# f1 E3 [7 N2 }' C! l
Res:=sprint("Store_",i);
7 `5 l, `, |' v+ e7 q$ [! a Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
+ i" S3 u# [, |% o) ~9 W3 i# B Obj.Label:=sprint("huojiaceng:",i);/ ?% p4 c0 `, ~; ~' f6 v+ x, N
Obj.xDim:=WH_x;
5 D- A6 {5 J& K" n3 x Obj.yDim:=WH_y;
8 ^, I, G/ f x; J' n3 e; X: M# E Res:=sprint("StoreData_",i);* \5 J. T% x8 a1 t9 c3 x
% ~" X0 @$ A! E+ [5 t Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
1 Z( L4 B9 ]0 F2 v Obj.Label:=sprint("huojiaceng:",i);1 h9 X) F" Q9 O$ c/ U
Obj.inheritFormat:=false;
6 V4 f! r+ h5 z5 W; D! B Obj.maxxDim:=WH_x;1 o# ]3 L* \; M; Z2 [
Obj.maxyDim:=WH_y;
, k# p, p5 Y6 z/ U Obj.ColumnWidth:=3;
- [/ R) `5 \# C/ u! J next;
; _2 X( p% b4 M% v9 H 5 S" ]' P) |5 k
.Delivery.MUs.Forklift.speed:=2;$ _. [ R6 f% j4 p- }
WH_var.delete({1,Part_Nums+1}..{*,*});
* i5 Z- r2 z* E- M: | for i:=1 to Part_Nums loop" z2 C! O4 H8 u7 t; ?# ^+ M
WH_var[1,i]:=chr(64+i);
2 @9 I& I! p! `6 w next;3 j) ?% E/ R* Z. I0 P' T
end;
* E( k' T/ r0 K& _出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 & N, P$ o% n/ s- ^! h/ X
! U/ s8 g! ~3 R* I |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|