|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
6 _+ w* I. x7 ]6 z6 U语句是这样的
6 B6 ?$ B2 I' Yis
6 I S: ~+ i$ S2 ~4 m( w) n4 B i:integer;0 l3 \& q9 G( @2 V" f5 U1 N
Res:string;
0 v' u4 {4 S4 a0 F) K obj:object;5 z$ J2 I6 D# _
do
! q/ b- c3 {# V if existsObject("Status") then
2 f+ v# a8 [& l( n Status.deleteObject;
( d& T- H9 I; F9 E end;
" \+ Q' V3 ?1 i) e4 e$ }& G for i:=1 to 10 loop
; O8 |) t) i( E) N$ J Res:=sprint("Store_",i);' c; x8 F1 K% j1 W, `8 G
if existsObject(Res) then
) T* c! `) \9 @1 d J; L Obj:=str_to_obj(Res);$ H* P( F, p; j2 v, R/ T+ T5 \: y
Obj.deleteObject;
3 N8 M6 l4 q# v end;
9 m3 S0 U1 f5 ?5 n( i next;
& M" M. d! |; R$ B J --shengcheng Status:zimoxingceng
2 T2 h: C! b, j- i! a( r+ } Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
1 B* G W( c6 B: D5 ]/ [' W* S Obj.Label:="warehouse status";3 a* G; G& t+ m: B. i: o
, @7 G. F& B: i" j7 a for i:=1 to WH_nums loop
. n; L" S! m, s& |( X* i' q( T! Z Res:=sprint("Store_",i);7 _3 b3 h" H, ^
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
- j8 j$ k& G. v# {- a2 \ Obj.Label:=sprint("huojiaceng:",i);8 f/ k9 C* C: s* r* _
Obj.xDim:=WH_x;
, y. V; F: P s6 G s Obj.yDim:=WH_y;* b L/ o4 K, h& g
Res:=sprint("StoreData_",i);
& x1 f1 |- n- ? J2 D% o + u# K1 T' e2 V
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
! u$ o5 [7 {/ X- d8 d8 B3 E# q Obj.Label:=sprint("huojiaceng:",i); K' k6 {; U1 q) ?9 v
Obj.inheritFormat:=false;
0 p" Q+ a7 k% A3 x4 Y5 h Obj.maxxDim:=WH_x;
3 H2 ^6 A5 D! z2 Q+ R/ t0 o- Z" t( b Obj.maxyDim:=WH_y;
: O, [+ c) }( y0 ~9 t0 m Obj.ColumnWidth:=3;
% S" Y% V7 ^$ x next;
! o3 X* T) o# S) I4 O
% }( y% q& [8 c; T. N3 B; F .Delivery.MUs.Forklift.speed:=2;
4 o+ A4 j: Q. ?. i( o/ X WH_var.delete({1,Part_Nums+1}..{*,*});7 M2 Z8 i% r0 V0 I$ Y8 M$ s
for i:=1 to Part_Nums loop, M5 k% Q+ f) y9 j
WH_var[1,i]:=chr(64+i);
7 r5 Z4 M6 p5 R. t; G; ?1 F next;! Q) c! j+ o K7 }. o9 ~( z
end;% F, [# A9 G" I5 K6 ^8 _9 a
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
d6 ^4 h, V6 `, p
. K y9 N& d% g |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|