|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
8 Z% E+ C- C3 V7 v6 P语句是这样的
4 ?- Q n5 k0 n. l- q! Y G, ]is9 u B. G: X0 s; w9 J. O, H
i:integer;5 T8 d2 A( K- @/ q' ?; D
Res:string;
* Y; S8 K' N3 S: w6 ? obj:object;
+ j3 \( `7 n6 {% G# pdo/ k: V; ?& x/ Q! e2 t" h
if existsObject("Status") then1 `0 t9 N1 q9 I4 k
Status.deleteObject;
: x+ C5 w& S6 Y! B8 [* \6 F end;
2 ~ S4 c, T3 h! j8 [ for i:=1 to 10 loop8 b) d6 L6 E& N. K' f8 ~7 Z. u
Res:=sprint("Store_",i);
" T! U* x4 S: N5 g, c) P+ R, c if existsObject(Res) then
6 [' s* a8 W' t4 E4 J3 r. n Y Obj:=str_to_obj(Res);
. h9 D( I/ S$ S# E, Y Obj.deleteObject;
6 P! c7 D0 ]- N" J7 n end;' g s! o+ C. V }
next;
# Z3 P( n4 h% n) y' v+ a3 `5 | --shengcheng Status:zimoxingceng
4 j# O- u/ i: {9 _4 ?* T( I& Y& j Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
, \& B& G# C. A) X. ?6 Y Obj.Label:="warehouse status";
9 s {: O- g7 e 3 b8 I3 O8 u8 Z v
for i:=1 to WH_nums loop
/ f" N. j# s k- g Res:=sprint("Store_",i);2 B0 S. k: `) B) a
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
5 H: n" v, ~6 \( i* x( f5 T% J Obj.Label:=sprint("huojiaceng:",i);$ {. e" ~& [$ I u" U R: S U
Obj.xDim:=WH_x;
2 a' _" I _+ ?$ l! {( W Obj.yDim:=WH_y;
+ ?5 ]' J/ T; ^# [' r' Q3 G0 r4 [ Res:=sprint("StoreData_",i);+ z* a! _2 b( Q
" u1 E& R1 F* z Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);; ~0 i( T' Z. N
Obj.Label:=sprint("huojiaceng:",i);( v# c& k: j$ s8 N# i
Obj.inheritFormat:=false;
5 b; q" ]. i+ T) n Obj.maxxDim:=WH_x;& @4 F' F" I, z. a8 g. V) u
Obj.maxyDim:=WH_y;- p P1 h5 j; z+ n0 z( I8 x
Obj.ColumnWidth:=3;5 Y; E5 D; R6 ?
next;# c- {$ R8 Y8 N$ h( ]% x
/ E1 I; H0 T0 E( |' h& `! `
.Delivery.MUs.Forklift.speed:=2;
) n$ s. g, o) T9 ?! C4 O* W WH_var.delete({1,Part_Nums+1}..{*,*});* q/ [/ x3 z& S% b/ \+ v9 P
for i:=1 to Part_Nums loop8 \- [3 @4 r& O+ {$ b1 p
WH_var[1,i]:=chr(64+i);
- F( V0 o0 N% j5 V+ C next;/ E: e$ s0 \ H P
end;& s- ]: L) Z& {% ^4 T
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
I: Z/ j: w+ h6 Z% q3 g y9 ^# r( y& X$ K
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|