|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
! k' Z6 G: g$ b2 L- i% O/ O语句是这样的
% r/ M E+ U9 o3 n. r6 J7 p+ Xis s1 B0 T) \$ g! c
i:integer;
0 V0 E8 ?( ^' e% W$ F Res:string;) @0 v1 ~* y4 _# n/ C5 S, r0 I
obj:object;
) I% v" w J/ K0 o( Sdo8 L6 T" L8 g! f+ O) o) ?* a
if existsObject("Status") then
% A) }4 N" H4 q, L+ r Status.deleteObject;
, {" W( z" M3 e end; h- W9 O7 z6 t) T
for i:=1 to 10 loop8 a5 Q# U: |5 \: a$ \/ N& m. {) a
Res:=sprint("Store_",i);
7 a$ n* k8 g( l if existsObject(Res) then
% E' D& L4 S- ` Obj:=str_to_obj(Res);
, e, W& Z- ]5 w$ \3 r, |- N6 P Obj.deleteObject;6 B, G8 T& Y' R& ]9 v$ {
end;
# S/ V: _; @3 L/ D' E$ Z next;
9 S% M4 _ `, H* z9 K --shengcheng Status:zimoxingceng
* N" T0 D; X! d) `: ]: w* W n Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
0 F% r l1 H; g2 g7 { Obj.Label:="warehouse status";
- w3 f$ c2 f8 P
3 ?3 u# `5 J; D+ i for i:=1 to WH_nums loop
' a% Y* N$ d+ D Res:=sprint("Store_",i);, J8 Q) t, ]' z$ W1 w8 p3 O
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);1 u4 W: L# Y+ D R+ Z! g
Obj.Label:=sprint("huojiaceng:",i);- [* o; f1 v) d
Obj.xDim:=WH_x;
" {6 z! @6 b) K2 T& W Obj.yDim:=WH_y;" l- B% N4 [; \' D o$ N
Res:=sprint("StoreData_",i);' k I T3 `& }" N% Y
9 r* D3 _0 ]' R" U1 q: e, }
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
N& @* r& f3 M Obj.Label:=sprint("huojiaceng:",i);
0 i5 H4 V, O8 R1 t. I1 ~+ I% `7 T Obj.inheritFormat:=false;
5 d7 w5 I1 b" i( j Obj.maxxDim:=WH_x;
8 I6 m/ |. h; q7 G0 H' X! t Obj.maxyDim:=WH_y;
5 J a, C4 s" Z8 Z/ {) Q) \9 o Obj.ColumnWidth:=3;% T0 f8 r7 N6 l/ s9 {
next;
! V. {, j' U7 m2 ]2 A! m
^$ @, E. J7 Q1 }) O& [# j {- m .Delivery.MUs.Forklift.speed:=2;
$ i6 L- N: J. _6 p" I: M WH_var.delete({1,Part_Nums+1}..{*,*});* F$ {2 O5 F _) V8 y7 n# z6 c
for i:=1 to Part_Nums loop( v. b$ H0 I/ a9 b' M. p8 ^
WH_var[1,i]:=chr(64+i);
+ r! D+ U3 p5 G7 a4 S- W: @3 b next;
* z: a1 \$ H$ v( hend;, [5 }6 ^- N6 T9 t
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
) z% i* M1 I H5 M* a3 [. y4 @7 v6 ~3 T/ B% Z
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|