|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
: v4 P$ i* G$ G3 @) W( V+ A语句是这样的/ a- B* G3 K4 @ a+ d
is
6 } E7 m8 V, D+ Y H* p i:integer;
; c& v# Z, d& p' g N) p* q, f) t Res:string;/ Z0 k. t$ V# B9 H! v
obj:object;0 \6 k+ r: C4 M0 `+ T. x
do& d5 }4 F/ N( b- m7 ^, H
if existsObject("Status") then
& x4 c5 [# \' k: H Status.deleteObject;) p, I4 s0 E. ~1 O% j
end;* z$ P( R4 G3 t
for i:=1 to 10 loop4 i. S9 C8 O3 ?
Res:=sprint("Store_",i);7 v a9 g/ n1 W9 P+ X3 X& ~
if existsObject(Res) then. {4 X9 j: v' t c8 ~
Obj:=str_to_obj(Res);
3 b$ f( u2 e$ F9 I) X8 n Obj.deleteObject;
# I0 K7 T) E' p/ J& t- S' r3 Q end;
, \; |0 J+ x8 Y# p- T8 I5 k5 ]$ x next;
! u) M' w: e# V6 w; ]9 X --shengcheng Status:zimoxingceng
7 C2 B7 a* N* O' k% v. @ Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");9 O) ^4 P6 N" L
Obj.Label:="warehouse status";
, I6 h! I# T5 \0 K- o
# ?8 @6 d" M+ _" [ for i:=1 to WH_nums loop
5 X9 c# k J% E7 F/ F Res:=sprint("Store_",i);
& n" e1 Y5 {) I, E7 N9 \ Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);2 K) f5 t# E0 f# }$ T4 g
Obj.Label:=sprint("huojiaceng:",i);
- `8 |. a' f5 | Obj.xDim:=WH_x;8 S! _% }" k2 ^ M; Y, ?) w( z
Obj.yDim:=WH_y;
5 k4 l5 R- s! [ b/ }% w& j1 p+ x Res:=sprint("StoreData_",i);
; _ }% C1 |, [( e$ W4 C+ t 7 ~6 q0 O! G" x3 M& @4 e, Y
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);! `, Y9 E. R% y" ?2 q, r7 i7 N1 I! @
Obj.Label:=sprint("huojiaceng:",i);3 h2 R) Z( A; g' W
Obj.inheritFormat:=false;, U% Z0 T0 j2 g, [" L
Obj.maxxDim:=WH_x;, P" S0 c5 X- w4 S/ G5 r- q% C
Obj.maxyDim:=WH_y;, t7 }5 L h2 k5 D O; [7 q. K9 H
Obj.ColumnWidth:=3;
: p! H& x/ x1 Q4 I* f2 T next;" f H, d# d( W: b& W9 h
0 E( y3 D+ F( t
.Delivery.MUs.Forklift.speed:=2;
( {/ L1 N& Q0 V WH_var.delete({1,Part_Nums+1}..{*,*});) J) R! g* Q; f, @6 ^2 q
for i:=1 to Part_Nums loop
5 q' d% W7 g* S( @6 G1 N: B( O! ]' g WH_var[1,i]:=chr(64+i);
# Z: B) F* m0 n @2 c) W8 ^ next;6 S; L: c# y* Y `! v. o
end;0 ?1 z2 L* R# ~& l- M# |
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 2 D+ A- e! l2 x) ^( F
) z9 k5 Q7 R5 I% |) `" i |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|