|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。$ r7 g, v& v, a1 Z9 B# U
语句是这样的
% O/ I+ W( v$ l$ u' S' N- Ris( R, Y! M" |. u" _9 ^% ]. A+ d! l+ w
i:integer;& J/ |' M' t, ?* R
Res:string;
: ^ p1 H P5 X- D obj:object;7 ~1 Y; `* }, z$ u4 z7 M
do
$ a! G6 A; v/ m0 p if existsObject("Status") then) E4 A, V7 G b% v Q1 m
Status.deleteObject;! A' r2 X+ m, V+ o6 P; Q; D; k
end;
! P5 z# V, R2 ]; R+ y( O3 l3 w for i:=1 to 10 loop
8 m1 b$ t) O, z% Y" z9 } Res:=sprint("Store_",i);
+ N. R% z/ I; V5 p! p if existsObject(Res) then9 |9 f7 H; U8 M' [
Obj:=str_to_obj(Res);3 a. s6 F L# X5 x; N* V0 M
Obj.deleteObject;4 O3 y& A) c2 U. b/ Y4 K4 r
end;% @; q( C! {3 B; C) C! p; ?
next;
L6 J) T9 k+ m% { t0 N --shengcheng Status:zimoxingceng
4 G" [( O% a* \ Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");+ l! T& M$ N. d/ E7 e
Obj.Label:="warehouse status";) k0 ~+ Z2 h+ R q
6 m0 [: S, ]) g% {, y for i:=1 to WH_nums loop
e, Q }1 s# w2 x/ O+ a7 ?6 |: K Res:=sprint("Store_",i);
" o, d4 y5 s) f Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);" a1 x9 A( ~' I- }* h& B
Obj.Label:=sprint("huojiaceng:",i);
2 ^1 ?" x$ U2 o Y" w1 z4 g Obj.xDim:=WH_x;
" k# N8 D& i; z6 b6 e1 d Obj.yDim:=WH_y;4 H6 a5 L6 B* O1 z6 L) R# H
Res:=sprint("StoreData_",i);( e/ D0 f9 c/ {$ i
$ i8 X6 e: v: T1 B" [
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);; }5 h0 K9 ]7 l4 v
Obj.Label:=sprint("huojiaceng:",i);: ?6 o, X0 a' H+ | t8 [* x# B
Obj.inheritFormat:=false;5 h' }, U6 _7 K/ H# o
Obj.maxxDim:=WH_x;5 {8 g0 n/ ] p$ [
Obj.maxyDim:=WH_y;4 J( f' F E' @; K) X0 G
Obj.ColumnWidth:=3;' Q" M: e: U( Z3 o2 z5 n$ Z
next;
) @- @ o& A3 d: ^; ?9 Q. Q
8 g( m$ f% A8 ^0 }3 W* R .Delivery.MUs.Forklift.speed:=2;
' T9 w/ m+ o8 K$ l F WH_var.delete({1,Part_Nums+1}..{*,*});
6 q+ j. {9 b; B( `3 b for i:=1 to Part_Nums loop. }) n: l+ }- t' g8 s, O% H
WH_var[1,i]:=chr(64+i);
9 F# }2 u* T# B( y% { next; Q2 j7 ^7 m9 q% T3 B
end;; ]; F! a! ^) x! j+ m
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
. h0 q% c' ^8 P/ j$ t6 n& a3 S1 S' V
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|