|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。# C) k, r+ |- G- w0 o6 R1 X
语句是这样的
8 F1 o1 Z& g# y/ r- Ois
6 w7 U c7 W9 C; {* `& G, F! `. u% c i:integer;
6 S/ k5 C& h; X1 P ] Res:string;
1 h' J" M- t9 n! d obj:object;( \4 E$ a8 E5 X h L
do+ ]4 ^6 D. y# Q) V7 C, u
if existsObject("Status") then+ I7 X7 f5 P* P: L: O2 }
Status.deleteObject; [4 K$ b' s7 I3 o, y
end;
* i0 x" I) X! ]& Z7 i; b1 x( Z for i:=1 to 10 loop5 K; R' ?' k: v) O
Res:=sprint("Store_",i);
3 M) ]& Y. {7 X& `0 `, E% k! Y if existsObject(Res) then$ B1 Q) l( U- T2 `
Obj:=str_to_obj(Res);2 }4 |7 l& Q) j2 C# p
Obj.deleteObject;' N0 T, b, _" J1 Y& ^+ y! x1 T7 z
end;
3 l3 J: o9 f/ O3 T5 g9 K3 i0 L, R next;* ]2 d s+ u8 w; \
--shengcheng Status:zimoxingceng$ A6 r9 S; H) Z6 ?
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");" x: @. {7 G( E+ W2 C/ }
Obj.Label:="warehouse status";0 _/ [; R" ?2 ^5 ?* I% v6 z
7 _7 R2 |6 j( z- I/ F for i:=1 to WH_nums loop5 K' r- J! e7 j
Res:=sprint("Store_",i);& A' z( N. z/ ~( Y8 Z" G" E% V: g
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
+ o6 K$ I7 I7 R" ]) D; ? Obj.Label:=sprint("huojiaceng:",i);& B8 g; c& V5 _
Obj.xDim:=WH_x;2 `( [: q! h. P6 i
Obj.yDim:=WH_y;
8 e$ e* W& F# f5 H Res:=sprint("StoreData_",i);
: H6 g3 S0 m; K' K
1 L, m C! s2 p T Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
$ u+ N$ q* x& }8 ]& \0 O$ H Obj.Label:=sprint("huojiaceng:",i);
; C& o6 y1 z' u0 @ m5 b! X7 A Obj.inheritFormat:=false;
0 T5 ]7 e* m+ z! {) P& U5 q" A Obj.maxxDim:=WH_x;( f7 V4 i$ [) m- E+ ^4 P# ]
Obj.maxyDim:=WH_y;
9 n2 f4 ] d2 |6 l( ]+ c Obj.ColumnWidth:=3;
& }7 V# C. I5 u6 h) ^' C) Y next;
: R# S# C5 A+ J' h ( }' c) C1 J0 }0 ]
.Delivery.MUs.Forklift.speed:=2;
- I. M4 x! b9 J% u WH_var.delete({1,Part_Nums+1}..{*,*});2 D; Z6 @" O, L/ c. A
for i:=1 to Part_Nums loop
1 d" \& w1 T2 b9 Z% a; M WH_var[1,i]:=chr(64+i);
% W3 c: h4 b8 {1 _ u next;
; r! [' i( C1 _0 ]5 e8 s; Wend;! \! V4 K3 j& T, G! r7 J
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 7 r0 I6 H5 T' t% p, k% y
, U+ j5 |+ g% W) N: ]) z% D/ h |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|