|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。$ w" A9 @* _+ }/ J2 ~
语句是这样的
0 M9 d* [5 m% Sis
( r/ W. _+ v& I7 H i:integer;
, m+ B, V9 X1 v } T: V7 j7 D Res:string;
1 u* e/ U$ x+ q3 Q. E obj:object;# p* ]. Q/ R$ T' m
do
* Z- L3 O/ ]5 _7 P1 h if existsObject("Status") then
0 f$ G: X, }% J! G6 k: Z) \ Status.deleteObject;5 H u/ E6 d% s- Y
end;
, ?* b: `1 t+ u; q) Q for i:=1 to 10 loop
" T" X) Z, |. H* f! s/ n Res:=sprint("Store_",i);
9 U1 f! D7 G$ Y+ d, i0 l) O6 H if existsObject(Res) then
/ R6 a8 i) s- z4 f" Y1 K7 U0 w9 q$ f Obj:=str_to_obj(Res);
' Q) K) s/ @ j# H* m( {+ V1 M Obj.deleteObject;# e. {% ]$ ~; _; s' [; o t
end;
9 U8 r* t# }' H' [. X next;5 U9 G. \% G4 v9 I: i
--shengcheng Status:zimoxingceng
) y2 p3 N! m. s/ k1 `8 ~ a; m Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");; D- D: Q8 T; w0 F( y% R
Obj.Label:="warehouse status";" ^; l, g: A6 ^# s9 Y" l7 K
( I+ O. r2 i: M* { ?
for i:=1 to WH_nums loop
" {4 Y& z B( g% N8 _ Res:=sprint("Store_",i);
% i( Z) |5 D* @3 E2 C! m' t Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
8 |/ z4 O8 |, }5 P1 L" k; ]8 O# n% l1 [ Obj.Label:=sprint("huojiaceng:",i);
2 d' g. H! r4 x: G, m! z/ ^- K Obj.xDim:=WH_x;
5 Z' R w5 L6 A8 i9 ?; t/ c5 \1 O. V Obj.yDim:=WH_y;
; w# M4 o x5 ^6 r5 \ Res:=sprint("StoreData_",i);3 _! W8 G1 |5 u2 L$ J* M" {* B# X
$ C$ S) ]) V% G
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);& W' e7 S+ J8 H- ~& u2 b5 f+ w# h
Obj.Label:=sprint("huojiaceng:",i);
+ G2 [ k& C. j5 R4 n" D- s& r Obj.inheritFormat:=false;
8 X' T1 @7 A; K) Q* D9 n Obj.maxxDim:=WH_x;
% q$ @9 q0 F# [/ l2 m. \4 o1 c Obj.maxyDim:=WH_y;
+ d" f9 J W4 }! D! U3 v! q Obj.ColumnWidth:=3;
" U( V3 z7 {' @ next;
: ?- e2 m1 E! ]2 ]6 I& R . V d( L$ j" k- J' |1 h
.Delivery.MUs.Forklift.speed:=2;, k# T% _1 N; l5 r
WH_var.delete({1,Part_Nums+1}..{*,*});
. T$ U; W4 v- H0 N1 p) I for i:=1 to Part_Nums loop
' u/ U$ f2 z7 s1 H7 V1 c. ]# P WH_var[1,i]:=chr(64+i);
" H6 h7 B+ u7 K next;
8 g- z' A d/ L; T, R% M, Cend;
4 e: a( x& R7 {: B出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
2 @: r8 \, }; ?$ i& i% O
, I1 i$ M0 Z! I4 h" k/ C3 d5 I% I+ i |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|