|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。- d0 i" g$ ]' Q6 x2 C
语句是这样的
, p4 E9 `5 l* P: ^% f7 ~% `5 jis* D. G- j: x3 t4 }9 u: F
i:integer;) Q" M! E; F0 _
Res:string;" L2 N8 c0 m- X7 |
obj:object;4 d) @% x/ u2 ?& s$ `8 z( f# Y; W
do
4 ?+ c* Q1 e3 O x3 x0 ? B if existsObject("Status") then; r8 e7 W, H3 U8 A1 d& b& n$ D7 r
Status.deleteObject;
( K c' f) j9 y. z! ~. w' t& i end;2 e1 F J3 @& R* ~- S r: S8 U
for i:=1 to 10 loop
B" _( P$ Y# O v) R0 G Res:=sprint("Store_",i);6 H" R E) D- o2 i* S+ w
if existsObject(Res) then7 @, w) a, Y- R: ] s
Obj:=str_to_obj(Res);
9 ?: ?6 y M" G! j( f# Z# ?+ b- m. n Obj.deleteObject;
' G0 U' D1 N+ b5 t end;% l; O j1 w! y1 V* A0 Q- x
next;" V" _% B% F( |2 p: ^ O
--shengcheng Status:zimoxingceng
u1 u. e% H6 M$ @/ M( _+ Q5 c Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");# [- F$ v- s, L/ t
Obj.Label:="warehouse status";
/ S' t; F, Z* u6 D7 V s& C6 z$ u$ E5 u
for i:=1 to WH_nums loop' d( w, f% y6 A2 e+ _% [
Res:=sprint("Store_",i);) L" h' V" g( x
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);/ b, r g0 E9 q. a) G5 T' D' I, J
Obj.Label:=sprint("huojiaceng:",i);
0 f8 {/ E: L/ U) ^ Obj.xDim:=WH_x;! @- Z% ~6 W0 |' q+ Q
Obj.yDim:=WH_y;
b& `+ O5 ^' }6 |8 A5 g% i Res:=sprint("StoreData_",i);. q; ?7 o4 G$ h" g G5 n6 l0 w
4 e+ A9 t$ N* P# C
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);; m) f/ z, i$ y& j, q
Obj.Label:=sprint("huojiaceng:",i);# |" @6 Y$ M% A# H9 F8 L8 D
Obj.inheritFormat:=false;0 ^( l1 d8 J2 e& D% ?( Q
Obj.maxxDim:=WH_x;
4 @; Z$ [9 G6 E, r0 ` w7 x' i Obj.maxyDim:=WH_y;, P) n! W! |" y( V& f0 b& D4 C! q
Obj.ColumnWidth:=3;4 m" G2 a2 G3 \* H8 A. @7 {
next;
" E, `" |- C2 l8 S6 ^ ) \3 ?0 W6 G- Y- Q/ _8 u
.Delivery.MUs.Forklift.speed:=2;
9 i' t: s( {( a% i WH_var.delete({1,Part_Nums+1}..{*,*});
0 }; f6 C" Y0 `- M for i:=1 to Part_Nums loop
5 q" _% ~0 F% [ WH_var[1,i]:=chr(64+i);. O' U5 J, h( r1 ^ x- C
next;
# K. `: x {$ N, c8 ]end;
& D1 u- J: ~8 m出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
) C8 C! b$ ?. d/ k/ s5 D) N& _8 J' S% G- M5 z! N4 R, H' u
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|