|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
' L/ t `! D3 I! }- {. J v语句是这样的
& _. p" g' d! x/ f7 N6 Y+ f6 Y6 qis
" d- {; C; B' i7 @ i:integer;
# k2 b6 C" q1 v# X2 Q0 U- a Res:string;
$ Y b2 Z8 ]; y& j+ \* f: o obj:object;
, _" G/ U! v- Udo- Y: q, u/ q2 v I/ ^1 T3 N
if existsObject("Status") then4 f' N/ K% S: o/ p
Status.deleteObject;
5 h" ^7 N0 a: Q- F end;7 |+ A7 C: `5 ^7 G
for i:=1 to 10 loop- f1 U0 }0 [0 t V( M2 r- r& U5 u
Res:=sprint("Store_",i);* \& t. d. q3 ^) R. p
if existsObject(Res) then5 u5 g5 U5 d' q2 M i0 [% ]
Obj:=str_to_obj(Res);
+ N5 P. y h) Y% k+ a7 Q" Y Obj.deleteObject;% u/ j! k) ~! F
end;0 E% b. K0 R8 j& U Z
next;
' m4 ^. I+ R6 i+ V7 z7 Z6 f --shengcheng Status:zimoxingceng
1 @2 n5 _4 ^5 H, r9 w/ w0 d Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
$ {0 S0 L [, l( J# }2 r0 Z Obj.Label:="warehouse status";, j4 U$ d w# ~9 ?
+ Y! p7 s6 A7 g; f5 Z- x0 ?. l+ N0 ]
for i:=1 to WH_nums loop
* Q, b+ L+ Y0 G Res:=sprint("Store_",i);0 r1 J& K& K" f* G Y
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);' X0 I* \8 k. F5 ^0 K. g2 L, ~. Z# Q
Obj.Label:=sprint("huojiaceng:",i);
: j2 Z( s) Z& J4 f0 g Obj.xDim:=WH_x;
6 _% S# T2 p3 @; Y% R Z Obj.yDim:=WH_y;$ D# Q% _# Z" R& t' X7 W
Res:=sprint("StoreData_",i);3 c) q( U: y. \% b
6 ]5 o% ?' q8 x: A
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
' L- F }6 {0 Y: M( \ Obj.Label:=sprint("huojiaceng:",i);
# G. U: U: }, z+ o6 v Obj.inheritFormat:=false;" c l1 s+ \, q3 G2 V3 \
Obj.maxxDim:=WH_x;! a1 t. @2 e; B' {: W# E2 v3 I
Obj.maxyDim:=WH_y;
* y. c) Z3 l, Z* i9 K Obj.ColumnWidth:=3;5 g% T0 E. T2 v- [; |9 q' }* @
next;
8 W- E: x8 e/ x6 k0 Q $ n, \! h* h. K
.Delivery.MUs.Forklift.speed:=2;' p* q+ _- O, G5 Q$ t
WH_var.delete({1,Part_Nums+1}..{*,*});
' p+ [) o* U* ?* O6 I for i:=1 to Part_Nums loop2 v) t- Y; ` F, m) F. h. z5 `
WH_var[1,i]:=chr(64+i);6 |# X- ?" w7 N( V
next;( x* ]6 C" T/ Y t8 g
end;0 J+ h7 Q% ^% [. i4 A% o! s* V0 [8 u
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
7 m. a+ g$ f( |% u+ z8 C% g- N
( Y9 p2 f; x9 P g& T |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|