|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。5 _, z" G! H* E9 L U
语句是这样的
2 x" w- u1 y* [: B: y1 j4 qis9 @1 A0 a9 } V& {) d
i:integer;
; w0 Z, ]/ _& G' { Res:string;, Y; ^4 [; y6 V# R4 `
obj:object;0 P! Y; {& Z1 F8 `3 |0 v3 v1 I4 `
do6 a+ ~0 A; x& h3 J$ F1 q
if existsObject("Status") then
' \/ c. w$ ?0 ?3 t( M$ V0 k Status.deleteObject;
7 Z6 `$ s% R- H" ?$ u0 s end;
x( ~8 K# r6 x' y; a* Y+ x) f for i:=1 to 10 loop
# f' ^9 U! Y5 ~/ u Res:=sprint("Store_",i);( N4 u8 t: b! H+ D6 X) K
if existsObject(Res) then$ P3 \2 |3 v' m; j
Obj:=str_to_obj(Res);
+ s% N4 W# F6 o" \0 Y# B' {; | Obj.deleteObject;# \4 e* r# j l6 U: b) V
end;
; o1 C: V- b# }$ j4 W next;! ` s+ A A9 z. o- I, `
--shengcheng Status:zimoxingceng. k& u A/ }7 C
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");0 Q0 Y( M" T/ z" _
Obj.Label:="warehouse status";
& e6 [ r" M A$ a# r7 A
; [5 ?8 F: B+ P+ L3 Z s for i:=1 to WH_nums loop/ j5 P0 P7 |6 j5 y: F$ @
Res:=sprint("Store_",i);
. S S( f+ s. u/ H Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);* ]: m0 _8 E+ E3 a* | i
Obj.Label:=sprint("huojiaceng:",i);
2 P6 y9 B: @/ Z; k) l' G, \ Obj.xDim:=WH_x;
7 x, |; q$ p8 @8 I* g Obj.yDim:=WH_y;& B+ J# R) h2 F: G& T
Res:=sprint("StoreData_",i);, G4 P b: ^ B0 r d: Q B
- ?2 \+ ^: i. C
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);1 d# q" E6 I* ?: [0 O$ u
Obj.Label:=sprint("huojiaceng:",i);; p7 O5 |8 {* h# r; x& o
Obj.inheritFormat:=false;
6 I) m" v* H {+ A1 @ Obj.maxxDim:=WH_x;. `+ l, P$ G4 m
Obj.maxyDim:=WH_y;, s ~6 m" b" }0 G" k2 p3 d. k
Obj.ColumnWidth:=3;
% A8 L0 }9 u1 n/ m( h! m, Q next;+ F5 g% g3 s4 a( f& \7 b6 _
4 u/ X& X- q/ \; }# i4 T
.Delivery.MUs.Forklift.speed:=2;3 a0 \6 e/ Z9 u2 C
WH_var.delete({1,Part_Nums+1}..{*,*});
: \( k" z5 U z9 o0 O& ] for i:=1 to Part_Nums loop/ U; \' v2 i+ E3 f( k3 g/ \% E
WH_var[1,i]:=chr(64+i);* [: s6 D" l. N( L
next;
F6 B; x1 o: j! i) K9 E5 T9 pend;
! q6 J/ C" ]' B4 u+ w出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
6 a7 e+ E R% @# ?8 q ~6 {9 A4 a6 z% I' n/ h* e$ u
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|