|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
4 A; S+ p6 Q$ Y3 @6 m+ q语句是这样的/ w5 }- Q6 M3 o9 i7 n; M
is
0 |0 V/ b7 M: _7 h2 V; O; ~ i:integer;9 _, o, u2 W+ k2 X
Res:string;
/ Z5 u, ?/ P* r/ H/ z obj:object;
; ?1 c9 ~+ X5 S0 D) ?do, R/ f1 R I* [- _. L1 `* V9 W6 e) H' U
if existsObject("Status") then( z* R9 n( [) y* b+ y; c3 V
Status.deleteObject;! j6 W. J7 k' b6 x3 v) a
end;
, u2 x( F7 p1 \$ t7 ]' l1 I for i:=1 to 10 loop
8 ?2 P% Y' `: N* c1 {+ d8 _ Res:=sprint("Store_",i);
0 I5 k4 G! R# t1 c. f- Q if existsObject(Res) then1 i' H$ W% `, p1 B$ {0 v& L, g
Obj:=str_to_obj(Res);
' g8 F: o! v F Obj.deleteObject;+ X! z/ z/ }3 @1 y1 m
end;1 e) |; X# A* K2 S9 T
next; T& w. k! {: z# }8 B% p$ o [# ]
--shengcheng Status:zimoxingceng$ `5 A. i. p2 A/ Z; F6 a$ o# l+ U: c6 l, O
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
0 X% |+ p7 W8 M4 z' c" U @+ E Obj.Label:="warehouse status";
* [" b( t! z0 v0 S 7 q8 y! k0 p8 `0 k1 N/ w5 |
for i:=1 to WH_nums loop
4 e+ B2 ?4 @' f. k/ } Res:=sprint("Store_",i);
. v% r# p3 v; z( t5 |3 l! L Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
$ k! D7 m0 b; f* X2 I Obj.Label:=sprint("huojiaceng:",i);
( h8 w" }5 |/ b( S7 k; P Obj.xDim:=WH_x;
$ f+ }% F8 A1 o2 \ Obj.yDim:=WH_y; [' \* ]& C8 Q' }7 w9 G
Res:=sprint("StoreData_",i);
* _6 ?$ B: M, f: N1 c9 c1 C
1 T6 s* k. W$ K! |0 R Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
1 h/ Z, J6 J$ \" \$ Y/ e8 n: [ Obj.Label:=sprint("huojiaceng:",i);
- s( X; h% R3 [& T/ p6 d Obj.inheritFormat:=false;' ?) e' `' g8 @: U2 f. Y3 A6 `
Obj.maxxDim:=WH_x;% ^ w* y9 t+ {% G/ V, T
Obj.maxyDim:=WH_y;
6 Z }9 F4 t$ ?" z' [0 N$ ]! p Obj.ColumnWidth:=3;
$ s. a4 c! f2 G9 I next;
0 H9 ?/ i! u; T/ o4 F9 G/ M |; ? " z4 U w+ U$ Y# d/ U% z6 L- D
.Delivery.MUs.Forklift.speed:=2;
+ ^* t/ I4 E2 Y) }# E WH_var.delete({1,Part_Nums+1}..{*,*});8 f7 Y9 K# \, B
for i:=1 to Part_Nums loop7 Y, E6 s$ \/ e* C- q3 v
WH_var[1,i]:=chr(64+i);% q0 h4 |2 v* e9 q4 b" E/ a: G/ J
next;
6 J8 n2 E3 o2 k' `end;
, c: J8 r4 l) C+ {出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 + I: q8 g! w5 t8 }& _
" U- B4 c5 R5 x7 u8 K |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|