|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。8 J0 z: L1 P3 w- c
语句是这样的. G* u2 R1 F4 M+ u; V1 H& b
is m3 v0 C% o* o+ e) s1 o$ j
i:integer;
2 |) o E3 }" a; {. X$ P Res:string;( ?6 ?3 G6 X; f) a/ a
obj:object;) z& ?+ @% H1 G, t J& t& w4 T: x
do; W" A0 M! A: Q. ^8 c T, v: w
if existsObject("Status") then
5 _+ y) M! {1 ~* J$ d/ P Status.deleteObject;& z: j' p7 H. ~ n
end;
# Z3 c8 k1 F! _% W for i:=1 to 10 loop; S) D/ ] b' O6 c' O, w
Res:=sprint("Store_",i);1 M4 d) L& {3 ^
if existsObject(Res) then* B% T' ^$ ~4 p) P- A
Obj:=str_to_obj(Res);9 S, f ]) H$ i' E# V
Obj.deleteObject;
' v3 f% o* Y2 H' [' u v* V end;- n8 G: G, I$ p- b& N" R+ ^
next;* {& }5 ~) J0 A) y- t
--shengcheng Status:zimoxingceng6 D% y, A$ V1 N
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");6 M0 V K& }% L$ H! V
Obj.Label:="warehouse status";
, R- T2 G6 A) [, C, i s+ x# p; \' }. e8 H, ]
for i:=1 to WH_nums loop9 H$ }; i: W2 i/ ~1 k. i
Res:=sprint("Store_",i);8 h! k) @" x: T6 [$ R3 L1 Y
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);7 l: D* p' N/ @
Obj.Label:=sprint("huojiaceng:",i);
" }$ o, h5 V/ ?4 D Obj.xDim:=WH_x;0 w+ _. p" Y2 L" k- g0 c3 h& S
Obj.yDim:=WH_y;
8 h9 @1 c. ?( G) r/ x Res:=sprint("StoreData_",i);' Z# l1 ]9 w& b* P
8 ~ c8 A, c9 d3 `7 o- x# ?; H0 p6 Y Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);+ U) q7 X) B$ |8 Z! S! u
Obj.Label:=sprint("huojiaceng:",i);* R. k# P2 s E) k
Obj.inheritFormat:=false;
5 [1 f+ D7 n& J) q Obj.maxxDim:=WH_x;
+ }# ^6 n) s; g7 T% k Obj.maxyDim:=WH_y;" c( I' x7 }* `. Q, F8 }9 V. Y
Obj.ColumnWidth:=3;
u/ P' Q+ ?8 l6 ] next;
7 x* ^: n4 p$ m ( j0 r. M# [/ D0 I }- z; g- c0 g
.Delivery.MUs.Forklift.speed:=2;
9 h7 D7 w1 Q& M) _, s+ Q WH_var.delete({1,Part_Nums+1}..{*,*});
! |9 F* V/ ~. V* u" N' E for i:=1 to Part_Nums loop
6 g/ s9 |. H' D9 T/ l WH_var[1,i]:=chr(64+i);
* v7 I+ Q, j! v next;7 b8 }* F E* g" R1 r/ ]8 K4 j6 D
end;4 z1 ~5 c# n' f' J1 M6 @) d2 A. q b
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ) O2 X" n& j+ F1 }; d
6 k" L9 }( P# g. x/ k
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|