|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。7 u1 h9 z# I5 j/ F! s
语句是这样的1 w/ Z! i+ Q' ~. _2 ?9 W3 n
is# H& S- c' p4 J2 w0 J+ c1 E& p6 i% l
i:integer;% J3 _2 t j' Y! n. C0 w( I
Res:string;
5 j" Y& t, F' `6 U obj:object;
) a* V' b" K" r& ^; Qdo B/ P8 F/ S7 Q
if existsObject("Status") then" M+ D; f3 C1 w, w/ Z; Q3 B- I
Status.deleteObject;1 [1 n+ H6 z; E4 G" N
end;
& |& J' ~1 c6 `- W6 J7 C: | for i:=1 to 10 loop
# \1 f) b7 t4 F Res:=sprint("Store_",i);" ]% ^, M" R' g; T8 e$ v6 R
if existsObject(Res) then
8 P7 s3 O3 S# A0 F$ k. V Obj:=str_to_obj(Res);; L8 X; A3 M7 {- M, \' D
Obj.deleteObject;
: P5 h$ U1 ~9 Z: n4 O end; p8 B/ A V9 v6 F
next;/ J. i" y: E, k$ Y
--shengcheng Status:zimoxingceng
* x' f* E2 T5 v$ t. f Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
8 D y U) R+ h* T g8 p Obj.Label:="warehouse status";
. q6 r# q. _- ]) c. z " E# `# @9 j2 s& U8 X
for i:=1 to WH_nums loop0 a. u) V6 e$ s6 r+ C0 m
Res:=sprint("Store_",i);
5 A2 m' r( b" O6 X Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);3 ~% B _+ F; l6 I1 L9 K6 J
Obj.Label:=sprint("huojiaceng:",i);
/ P- F0 Q# c- a5 ?& P Obj.xDim:=WH_x;
4 Q3 O; K0 k7 X! @ Obj.yDim:=WH_y;
% w! F$ T9 D1 |" R! E/ Q Res:=sprint("StoreData_",i);( V; G3 _2 s- |0 ~* p# c/ @; g
+ C6 s( i3 G( t
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
( [/ E9 F) n( }+ Z7 e! D Obj.Label:=sprint("huojiaceng:",i);
! I) w; ?$ Z% C0 n0 T% V Obj.inheritFormat:=false;
% L# Q4 Q M' d) ]6 y% a Obj.maxxDim:=WH_x;
2 w8 `1 y. B# n6 o! @% U5 p+ g8 o Obj.maxyDim:=WH_y;
7 Z1 o3 @( z3 W( h9 a- \ Obj.ColumnWidth:=3;$ B+ T* W5 c+ q7 J2 ~
next;9 Z8 q. m1 o( D7 E" @
. r" t) }- l' r0 V/ T
.Delivery.MUs.Forklift.speed:=2;
8 }. V' e6 Y. Z4 ?4 T( D- @ WH_var.delete({1,Part_Nums+1}..{*,*});
' A4 I' c8 n+ b9 p8 D! ^- B. L$ R for i:=1 to Part_Nums loop
. J8 G) N& M0 }( d8 G WH_var[1,i]:=chr(64+i);
) d7 L, d. p6 } D next;1 d+ M( _( Z1 I2 K- H" Q, P) K
end;; _2 H) c" y- e* b
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
% [6 y+ e/ L$ [; F6 m& I+ T
) n% }! g1 J5 X( u& s* v% `) b |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|