|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
( Y4 S5 a$ u; }" G8 M8 E语句是这样的7 r0 K+ R3 B' b% W: ]
is) H, k7 A! S* [, B0 Z M3 C! L
i:integer;( q) r' T2 X+ t0 d3 l. E% \
Res:string;
# d# H9 G2 l. \3 M obj:object;4 H/ o6 D5 i U
do
' o: I/ M7 |& ]7 s% e if existsObject("Status") then$ f) n- y' `/ P" b) }
Status.deleteObject;
$ m: `0 l* I3 L% m. x! N( Y end;
4 v/ T9 F4 G; i! e4 ~& [ for i:=1 to 10 loop* P- |7 f, D9 C% p) h
Res:=sprint("Store_",i);
9 z8 l6 k2 }4 `8 ~+ T% n if existsObject(Res) then
% p* c U: \% r0 [ Obj:=str_to_obj(Res);5 o0 A4 ^/ L0 y) u9 s7 T* G
Obj.deleteObject;6 A8 _9 j3 n4 J! l7 e
end;: b/ S7 f3 T1 V" g+ W
next;# J2 I& F1 b S7 C5 L- V o+ U
--shengcheng Status:zimoxingceng4 H ~; @; C% _; u
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");) ]) l0 D1 s6 u" ?% }7 J7 r- S; R
Obj.Label:="warehouse status";1 u H4 Q1 N$ P0 {
4 N! ?7 C, {% B# }' A5 Z for i:=1 to WH_nums loop0 f) H8 W" p" g" B
Res:=sprint("Store_",i);2 t/ x1 j, `( R0 y
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
& Z5 c+ `8 p! K) [% C# [" t! } Obj.Label:=sprint("huojiaceng:",i);
& I/ }$ m: j. z Obj.xDim:=WH_x;
- F7 o! G5 X* [" J; T Obj.yDim:=WH_y;
% ?+ W _, R! O' O Res:=sprint("StoreData_",i);; i$ o& `7 l9 E+ n) ?8 R9 D: T
( W. ]3 w( u$ m Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);5 o8 ]7 J2 u5 E/ [1 ~' a
Obj.Label:=sprint("huojiaceng:",i);
; V, M, m- v) C Obj.inheritFormat:=false;
5 h O+ G! C+ p4 s3 {& e Obj.maxxDim:=WH_x;' D4 d" D: _' X; u
Obj.maxyDim:=WH_y;0 ?3 Z- _% N/ g' `/ d
Obj.ColumnWidth:=3;
E" Q( x% ]' H; N" { next;
N9 i& O! T6 S! u
! k& d0 w, @- `1 j; }8 M .Delivery.MUs.Forklift.speed:=2;2 O5 R- d3 J0 O3 f; W
WH_var.delete({1,Part_Nums+1}..{*,*});! ^9 n8 O5 }" C6 [
for i:=1 to Part_Nums loop4 c* G1 a2 w0 `& t# }# _; n$ [/ u" ]. ]
WH_var[1,i]:=chr(64+i);
: d$ n6 D7 p! b+ D: j5 t next;
7 v( }# U0 t! Dend;# s; v# A% j8 ]" q2 W0 W& {
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
5 K0 k( g+ n9 U' B! _' k% C. I/ t( w3 ^8 O3 O& \# u
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|