|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
) M6 o, q* r7 A3 X! X$ E语句是这样的
8 n8 d( o& }/ k) o3 u- f% |is
* s5 S& W* M& A4 S# u i:integer;
' C5 Z3 j; w9 B/ A* x Res:string;
- Z/ ?/ `! {$ q3 k6 _0 r" C obj:object;& j* O4 s2 V3 {9 M# K& ]1 M
do" O6 U& u7 f4 \3 \
if existsObject("Status") then
5 \, W* g r" ?2 \2 R0 k% T Status.deleteObject;
1 [0 V( C6 a' Y8 k. o end;) f( E' [6 }3 g
for i:=1 to 10 loop! i2 ]2 L7 J! j. T+ ?: v2 w
Res:=sprint("Store_",i);
" ^+ o+ w3 H! M. o! \, }$ l# x if existsObject(Res) then
7 c( X& w- ~9 B1 z/ h Obj:=str_to_obj(Res);4 h% n9 d" J* @3 t
Obj.deleteObject;9 Z2 g# {. {9 f% S1 Z* }3 @% \; O
end;
1 f- V$ T9 C- X0 _* N next;4 ]8 k- g7 f2 B. F/ d1 ]) `9 T
--shengcheng Status:zimoxingceng
; d7 Z+ f: l- W$ h4 x( B" L" I, C Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
: j+ K5 F" @' R6 r" l2 o( t W Obj.Label:="warehouse status";
* @: N4 r6 `8 F7 h3 F 0 {+ D0 j8 Q- H2 c/ A
for i:=1 to WH_nums loop- o. e8 ?, d( F# N
Res:=sprint("Store_",i);+ x3 ^: K' h5 } \' I' H0 J5 W Y# X
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
2 B1 ], l+ @* W) A. U* A Obj.Label:=sprint("huojiaceng:",i);
! u$ T; E9 S/ M N Obj.xDim:=WH_x;$ ]$ X# x- t) P1 Y( u* q
Obj.yDim:=WH_y;
0 |" N# Q4 |8 Z- V Res:=sprint("StoreData_",i);
2 p3 T/ \+ |- F8 @ 8 C7 ?" S% O0 g+ y1 L& Z; X
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);8 X4 [' O0 [; |( L: c. x* \; l
Obj.Label:=sprint("huojiaceng:",i);
- g" T7 B/ ^; F* `4 P Obj.inheritFormat:=false;
7 t8 ^% i4 A7 x6 G Obj.maxxDim:=WH_x;
4 t0 h, \" O9 }; O$ N Obj.maxyDim:=WH_y;
# Z+ W+ K$ T+ F% E Obj.ColumnWidth:=3;2 p: `) v/ A' d
next;/ [' x1 [3 I4 A% h) I8 V$ P
& a2 P" j2 w& w3 x8 m
.Delivery.MUs.Forklift.speed:=2;
3 }9 A2 O5 U' v1 X6 ~ WH_var.delete({1,Part_Nums+1}..{*,*});
; W6 u+ P& T, ^! _; i9 H for i:=1 to Part_Nums loop
6 N, t' @9 i, F WH_var[1,i]:=chr(64+i);
6 x' J6 }8 |* }- e+ S' G next;5 Y8 Q' X5 a: F Y& Y
end; t5 U+ C& G, H4 \
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 2 w' Q' S+ h+ ^1 F& y; c3 F
# X8 T% e5 q- U: n
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|