|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
% E2 K* q; F% ?7 a语句是这样的
h. V6 B: k9 M: Z0 I3 E) Fis
" I9 k) h+ T. K! w3 w. Y i:integer;. R e6 L# D9 d4 z+ {) b
Res:string;
& ?3 q4 Y* f2 @" j$ C( J obj:object;, E3 e. J/ b' y& D! _
do2 v7 [$ [" y3 h* R- s" a
if existsObject("Status") then. ~# M3 g2 k* p2 g3 L6 [" b
Status.deleteObject;. A/ S3 p, i8 B7 C- }& X
end;
0 L8 I8 R1 c9 y9 x. l for i:=1 to 10 loop
% t7 R% g e1 {& S2 x. M) |; F7 q Res:=sprint("Store_",i);
# l) P7 g7 s. _) [% r if existsObject(Res) then, I, q2 D# I' U1 Q
Obj:=str_to_obj(Res);& x/ A3 Z3 m* x& p! a
Obj.deleteObject;5 z K( E! s1 I/ N/ c
end;
8 w k* g- q' k0 z9 i next;0 f& @. \4 z( k ~: u7 ~
--shengcheng Status:zimoxingceng' e1 n0 s' z2 o& i0 I$ v" v2 |
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");' o4 \1 [3 h7 n5 v- H1 V5 }# N
Obj.Label:="warehouse status";+ }; U1 p- b* O( a$ P; _2 _
! L: L; O, M* O5 M
for i:=1 to WH_nums loop/ p( b, O6 d$ h% F) A2 T# S0 n
Res:=sprint("Store_",i);
" Y6 i$ c# L3 Z' v6 N7 T Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
2 Q) x0 H5 T) F! t# p! M9 [. a9 N# h Obj.Label:=sprint("huojiaceng:",i);
$ y8 e4 w9 f" h0 s; I4 x- X5 C3 Z& G { Obj.xDim:=WH_x;* o* \' r5 G6 {: O
Obj.yDim:=WH_y;
' m5 \- y! B$ \ Res:=sprint("StoreData_",i);
9 ]2 e5 H- z, E2 G, o# v5 P! L
: @7 L, }$ X' e) a. r; G& f3 G Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);6 s) \8 h, Z& B: I. f" X
Obj.Label:=sprint("huojiaceng:",i);) d: ]; n' m$ d
Obj.inheritFormat:=false;
; e# f4 j' |7 ]+ B. W7 } Obj.maxxDim:=WH_x;8 y0 f# \5 C) {# v% D. [2 V
Obj.maxyDim:=WH_y;0 ?- k4 _% W9 V4 l' K% J0 x- k' V4 L5 L
Obj.ColumnWidth:=3;
3 u" D. S$ M' K5 B1 {0 U2 T next;
. ~- x' N F0 m! u" g8 |+ D * j! \0 m% T5 m8 f" [' Y0 z
.Delivery.MUs.Forklift.speed:=2;
0 J7 ~0 e: j: }) Q, N& c8 X- s( ?- H WH_var.delete({1,Part_Nums+1}..{*,*});
( l9 F3 J: Y2 _ for i:=1 to Part_Nums loop
8 Z- m$ q6 d6 C3 c6 z WH_var[1,i]:=chr(64+i);
% v3 r# y, R# A: o% l next;' V$ e/ k& |* ] ~. F* E2 [
end;
8 e8 l/ o2 I6 N+ }7 Z- `0 H' _出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
9 e) J( {9 q1 {$ U8 H% [% `/ N) X) H k0 ]- Z9 ~1 ~
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|