|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。+ }: S2 L/ N( l# |
语句是这样的% g5 m5 h$ `$ j1 z& J
is
$ R" x3 _- }3 b8 d4 o+ D$ d7 D2 z7 \ i:integer;' }1 u2 C8 Y/ E% [5 O l
Res:string;
$ {* o2 F+ O U/ M. s2 b obj:object;
0 T A7 X+ b( s4 q( Cdo; x7 R' S* `% `' b- G. x! Q$ L( B
if existsObject("Status") then
5 }5 r1 t) D1 }* ]" L7 V; ~/ e Status.deleteObject;- F- t" x7 ]1 z: E' {
end;
* i# K+ E7 S5 Q N5 ~- r; ? for i:=1 to 10 loop
+ Q c: H; b1 v' u8 b Res:=sprint("Store_",i);
* r. z8 {$ T7 M if existsObject(Res) then1 z" h8 y1 _# d* c6 H% Y% w* M
Obj:=str_to_obj(Res);
T8 E1 V1 W! `) g; p Obj.deleteObject;
% z; ^* n- I; C9 ~5 D end;
0 m0 y" u, K# W" Z6 M/ E next;
5 x, B" p' P, s' i" |* g --shengcheng Status:zimoxingceng
6 }( Q; S% Y. X/ T( p. ] Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");6 [* h: q% a; X7 J5 p: z
Obj.Label:="warehouse status";
7 r) A- j3 [0 `
! Q7 b- q0 z- m& X# D8 | for i:=1 to WH_nums loop9 W* K& I# }# o* }3 h, i' Z# z
Res:=sprint("Store_",i);
% z# ~6 D, n. U, k4 i' T Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
- J; S# w7 m/ V/ u; a4 _% e Obj.Label:=sprint("huojiaceng:",i);- Q C! a2 ]. n6 x; U$ p( ^' _
Obj.xDim:=WH_x;( C% x F4 ~ d5 {- @( c ] {
Obj.yDim:=WH_y;
! p9 F+ G$ V/ v Res:=sprint("StoreData_",i);
8 M) z3 D; U3 ^* u* E% s ) f g( ~4 o+ C- k5 ]
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
% _5 ^' I3 q8 Q+ { Obj.Label:=sprint("huojiaceng:",i);
4 k1 t8 B7 P* }% q6 v) |' e9 u Obj.inheritFormat:=false;3 p; O+ B- l1 Y9 f5 s0 _6 ]
Obj.maxxDim:=WH_x;
8 R, `/ K7 C1 r; v2 E) g0 Q* i Obj.maxyDim:=WH_y;( K5 i" B5 _9 [$ N
Obj.ColumnWidth:=3;
6 X9 A( B ~2 V4 e next;4 Y$ r; c/ [+ E
6 Q' l8 Q4 o# ^7 F9 ^8 I .Delivery.MUs.Forklift.speed:=2;
. K9 X9 s$ x; d4 \& p _2 X WH_var.delete({1,Part_Nums+1}..{*,*});7 b0 |! x3 Z' Y, v
for i:=1 to Part_Nums loop$ e- g8 a4 e6 @7 j% K4 I3 t: H
WH_var[1,i]:=chr(64+i);
# Q2 {" A2 q/ u; e& k( Y next;' g( a+ d5 C7 h$ y
end;
$ t0 z( O2 S) m& W9 n0 S出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 . C$ f/ [8 l" ^
, ?0 i! f. D- \( p5 B4 a x. F |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|