|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。8 n$ X2 W7 {0 k; l1 M0 C
语句是这样的4 e1 k1 j# V; X& P0 I
is
# ]& B" j* A! @8 a* q8 @ i:integer;
. Y4 m3 K% B4 y0 O& ?9 X Res:string;; v% v: H1 R* _7 ]. Y; S" g6 y
obj:object;
, I" i$ U# `/ M8 Q% \4 h: Odo% b8 p" _; p0 x7 O
if existsObject("Status") then
8 Y) f" y4 N5 e" N5 X Status.deleteObject;
# ?2 ]6 s- i% o% I end;/ {/ c! i( @6 r
for i:=1 to 10 loop
. m; |# y* u$ ^ Res:=sprint("Store_",i);& ]7 P8 b8 ~; T; w. p2 e( }" K
if existsObject(Res) then
0 t$ I) q# n/ Y; j/ F- Q5 V# f Obj:=str_to_obj(Res);' C0 N8 L# i% E7 N) A6 {
Obj.deleteObject;
) Q4 @# p0 N8 ` end;+ F3 y' q4 y# [
next;. R0 ~' d1 U7 C0 _
--shengcheng Status:zimoxingceng& f- U6 w1 F. N* s
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
: c3 r( J) D- Y/ \ @) h Obj.Label:="warehouse status";( P# V" T0 S1 L' [# E1 e! `5 M
+ z. b8 N; Q( V$ ]3 N; `* C/ k( e
for i:=1 to WH_nums loop: y3 j. ` s: w1 _1 z
Res:=sprint("Store_",i);
& M1 ~' C2 Y2 i( H& X* L Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);% W- ~( S) g& v8 V
Obj.Label:=sprint("huojiaceng:",i);
) i, d* x+ H& i Obj.xDim:=WH_x;
7 J w* T4 ^# M# s- k9 G7 T Obj.yDim:=WH_y;' N( q0 q" t/ R f/ g7 ~" F
Res:=sprint("StoreData_",i); d" M, }3 a7 u- `5 S5 L8 r( H
: u* e9 B: a4 e% \( h% B% @( p Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);$ |3 B* D4 R8 ~# E2 F9 J' \
Obj.Label:=sprint("huojiaceng:",i);' S/ ^' a+ G" {( d& i7 q+ x/ }
Obj.inheritFormat:=false;
3 w+ z0 x" |, R% f: f Obj.maxxDim:=WH_x;% v( ~4 y" z! C5 A. ]) }" R, Z
Obj.maxyDim:=WH_y;# J( @ P) I$ y! h
Obj.ColumnWidth:=3;
0 j( g! `% g% q2 |+ a. f% R: O next;3 n: L& N, ~! \% M) U
! s# _( C9 b1 R, i* Y- s+ w
.Delivery.MUs.Forklift.speed:=2;2 J3 J" \" B( p3 e
WH_var.delete({1,Part_Nums+1}..{*,*});) f/ f+ o0 b& |; h! I" n
for i:=1 to Part_Nums loop {% m$ }* B0 q0 K @; e
WH_var[1,i]:=chr(64+i);/ p A6 U0 c, i: q8 R7 e1 f
next;( H- P2 D9 b/ |) b
end;
# m: Q# ?% w" Y" K- R ~出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
. x. O. X0 @2 Z7 k* Q0 s9 v$ W( `& n% Q, [: \: d/ T4 r: Q
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|