|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
& s! g! l1 f. a+ k) B语句是这样的
3 a( E% y4 o+ fis
. i& N) ^$ N2 f% k4 s! i. ?+ S4 r i:integer;" H8 W, P7 u s% f8 b
Res:string;
& h; c. j# w3 y6 P7 N+ N obj:object;$ S" d6 p7 z7 P ?6 n6 X; z# v
do
& H" d* Z( q5 x& |5 ^! T5 D, p( B if existsObject("Status") then4 C4 z5 U% G- Q- X- P2 Q
Status.deleteObject; b3 `1 K; t* _- ~4 M; L
end;) `& f! o8 k8 m4 V
for i:=1 to 10 loop
9 f7 c% Z1 ~9 p0 Y7 ?- E$ R- b% g Res:=sprint("Store_",i);9 j0 t( v/ o9 b/ l6 {2 S/ J" c
if existsObject(Res) then# c: S, o: ?% M# P# M
Obj:=str_to_obj(Res);; j4 J& @3 K0 M% i" {5 }
Obj.deleteObject;
+ O; c- w6 R& a end;
: `" I+ ]1 G @, d) F, H1 D next;9 k1 w$ q4 G! h" j9 L5 [6 H
--shengcheng Status:zimoxingceng1 X7 r8 J( T- z4 k% W; F) S
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");, c0 ^; u& c1 X+ j
Obj.Label:="warehouse status";
! }3 l# |* v3 h7 a, r4 q3 l( w ' z& V" A/ C7 I# W" ^& F
for i:=1 to WH_nums loop
" m5 P4 v) ^) z7 T+ E, [9 y2 P R# N Res:=sprint("Store_",i);
: {3 @/ d' Y$ E7 E Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
/ T4 J) j9 ]9 e2 X6 Z, }9 p- F8 @ Obj.Label:=sprint("huojiaceng:",i);) |, {: L4 g" y. k9 A" B; h: i( b
Obj.xDim:=WH_x;
" Q# o8 A9 `+ v6 R# [! A" H$ P. ?( E Obj.yDim:=WH_y;
* n7 P, \; M7 f) z# ^9 J' i; f; ], L Res:=sprint("StoreData_",i);
" F; b1 x2 N- ]/ z* k : a1 e; E( ^) K( [
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
F3 }/ N p3 q9 z6 b; l0 s Obj.Label:=sprint("huojiaceng:",i);
' X* `9 ?+ `) J% w$ K Obj.inheritFormat:=false;
5 |' p1 J' o- Y, u, a, W Obj.maxxDim:=WH_x;) B9 q2 J/ f5 H$ Y, }
Obj.maxyDim:=WH_y;; I* ^! W9 F7 C. ]" _$ v
Obj.ColumnWidth:=3;
8 S/ E8 n6 p6 q! b next;1 l) e% Z1 z% O3 N" i! X! f
$ C; Y8 D ^# A) q$ A+ ?. v, h& B) n .Delivery.MUs.Forklift.speed:=2;% s }! g% ]) V; ?% B- _. ]4 T v
WH_var.delete({1,Part_Nums+1}..{*,*});& v6 K, D1 t* A" ?
for i:=1 to Part_Nums loop
) u) l& [% l1 F9 | WH_var[1,i]:=chr(64+i);/ Q5 t, ^1 y5 J: Z/ W
next;
8 F1 E- [% C8 [end;
/ k" @+ ?" D; p# T4 Q, x出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ; `$ t8 g8 d' Z+ o* E9 S/ B$ s
0 c7 ]3 N9 u1 h. m/ U
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|