|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
* |1 p3 ~5 K: U. |7 }/ ?) M. d语句是这样的
: F8 ^/ N5 W1 l- `( r/ fis
7 L* M T V) {3 O i:integer;
* Z# W5 W% ` |* k3 T Res:string;
7 ?4 l; R( i( S: [& d+ l+ } obj:object;
1 y3 l& Z# _% ^- c' ^+ ldo2 Z" u6 `, v1 L) I; C
if existsObject("Status") then7 ^ M4 O( b7 U y$ }
Status.deleteObject;
1 T+ c+ `3 \( g6 ^' D end;9 A7 O- @. C) M4 n+ q6 i' H
for i:=1 to 10 loop) y4 w+ Z- U& P5 }: @8 d
Res:=sprint("Store_",i);
0 h! g0 I) v5 G& a if existsObject(Res) then
3 N) j6 M/ V. {0 { Obj:=str_to_obj(Res);
7 K1 c" D# l+ Z3 ]5 Y4 b Obj.deleteObject;
& f* C4 Q9 h$ Y5 w3 V( z, a end;4 }) t$ }- U# r1 Z4 D/ i7 a
next;
% u3 a; |2 l8 ]/ s --shengcheng Status:zimoxingceng: \) C" U5 N9 B
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
/ i( Y5 T. q+ B9 h3 y% O4 f Obj.Label:="warehouse status";
# P0 g* l. ~3 Y8 e( z8 p # ^4 \1 q9 t1 F- E6 X# B- m9 t
for i:=1 to WH_nums loop
. l3 J1 b- ?, h1 W P" n$ z& O Res:=sprint("Store_",i);
$ @) f' P5 G, ~; B7 B Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);9 q5 P" i, T. a5 m) R
Obj.Label:=sprint("huojiaceng:",i);7 k# r4 B0 |. k% u7 x
Obj.xDim:=WH_x;
3 d; e* r3 b( f; d- K/ q1 i Obj.yDim:=WH_y;* E8 a8 @2 v9 D, I6 \3 i. M
Res:=sprint("StoreData_",i);8 G1 {/ \8 |" Z' S) ^, l
+ T. i& A t2 a( ] e \* H
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);' v4 t4 T: i" P. D" L) }, Z
Obj.Label:=sprint("huojiaceng:",i);9 ^) v) t$ ~* d6 a4 {* b) l3 v
Obj.inheritFormat:=false;7 R4 Q! F4 {1 K& m
Obj.maxxDim:=WH_x;
! `' l$ z3 |% c) b Obj.maxyDim:=WH_y;
/ X& y& q3 g- Y S0 O& k Obj.ColumnWidth:=3;
+ A; z2 |8 F; k$ ?; ]- z next;4 c. G t0 o6 O) _
6 ` u" c- K ^9 b( z7 j9 Y& [, Q .Delivery.MUs.Forklift.speed:=2;1 |& m# n2 m3 c O6 }
WH_var.delete({1,Part_Nums+1}..{*,*}); K/ W" Q6 d& x* w2 M( B' F
for i:=1 to Part_Nums loop
5 R1 _( `& S, Z! R WH_var[1,i]:=chr(64+i);2 q9 n, ]5 q2 X, q7 _$ Z' R$ B7 T
next;3 n( u% O9 @' ` g, i/ y9 B. d
end;! b& E+ L$ S t% b( v
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
! s! M y0 O$ `1 K- k G+ J; J( m) \4 q) Z, s2 `7 E4 ?3 \
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|