|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
( E) ]7 @2 c- t q3 a. b s语句是这样的5 D, [" W0 m1 \0 i2 |- x w! m7 |
is% P3 h( ?. P) o/ P/ f1 Z* f+ R
i:integer;
9 \) T5 K1 U5 J0 g* Z* B8 | Res:string;$ u- _; f9 Y# c* c4 ]
obj:object;" _- @/ Y* H; [+ z" ^; f
do
3 I( G- x, S4 U9 t! A' w if existsObject("Status") then
! [$ G. @7 N; ?- ~- q' s Status.deleteObject;
# F. k9 z! q/ P end;4 |% K8 g2 i6 n t# \% k& r! n
for i:=1 to 10 loop9 [. M. o1 d c9 c+ P- r
Res:=sprint("Store_",i);9 R- M& W9 L5 r; \* I
if existsObject(Res) then5 m! M5 f% W4 I( Y6 T) P
Obj:=str_to_obj(Res);
, t, j# I3 o- G% M/ L Obj.deleteObject;$ x L8 O/ R% I9 f% a) R
end;. z/ H% n; z- ?: G$ g3 p0 c
next;
# i L# O8 R# g; r( }- [ --shengcheng Status:zimoxingceng* g6 I# T4 J7 _8 I( U
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
" H& j/ Z% e3 W: f- b" X Obj.Label:="warehouse status";7 r" J6 z# [& ^
. G* l H& w9 F( b j
for i:=1 to WH_nums loop
- A. W) B: Q9 r1 Z6 p' D% T Res:=sprint("Store_",i);+ l9 z) V6 [8 l, L4 |
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);% t6 |' R4 `, f) ]5 A# M( ~
Obj.Label:=sprint("huojiaceng:",i);3 u7 H/ d/ t6 e
Obj.xDim:=WH_x;
/ }: E" J* r( w3 u' g. P7 q Obj.yDim:=WH_y;
# m% h3 |1 h/ v Res:=sprint("StoreData_",i);+ ~& k. h5 G; L" h) d
" i* R2 j* g. R. o$ ^ Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
3 H2 w) k9 _9 k* D7 a) a0 U Obj.Label:=sprint("huojiaceng:",i);
! i; K1 I* x% y$ s& |# U Obj.inheritFormat:=false;. o i; t, y8 [3 C2 ~, @! X7 J
Obj.maxxDim:=WH_x;
* A6 C p3 x6 e, O Obj.maxyDim:=WH_y;
" m9 S: H1 j4 O Obj.ColumnWidth:=3;+ m8 s8 u1 g& x
next;3 T6 G. p. U g0 K& d4 e) G
, ?( s$ }- h' _( C/ @5 D .Delivery.MUs.Forklift.speed:=2;
- q: l4 u- B! _3 ]* \ WH_var.delete({1,Part_Nums+1}..{*,*});
% p; m4 L/ E# ?. }, @ for i:=1 to Part_Nums loop
- V, e& X, `" c) P WH_var[1,i]:=chr(64+i);
2 u9 Z9 U/ s2 o6 a p, w next;, K2 |/ w! z3 a2 b2 A
end;
# c5 |7 _; t$ W z; I4 ]" n' i出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
8 I; R( Z/ ~- V$ P* b1 ~
( Y& ]6 k2 E. ~6 k1 W |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|