|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。3 P% u" W1 P9 C- @" q
语句是这样的! p! f* s$ n/ S. }
is3 X8 Y5 U) C( I; d% `; |& Q/ J
i:integer;3 Z' n7 r$ H' r/ {9 J
Res:string;
0 p$ ?9 M& X4 w& \* M' E# _5 Z obj:object;
- E! r6 }2 e# U w( i! Ydo$ K0 P" V# P; t* M* Z" @9 ^7 w0 M9 O
if existsObject("Status") then
! v3 I+ T8 D& b) a) [/ U) ` Status.deleteObject;, P! H' J4 U$ }0 w
end;
" o6 `9 t# e9 U* `1 t for i:=1 to 10 loop
" h+ _. p. K, r8 J Res:=sprint("Store_",i);; N' x+ @) a, [8 C! i: ]; A
if existsObject(Res) then
5 T: k, J- u& e( w9 M Obj:=str_to_obj(Res);% z* C& m- p! H9 B8 q+ Y0 k0 q9 x+ q8 f% k
Obj.deleteObject;9 \5 F1 m+ s# E0 ?" F% v/ p
end;
/ W0 q1 M) {- r3 P, @ next;0 `; i9 s- I8 P/ T
--shengcheng Status:zimoxingceng
7 D; P. P6 N2 R B% [/ g Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");; K+ H) `/ v. o l* v3 n' m+ P
Obj.Label:="warehouse status";
9 j9 M7 `4 E. _ t1 M0 } D( n! |; U( c) ^1 H4 P2 }
for i:=1 to WH_nums loop1 J6 b9 _4 z# U! {. l- s4 ~
Res:=sprint("Store_",i);
% p( F3 b, O3 `7 \# B; p Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res); }8 D- ]5 C# N; N7 s
Obj.Label:=sprint("huojiaceng:",i);% }: `. a i# C7 Q
Obj.xDim:=WH_x;! i) q0 Q: `% p o0 J
Obj.yDim:=WH_y;
& w7 `- C. D3 [$ A1 e Res:=sprint("StoreData_",i);
" z* Y4 O8 [: l( B- U' z" ]
9 O5 B! d9 G+ l$ o Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);. U, H7 S$ W' `
Obj.Label:=sprint("huojiaceng:",i);; G* w) V& E: f
Obj.inheritFormat:=false; b) G" e" d$ E Z/ H! @
Obj.maxxDim:=WH_x;
3 h! [8 x" `# B' u& e Obj.maxyDim:=WH_y;
! c! }4 I0 x2 R1 L; t Obj.ColumnWidth:=3;. T- y: W" Q l
next;
- _; t% F% p) a6 ]6 @; Z
* D1 k' o8 A. T. A% c: S) B1 n# S .Delivery.MUs.Forklift.speed:=2;5 f4 q2 U: e4 ?6 m
WH_var.delete({1,Part_Nums+1}..{*,*});
) j! W' q, x( _1 f5 ] for i:=1 to Part_Nums loop
. R( @7 S# k$ X8 Z, J7 k4 n1 Y WH_var[1,i]:=chr(64+i);
7 W2 P3 {" B( Y4 J next;
/ O5 Q3 F" X" \7 h0 }& [5 ~end;& E ^. P7 j1 m9 o" Y4 f8 A- W
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 6 V9 y/ @% t# L7 J
+ b2 M4 b+ _0 h5 I% } |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|