|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
9 h e& f3 U, ?2 F$ e语句是这样的3 f7 T% n0 [ p. f, T# I2 V
is
! L: X4 A( _ @ i:integer;
7 G# b5 s( I+ t) |; a* C7 O Res:string;$ h3 H6 p3 |/ a! v/ ~
obj:object;
$ ]8 @0 |: a7 t( Ndo
$ x+ g0 g* F1 |- _7 I" G' W if existsObject("Status") then
( r; c9 u) I* C# I& S) w9 ^' \ Status.deleteObject;
# z! a8 w$ b9 m3 x) N8 V+ Z1 \ end;
' H7 p# }4 h+ Q' o" F I for i:=1 to 10 loop
s h' ~% v ]: i! r2 ]: c. b Res:=sprint("Store_",i);
) y) @ `) Q1 b if existsObject(Res) then: ~* b# I1 F# J$ G/ d
Obj:=str_to_obj(Res);+ G4 g: w- A; n+ }7 B1 G3 U$ X
Obj.deleteObject;: X/ ~9 g) ^7 _6 P* I: e
end;
/ s/ G% D$ k, n; u3 [7 y, N next;
4 U9 _$ ^0 x' z% l6 { --shengcheng Status:zimoxingceng
5 Y. g: F, m/ [ Z Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");1 Y* q6 D) N3 T3 G, K' [
Obj.Label:="warehouse status";
& S+ I z* B# A3 L1 J , f8 V4 P4 v$ S9 ?8 r
for i:=1 to WH_nums loop) ]% w! q' b2 j
Res:=sprint("Store_",i);
h1 w2 x2 i8 j, U `1 e6 J4 y8 S) }( r Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);! z7 `% I- v X
Obj.Label:=sprint("huojiaceng:",i);1 r9 T+ ]3 y; t4 Z! g
Obj.xDim:=WH_x;
! d* b' l3 }; N$ c# w! d* e5 @* ^ Obj.yDim:=WH_y;8 t$ j- i& h; U5 Y. m
Res:=sprint("StoreData_",i);
]& ?, |. z( {) F3 Z0 w 7 b4 r6 s0 ]/ F2 J' i
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
( R/ a4 h5 k/ S( N2 h/ H* F( S/ d Obj.Label:=sprint("huojiaceng:",i);
3 E6 C9 b6 t9 I0 ?4 t( _; V Obj.inheritFormat:=false;2 m1 u0 Y0 C' [. @) J' R$ F$ Z
Obj.maxxDim:=WH_x;
2 l' C: O. ?/ G' ]% e) X4 ~7 f Obj.maxyDim:=WH_y;& G- K/ V/ U; v$ d/ t
Obj.ColumnWidth:=3;6 _0 C. U6 n( A! x7 m
next;
. I* `6 Y! n* Y8 p8 s
. S- Q/ a) ^2 B" x6 I" @. n .Delivery.MUs.Forklift.speed:=2;
0 q8 u% H+ A8 c1 |. N WH_var.delete({1,Part_Nums+1}..{*,*});
" X j( T3 U3 a for i:=1 to Part_Nums loop$ A% } c- Z9 s9 `* l
WH_var[1,i]:=chr(64+i);
( t8 q$ @$ l6 X/ d4 l next;
* M8 W9 m! m$ A3 s0 M! d8 d0 h/ Nend;3 P) p8 T7 |: y, Z
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
% X' X) \9 n) V) X% }9 U
1 {4 G. S" n1 g& F |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|