|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。 O" l9 N" V4 l: D9 L
语句是这样的5 R9 f* W) f" N6 z# M( p" c! S7 g: M
is) }+ u5 [/ r- V
i:integer;; U0 G% U' E8 T1 U) A- c
Res:string;- V W1 q( c0 W9 V3 U# b
obj:object;
% L8 a0 r7 U1 D1 O( u }8 ]' Zdo
' h+ ^) ^/ @0 Z if existsObject("Status") then
5 ^; L b! L4 x" k4 s Status.deleteObject;; U. @4 u9 |( T. Y
end;
7 p6 U1 H# X8 @1 H1 ]5 g for i:=1 to 10 loop
' F6 R. r& d( y) Y% u Res:=sprint("Store_",i);
4 E, z! F6 }0 z( l5 _ if existsObject(Res) then
, T* M5 \! Y3 y# ~; G+ l- c: u Obj:=str_to_obj(Res);
8 J! a: [( f2 Q4 ^ Obj.deleteObject;7 k) c: q3 c/ E, e2 D
end;3 }0 E. H; C p& q
next;
% c- ^ V3 u* A9 ] --shengcheng Status:zimoxingceng
b; ?- g1 f/ I6 r Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
; O/ f( E4 }% e- [6 {! W+ t/ @* O Obj.Label:="warehouse status";
2 b5 U; N/ j a9 D+ ]% F
% O5 n* O- l8 O# D. l for i:=1 to WH_nums loop8 @; O2 m) S# ?. \+ \
Res:=sprint("Store_",i);
: C9 P& }7 j" H: v6 d$ h6 R Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);4 k$ L! L! Z }6 L$ [" Y
Obj.Label:=sprint("huojiaceng:",i);, U( x# }& L- G( [; L& @
Obj.xDim:=WH_x;0 `5 T3 [, m9 e" Q, V
Obj.yDim:=WH_y;
. |" g3 Y: b7 h/ u3 S- N Res:=sprint("StoreData_",i);
5 f6 ~$ r7 k( S# ]
4 K+ L4 Q0 x$ j. u* b: N- `5 N/ V8 I Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
" N: O. B2 w8 E q) h8 E ~ Obj.Label:=sprint("huojiaceng:",i);
5 v5 d" x4 s' o8 x! d; d Obj.inheritFormat:=false;- q) x0 E1 \) J. T
Obj.maxxDim:=WH_x;- y; p, U6 J/ Z) S4 }
Obj.maxyDim:=WH_y;
a j8 ~9 [9 [, q( k0 E, [6 Z. w _ Obj.ColumnWidth:=3;2 q6 k8 `5 w4 u' F$ t' t* G1 i
next;
8 w9 L( P' e% u& F0 C
5 V) I( e) @' {& d+ d .Delivery.MUs.Forklift.speed:=2;
* u+ k9 |' n; P9 L2 M WH_var.delete({1,Part_Nums+1}..{*,*});
: t6 X1 |2 C+ e4 f% Y0 U for i:=1 to Part_Nums loop) K1 H& _2 U, ^2 z4 ?$ N
WH_var[1,i]:=chr(64+i);' Y- n& f2 a6 K* I/ Z }
next;: {5 V3 A) l9 g& o
end;; i! m# t9 c8 a+ M
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
5 I4 w+ a! {0 u6 x- r, D8 L, o
8 a& u1 F' d6 X1 v9 q4 d |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|