|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。1 x* K+ k4 ^$ m) q4 ^
语句是这样的0 i- J6 H4 q2 s$ `& n8 w
is6 x+ ~! q# Q$ I/ r
i:integer;
7 T2 Y% J( B* U3 `# C" K' R: Z Res:string;
/ ?( S! I, m. q- l3 P8 D obj:object;
% e7 J% G& l# U8 l4 ?. @' s' wdo/ m( f$ w+ u0 @/ w
if existsObject("Status") then9 P! ^- `7 _* L
Status.deleteObject;# T$ m% m. X: O, ?0 m
end;
' B9 U4 ?" L& @# e5 Z9 V* ~% v$ ~ for i:=1 to 10 loop: `. I+ l, }! O0 _ i+ x- f
Res:=sprint("Store_",i);
. v+ O, }9 Q; d! H- u) \ if existsObject(Res) then
& l6 N' l k+ z Obj:=str_to_obj(Res);* p, X3 _& P5 A( N* l" x
Obj.deleteObject;- F" \$ F% r4 C; S# Z3 t; j U0 ~
end;, ]$ i5 O5 [4 Y1 K9 ]# X
next;0 e. O7 E9 ~, r' B k U# I% V
--shengcheng Status:zimoxingceng( y' J9 q& w! C- v f
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
7 X+ e0 v% Z7 n4 f# u ?3 s! g Obj.Label:="warehouse status"; L( L4 n: D$ ~8 R
4 |8 y ~! Z6 x) y
for i:=1 to WH_nums loop
. a/ d: I6 [2 m Res:=sprint("Store_",i);
# J8 g x1 v% k' b2 P# c! ` Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
8 z+ @; y0 i9 N8 G/ v7 F Obj.Label:=sprint("huojiaceng:",i);; m9 ^7 l) u7 A7 Q2 z( @
Obj.xDim:=WH_x;( Z& w$ w! F A6 v, Y
Obj.yDim:=WH_y;+ `( u6 o2 \7 t7 S, b- j w/ W7 @
Res:=sprint("StoreData_",i);! E. l* L7 c# M, L. _3 [4 N0 ^
+ X" r" O& b8 A Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);# T$ r: Q1 `& d; d2 O# L3 M
Obj.Label:=sprint("huojiaceng:",i);
' j3 V% ^& P2 ^ Obj.inheritFormat:=false;
7 s7 E! K- _' T8 ] Obj.maxxDim:=WH_x;
% q) Y# I/ N, y Obj.maxyDim:=WH_y;
: T, D8 Q" e! e, Z/ t, M Obj.ColumnWidth:=3;2 { E8 r5 M7 X" a6 G9 `' P
next;" t, m* S& n* N# b9 Z
6 R j* O4 z) ?1 ^% ^ .Delivery.MUs.Forklift.speed:=2;! \7 G3 e8 p4 g! y' H
WH_var.delete({1,Part_Nums+1}..{*,*});6 B; ?, }$ Z" [$ c* a& f
for i:=1 to Part_Nums loop
. v: M8 ]: f$ {8 x* l$ U. ~ WH_var[1,i]:=chr(64+i);
# H; t( S3 b C1 P8 e: P" W next;" \6 A. z* m D' _
end;
- @6 b& S! Z& B' L4 c出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
( w/ u1 ^0 Y6 g f/ g: b, R$ q8 r( }( b: f. J7 c
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|