|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
8 ]! ~" B9 L' B' b语句是这样的
% q/ y% K2 a: X4 ris9 T$ y4 W% S3 O$ A
i:integer;- }$ B- F) [; q' O
Res:string;' m. P1 [5 V# S# ^1 x2 b) M% Q8 i
obj:object;
2 D F, ~" P& U5 m( w7 ^do
4 ]% G' D/ J W if existsObject("Status") then* }& e4 F2 W3 p7 a
Status.deleteObject;2 d" y& E; I8 M. q O I
end;
7 B/ o* u( i( t% w2 V3 a for i:=1 to 10 loop
) f$ C# L1 x$ c$ b: X# M5 R Res:=sprint("Store_",i);- p. n! P D- e' K& k1 R0 s9 |
if existsObject(Res) then/ m1 L; S% M( e
Obj:=str_to_obj(Res);4 @3 @ d5 b1 {' k1 y
Obj.deleteObject;0 [2 T5 X' S) \$ S5 j- a
end;
- e& h, b1 M+ ?% O! \ next;6 G v& r. Y/ j% G2 I1 n4 N0 t9 V; ^
--shengcheng Status:zimoxingceng1 @; p5 ^1 o% j0 E, \, r" y# J
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
* ] B. H5 d! B+ L Obj.Label:="warehouse status";7 G& x6 ~% A/ L7 Z/ ]
2 k' s0 P# u% M6 }7 ?0 T/ w$ t
for i:=1 to WH_nums loop$ c9 X7 j- F- g( b( Y& D
Res:=sprint("Store_",i);, z7 e( M" J7 n8 j1 ^1 z6 ?0 p
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);, d V" r# y6 ]2 i. Y U
Obj.Label:=sprint("huojiaceng:",i);
. h' P7 z% J8 K2 [ Obj.xDim:=WH_x;6 G) R8 F& J$ v5 a0 S& C
Obj.yDim:=WH_y;
, F( O. S. u( H7 _1 N Res:=sprint("StoreData_",i);& @" R: n* A3 c- z3 O* m( h7 R
2 W6 K3 B- G0 v4 B7 L! g, G8 i8 |
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
- r" Q8 S P) z! ~! k' v0 X9 O W Obj.Label:=sprint("huojiaceng:",i);
7 T8 c2 A, |( a' J- I Obj.inheritFormat:=false;/ _" U9 x1 o- p2 [4 [: h6 D# ^
Obj.maxxDim:=WH_x;
, W8 U+ l7 q6 H$ J, K Obj.maxyDim:=WH_y;; V9 b; \# w6 d
Obj.ColumnWidth:=3;
" ^5 M+ I# A, q' {" [# ]* @- v) H next;
" c! N; Q; G: `3 I& t; _ 9 e$ o. F% J) @0 y0 U9 J5 j& U1 z
.Delivery.MUs.Forklift.speed:=2;
3 @0 o1 H* U+ @$ u9 ~( B# @5 I WH_var.delete({1,Part_Nums+1}..{*,*});! u+ p0 t- F$ B( {
for i:=1 to Part_Nums loop
F, V# r9 Z$ j0 q* A WH_var[1,i]:=chr(64+i);
. H6 s- P: ~; C# U. w G D next;$ @& m+ Y3 d: s6 { }
end;7 l+ G" H) ?6 q, b
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
# Q% `8 U9 X# v ^% \
( Z( B) w7 J/ ` |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|