|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。/ h, B, K' R4 |8 D: c- i
语句是这样的9 y2 Y' n0 R' W1 K
is3 S# y% I! x4 `2 `
i:integer;! ^5 A. w3 T( S" D1 v, D
Res:string;
# c6 M& U0 n7 z0 O" Z obj:object;+ A3 o+ K2 ^( M9 y. q( M+ C
do
! S& W' K' ]$ o/ ^& V& b2 I. m) D. x6 K4 `& S if existsObject("Status") then d' g V* [8 f2 ~* S D. \, q% h
Status.deleteObject;* C) O& }6 D' l+ U
end;
4 _( E j0 h. m+ Y for i:=1 to 10 loop
3 Z l; r; y; R) P Res:=sprint("Store_",i);+ |- F$ Q7 F4 |) ^! w0 Q. |
if existsObject(Res) then" |. q) z1 d5 x9 W
Obj:=str_to_obj(Res);9 ~. V# @ e+ k$ z
Obj.deleteObject;
' h; s, l' Z8 T7 H end;& }& _, f6 o3 p: j
next;, Y! [& E6 z0 Y p# B7 ^: x
--shengcheng Status:zimoxingceng
- v* p( a. Y8 Q) A1 E Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");. _5 r# |7 c! H* s( n% P
Obj.Label:="warehouse status";
/ e$ M' v4 G# d( { # E( _2 N* O. F
for i:=1 to WH_nums loop; ~' i. f3 l$ k7 K" A
Res:=sprint("Store_",i);
$ H& N. B) ^5 V Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);2 \0 J% X+ X. |5 s5 l
Obj.Label:=sprint("huojiaceng:",i);
+ V% J4 j% i7 S3 M" _, |# G/ H Obj.xDim:=WH_x;
/ U, U4 b3 p" Z( p( @/ U Obj.yDim:=WH_y;
, o; X* U4 u& H( a! y Res:=sprint("StoreData_",i);
5 V, A# @ E/ a
$ {3 D7 i* h- r9 X: k6 o Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);4 z" l4 R% z1 D4 z# _
Obj.Label:=sprint("huojiaceng:",i);/ G# v2 ]+ ^; K
Obj.inheritFormat:=false;" U) H! D8 N5 d+ v% j: Y" }
Obj.maxxDim:=WH_x;4 F" s6 v. f, h, z
Obj.maxyDim:=WH_y;9 ~* H/ q$ u# y. x, v
Obj.ColumnWidth:=3;
. u" o l+ z# k! f7 v! @9 f next;
6 w! m. n5 }9 Y( Q( ]1 @ 5 R+ A1 F8 p! K& ?+ R( s# C5 j
.Delivery.MUs.Forklift.speed:=2;9 E& ^& _: i- X5 l- y: l
WH_var.delete({1,Part_Nums+1}..{*,*});
/ o$ D6 k2 O( [. U4 o* B$ s U for i:=1 to Part_Nums loop
" `9 d; _9 }( k( h. W- ~ WH_var[1,i]:=chr(64+i);6 e) C, j* D6 e
next;
( m( q1 Z7 t; [" b2 Mend;: N" B% q+ \2 `5 E: M. ]
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 9 H0 a d. F" q
0 ^6 ~$ P8 L( R6 J! u |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|