|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。' V X" V! d9 f
语句是这样的
# x% S( |0 t( J8 Nis' J: g* A. S; O' w2 s4 N
i:integer;3 n) ^7 e# ^" ^$ s; b0 [' @3 _
Res:string;2 m' Q% ]! T% _7 {" D& J2 r$ P2 c
obj:object;' c h3 p, P0 m: U6 R
do v2 S$ U: N0 A9 [0 ^; p
if existsObject("Status") then- |6 g( Y4 p- Z `$ j; K3 P, K5 t
Status.deleteObject; }: D+ b8 J% I1 {$ H& ^
end;
9 Q% ~; u0 O8 a for i:=1 to 10 loop7 T1 W4 a7 a$ H8 o2 r: p: b
Res:=sprint("Store_",i);6 @/ t7 [2 Z9 m! f
if existsObject(Res) then
1 u4 a4 q& { M4 y2 a2 T4 G Obj:=str_to_obj(Res);% ?9 b: J6 D, E+ K* d
Obj.deleteObject;9 N9 N# c0 A+ }- z9 I; `
end;
! k0 U' o* |: ^8 F) m' s; Q next;
7 Z7 ^ F. }. B% h" E --shengcheng Status:zimoxingceng7 S$ E2 _6 X. P# {" [9 d
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
1 V, O7 E) y( U8 B+ a: R Obj.Label:="warehouse status";& I3 t# v1 Z( J7 ~9 B7 v5 A
) l s( D: @" o1 e7 w* x. q
for i:=1 to WH_nums loop, t* r0 g3 A/ S- f6 Z
Res:=sprint("Store_",i);
: w Q7 p2 i3 _2 y" P& }" A O Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
8 I) T# i7 L" D1 { H$ [* n Obj.Label:=sprint("huojiaceng:",i);
% R% n$ C' E; W% } Obj.xDim:=WH_x;/ s3 Q3 d2 F& C/ m
Obj.yDim:=WH_y;
! l' `# _- ^. f4 M Res:=sprint("StoreData_",i);
7 P j* L8 ~% B1 K 2 ~, Z! ~" S; `% K7 k- n4 ]8 U
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);( _3 i! y$ P) E) ]
Obj.Label:=sprint("huojiaceng:",i);4 m- E: V5 c( z: b1 G; L0 O7 h) L
Obj.inheritFormat:=false;
1 [" f' ?$ @8 X+ F Obj.maxxDim:=WH_x;2 }, I* V1 c& ~& z3 |
Obj.maxyDim:=WH_y;
8 b# x( v [# B/ _5 L, p Obj.ColumnWidth:=3;
- w) Q: }7 Y6 P- A# ` next;
2 n% h! h3 C6 [& H! N# L
9 D2 W# Y6 p8 q7 S& ]* S: R O6 C0 \' a .Delivery.MUs.Forklift.speed:=2;
' j' x' [1 P' K+ I: [ WH_var.delete({1,Part_Nums+1}..{*,*});" V1 E; d' ]. t0 v/ i' n" v0 F
for i:=1 to Part_Nums loop
3 f) V2 N) \% R# [7 I WH_var[1,i]:=chr(64+i);
6 W0 [% d! C6 R* d9 n2 ]- I next;
* Z. }0 O9 [6 L# \+ gend;
1 t& f1 f; K5 \( \出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ! D! B' [5 [+ ?* ~1 L! T F, P
$ U; f2 {6 j' X6 R4 i
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|