|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。% x. ?2 t) K, h( _1 m6 C9 C
语句是这样的
+ @8 g* f. n2 M3 @. `& a+ Fis
4 `. H, Z, i1 @/ g. O i:integer;- f Y0 h2 ` T* a
Res:string;
, V$ z" N& Z, `* I/ ]. H) @ obj:object;# V0 e. ]' w0 a0 v8 h' O
do
3 _. W% J" q$ W# X7 I if existsObject("Status") then- O) r0 D' e5 v0 Y" Z# z- v
Status.deleteObject;8 \5 p$ U9 p/ p% e! p* a
end;
3 b h) S- \, \# e for i:=1 to 10 loop; V& F: i3 n4 ^3 i1 z A) I
Res:=sprint("Store_",i);
' M O1 [8 G: F4 i X2 T; J& x if existsObject(Res) then: B% \- V2 f/ g X
Obj:=str_to_obj(Res);
9 L* K2 t, U3 b* Z! V Obj.deleteObject;0 _4 |/ z+ P+ J2 z
end;5 _& ?/ G+ s5 r: r6 d
next;
; t4 p' ~, B- a/ R, h5 Z m --shengcheng Status:zimoxingceng% A4 ~3 o# H9 a" t# D, A$ z
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
0 p8 L/ p2 x0 ]# Q6 J" E Obj.Label:="warehouse status";
* A; q4 W$ X) j; h9 W# l' x, U # w* @5 o# [+ n& `( f
for i:=1 to WH_nums loop* G' R- W* ^$ p7 @2 C
Res:=sprint("Store_",i);
' G* G: ]% g7 s Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);* u, w: E2 `2 v1 j% U4 U) Q; L! S
Obj.Label:=sprint("huojiaceng:",i);1 x$ d2 v7 H0 n: M$ I2 x" V
Obj.xDim:=WH_x;5 E6 l7 h" Q G+ O w
Obj.yDim:=WH_y;
" `/ c0 }. `; P' L3 @ d Res:=sprint("StoreData_",i);
; E8 j7 ]( `6 P/ N7 V
1 \# f/ z9 c+ F5 R' r, G Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
! w& w8 \1 Z% z1 x Obj.Label:=sprint("huojiaceng:",i);) h5 l& S" v" _3 g2 G
Obj.inheritFormat:=false;/ M% s4 G7 |9 a1 s! x8 U
Obj.maxxDim:=WH_x;
1 \* v' E% A$ l/ _9 Y Obj.maxyDim:=WH_y;$ Z: c4 Z: L2 I4 R
Obj.ColumnWidth:=3;4 L- j8 S( X% f8 L% v5 L
next;
2 [1 J4 t1 K. }5 @$ q * c2 L8 g; I% }* H. i& i7 v2 N
.Delivery.MUs.Forklift.speed:=2;
/ I& j& L/ R% P- w WH_var.delete({1,Part_Nums+1}..{*,*});
9 }* i, I/ k# P; u0 f: T for i:=1 to Part_Nums loop+ c# n7 x6 i% H- R$ c
WH_var[1,i]:=chr(64+i);
7 L) @7 Y3 t' b) `- G next;1 I$ E7 p7 t6 g8 P
end;$ g) S" i1 y9 o6 @- n5 ?! q3 _
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ! e/ V0 A0 a" [. ]+ D" ~5 @
- e# L5 V4 f: Z! d/ \ |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|