|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。% K4 g& ?. d/ _0 Q; U
语句是这样的0 s1 t& p3 {4 a7 t: ^% N( w8 X+ `
is* ~( l6 E6 E# \
i:integer;
8 t% ?; _) U$ ?6 z. [- ~ Res:string;# ?4 Q3 x3 }7 W g
obj:object;
: L- ~2 o/ I1 Q" \7 g7 Mdo
( H0 Q; U; b' U4 A if existsObject("Status") then
/ ?4 ~+ R+ P/ m Status.deleteObject;
8 N% V) T% X( M( c. I end;, u% W( |6 S/ j
for i:=1 to 10 loop* H9 @/ ^- E7 T9 b. V4 x
Res:=sprint("Store_",i);) J1 Z5 V9 X( [& O1 F! q
if existsObject(Res) then t; G2 J! p; j; ~0 k
Obj:=str_to_obj(Res);
6 b& U9 ~" d! i9 o* _5 v4 o Obj.deleteObject;
) h! ], A9 R9 r! g" e1 Y1 y) v end;
u: o g }. t: R% r) M! y. v next;' d8 F- B& T+ w) a K
--shengcheng Status:zimoxingceng
2 z% h) y1 ]' f- |; C Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
) S; w/ ?( d/ S) ~: j Obj.Label:="warehouse status";
+ f B5 r" \1 C; I ; W9 L) q9 M4 k' n. S
for i:=1 to WH_nums loop2 S; X2 ~7 D- l2 P. @
Res:=sprint("Store_",i);# s6 e) D; }) \; T: O1 o
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res); l; t- Q6 M: n. Z/ K( v
Obj.Label:=sprint("huojiaceng:",i);
; \9 @7 E) F7 k7 _ Obj.xDim:=WH_x;, B/ T% ~+ C' r. W6 r$ p% ~
Obj.yDim:=WH_y;
" k1 z: {- e& O( K; j# ~ Res:=sprint("StoreData_",i);' C5 D) l. D7 L% l3 t
" i, ^. Z4 @) N9 B3 G2 Y, ~; k3 e
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);4 P# n+ l9 ?, j8 l3 k9 c
Obj.Label:=sprint("huojiaceng:",i);
; ]( Y9 D$ C& v7 A$ {! M Obj.inheritFormat:=false;
% k0 R. X& I2 n$ z t Obj.maxxDim:=WH_x;
, C7 r! S8 c5 q) N. i Obj.maxyDim:=WH_y;0 A1 z2 g8 X; q4 b
Obj.ColumnWidth:=3;
; M$ V' R. m3 a next;
5 B6 ^6 @1 ]% w ' C, X6 J: p/ \7 B+ X# D9 C' s H
.Delivery.MUs.Forklift.speed:=2;
, `2 a9 ?2 C- }1 Y8 | WH_var.delete({1,Part_Nums+1}..{*,*});
+ M0 `' Y3 N) N) F) w/ Q5 b for i:=1 to Part_Nums loop
! P* S9 |$ Y2 Z" B+ T WH_var[1,i]:=chr(64+i);
/ }3 i+ t5 B, F; p6 Z# }$ ?: Q next;
# f5 `6 o; [) \5 S9 Hend;8 X' ^4 p+ `" A. w; y3 C
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 / D7 i7 b6 t# N2 Y
0 \* W6 Z! `; b- \+ e9 h |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|