|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
: e; X- Y1 F) k" c! L$ K0 P. _7 f语句是这样的" @4 }6 d' F2 B4 P, u7 a9 A+ W
is
d* r0 B1 e% W( o" |% w i:integer;
) D. E7 A) u$ m% O Res:string;
1 v$ p7 A1 R4 N9 V$ x9 _ obj:object;
1 |: t# @7 v! I( P3 S; |, fdo
9 }# L% ?$ ?/ c* t5 v7 [& s6 ~ if existsObject("Status") then
* K$ p9 b! _$ ?( G3 O+ T! f) } Status.deleteObject;
) [* z- p! O4 u e+ T& d+ W end;9 @5 P- M$ R$ m( X4 E0 w
for i:=1 to 10 loop
8 u' Z/ N! V5 R* \: k8 a Res:=sprint("Store_",i);
' z( F! L8 K2 d0 S& c if existsObject(Res) then9 J% k" a7 s( ~
Obj:=str_to_obj(Res);$ U! r& W( u" O) U# V& e1 q; ]
Obj.deleteObject;, i2 R& z+ x) H9 O$ B- d
end;
. S8 `/ Z$ ?1 X+ w) n next;
% ~; @! Q" i+ L$ B. S --shengcheng Status:zimoxingceng' g2 \3 G7 P Y& I* N
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
/ R* x3 z2 O' A) k0 w) G' _- x Obj.Label:="warehouse status";
: A- E+ Z. k! A m) k7 w # X( q# d" E# ?, w
for i:=1 to WH_nums loop
4 M8 Z! p5 H7 E% m2 S, x Res:=sprint("Store_",i);
. z/ m, }' O. i1 N Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);9 D. b! j: A% t/ N) Q* P
Obj.Label:=sprint("huojiaceng:",i);
% ]1 e2 \% ^ v! x5 Z( w$ ? Obj.xDim:=WH_x;
5 ]/ T( o7 ?$ f7 l Obj.yDim:=WH_y;
' J; x9 f2 Y S5 a% r: Y w Res:=sprint("StoreData_",i);
/ U: d8 A# |( B
8 V8 {! i S6 V Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
) M1 A' w) ]9 w/ Y% S2 ^ Obj.Label:=sprint("huojiaceng:",i);
$ j) ]2 X4 R- M Obj.inheritFormat:=false;8 r: g. _5 {* i# Z6 U$ }3 S2 U" t
Obj.maxxDim:=WH_x;
) i) \; V# l6 J- n& s4 C+ Q Obj.maxyDim:=WH_y;
j4 W4 J: V [4 i Obj.ColumnWidth:=3;
$ m! T6 n7 |7 U7 w3 L; x next;
# O* j4 T' R5 N: O, R* ^1 b {
8 S! i7 q# X7 Z( e .Delivery.MUs.Forklift.speed:=2;; x o! N( i9 P% ?! j
WH_var.delete({1,Part_Nums+1}..{*,*});
: s8 p, A+ j+ Q for i:=1 to Part_Nums loop; c& m3 Q; _" q0 O
WH_var[1,i]:=chr(64+i);: u4 x' _9 g# W) J: e3 J
next;
% l" G( X$ } [4 G1 `end;
/ R4 q. u" Y4 q% u2 Z出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
; _0 J! S& u5 X! ~
+ s1 y) K5 D8 v; d |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|