|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
7 g: n' R4 C2 k( f- e语句是这样的% X' c1 T3 }2 D) H! Q1 J
is
/ Y" Q! g9 m' X1 E9 O i:integer;
; ^) z0 E8 k+ s% @: s Res:string;# j' B* U$ T- U0 \2 M3 W+ ?# p( ]
obj:object;0 o M& A7 E$ X7 ?$ J; |4 h. [ |$ w
do
0 J. Q' y; |9 S/ z3 p if existsObject("Status") then
% |! k8 \8 V4 p; K0 l9 h Status.deleteObject;
K3 T" C; i W3 y end;( W. t1 H8 l2 m6 J" V% C2 j0 O
for i:=1 to 10 loop
- J8 G5 E$ h; j, ^1 [+ N' \ Res:=sprint("Store_",i);
4 I2 x- j7 M) ?* I if existsObject(Res) then
6 Z" x ]( t: A1 y' Z Obj:=str_to_obj(Res);
4 R7 ~0 R4 b' x: U, | Obj.deleteObject;; o. p/ B6 K9 E6 D* `" ~2 U! M K9 g
end;. \5 a! z3 Q6 P8 f7 G8 J5 v
next;
$ v- s4 h y, Z, w% ` --shengcheng Status:zimoxingceng0 E( T/ g9 D6 [$ \6 n
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
5 H( B0 w8 J" E7 \" x8 s Obj.Label:="warehouse status";
1 N& B0 b* _" K+ T) ]: x7 g
7 y5 W/ Z) ~. m% F* e for i:=1 to WH_nums loop
f. w. ~) X9 N! c8 T Res:=sprint("Store_",i);
6 S. {" p# t+ ?& `9 P Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);% n1 D- f* V3 L- x) c3 n! \
Obj.Label:=sprint("huojiaceng:",i);% ` K2 @; s' p, L0 u: w( V5 y
Obj.xDim:=WH_x;
' T+ Y; d- L! p7 O+ c Obj.yDim:=WH_y;% _; T# W+ |; }0 R* t
Res:=sprint("StoreData_",i);% e) K7 H' |3 b8 k' _
- w8 f4 |* R: |2 _. x- d/ r Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
. o* U& l! k7 r5 e1 F7 o- I Obj.Label:=sprint("huojiaceng:",i);
2 H6 t9 y6 n' @' Y& E. _2 h8 a! w4 p Obj.inheritFormat:=false;
- z5 e1 u* A; {) x! d: j$ A Obj.maxxDim:=WH_x;
+ U2 _8 n0 c* E9 N( U& t Obj.maxyDim:=WH_y;) \# ]# {1 s2 P/ m0 Y
Obj.ColumnWidth:=3;
9 ~. q( I; R0 K4 D1 E. n next;
' i: G( D2 T8 y# m, u+ Y& F' d 2 S' C, p( E2 g7 w& g! v
.Delivery.MUs.Forklift.speed:=2;
! F7 A0 o( T% `3 p, x$ k: W1 h WH_var.delete({1,Part_Nums+1}..{*,*});& W1 a) j! x) z
for i:=1 to Part_Nums loop8 j/ {& f+ X. J5 I9 k
WH_var[1,i]:=chr(64+i);2 F5 ~4 }& \; S$ s$ q; l& Y/ k* ^5 l
next;
/ @+ I: g/ N/ Z& k" |6 nend;% C, \; k9 ~! `" [+ Q. k+ `1 I
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
+ f7 J$ f/ l$ D& E: k X; c$ g
R6 g- P# t2 {# t |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|