|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
# K0 s; w- H( u语句是这样的
X& s; p; r: R4 z+ y4 T# vis3 j9 z K& X D; y
i:integer;+ ^* p& U$ C& u: s' R7 U5 Z
Res:string;
$ @5 ]' E9 K" }7 u obj:object;
7 Q3 a# }! }6 f+ ?& U! t$ h+ ydo% S5 Q: K4 S, s( {& k/ t
if existsObject("Status") then; s5 h; T+ C/ W: D9 C: @
Status.deleteObject;) `* l5 J* @7 `, u2 }# [
end;$ o0 W1 ]3 _9 g: @
for i:=1 to 10 loop
+ ^6 v/ n: U4 {. H Res:=sprint("Store_",i);9 \0 M& I* G% o9 t
if existsObject(Res) then
9 v5 |% b" u3 C Obj:=str_to_obj(Res);
4 ^/ n4 q+ c D9 x8 g Obj.deleteObject;$ h- e$ ~% }% D
end;
" l1 t: s+ s- N# r8 ~7 ^ next;3 F+ c- {$ \8 X# p' R8 n7 J
--shengcheng Status:zimoxingceng0 P9 ?# A z) }# i3 l* k$ g: H2 b
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");. b3 T* r; v. S; `& K
Obj.Label:="warehouse status";0 d! Y" w" f- i; Z( ?" ~ ~# a
9 O( ^$ O% h+ K# k/ S/ n* G( z! g for i:=1 to WH_nums loop5 B4 f( ]& P' g# ~) t: M
Res:=sprint("Store_",i);* m* n& C2 [ S0 o3 l4 E% _( U
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);# m$ I e4 k" ~* |5 e U5 w5 v( p
Obj.Label:=sprint("huojiaceng:",i);
& |+ l* x* n ~# d/ q0 [ Obj.xDim:=WH_x;2 I+ b, i, C# H* \
Obj.yDim:=WH_y;
6 [* Y& Z6 X& j% X; C/ V: Y Res:=sprint("StoreData_",i);
+ L+ u j& B) } Y. ~' t : l/ N& U* N7 G
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
B, w9 U! U- l0 _; D Obj.Label:=sprint("huojiaceng:",i);2 r9 N7 J7 q1 T- n# k
Obj.inheritFormat:=false;
w$ r9 R& v1 R3 r7 S- B5 Y Obj.maxxDim:=WH_x;2 D6 I! A. `$ D8 Y% D" }/ u& Q
Obj.maxyDim:=WH_y;6 M. N# B/ Z1 |) [5 B" R/ S
Obj.ColumnWidth:=3;% N; R2 r# V7 ?/ F% a, ~
next;
# o; V+ W! O7 Z. ?
3 Q4 B: R: o) T" ^2 z9 f .Delivery.MUs.Forklift.speed:=2;
( E, }. C8 |0 n: Z/ v' X WH_var.delete({1,Part_Nums+1}..{*,*});
; g6 G7 F$ ^- k* v7 v for i:=1 to Part_Nums loop( V) V. r! Z/ b
WH_var[1,i]:=chr(64+i);
+ D- d" i; N {& a) u next;
2 u3 \/ }! [4 D6 o" T; Z% yend;/ F( ?2 g& _: P0 K
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ! X: `& ]7 N1 D& @6 [) [
4 g6 o/ ^& ^; e% q0 M# p: w |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|