|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。& U) K- @/ G9 L' C7 I+ m
语句是这样的9 {4 ~! |. G& y& G- F( ^8 }
is6 f9 Z" m" Y) n" P& l: Z& G
i:integer;1 ]' W; P( M/ S' o! q; A" e
Res:string;+ r! d7 E/ ]: K5 h
obj:object;; M4 m$ a$ j7 H4 Q. ]7 }
do; T, Z& s7 h, p1 W
if existsObject("Status") then
3 I4 {2 n4 z- X% i( N: [: J Status.deleteObject;
4 @ u, p7 Q4 }: C end;" F6 {' Q! V; `6 T+ s
for i:=1 to 10 loop
% G! J4 ]0 y* u# v Res:=sprint("Store_",i);. {+ j( ?/ A0 p" }- ^& j- T4 E
if existsObject(Res) then1 b- }" e( S: d7 q
Obj:=str_to_obj(Res);% w: j/ B6 M* R) z' R5 Q
Obj.deleteObject;8 K& R7 X5 w* ~2 u1 |: h
end;. y V/ W& a5 }/ ]
next;
- \( J l! L: l7 T3 F --shengcheng Status:zimoxingceng0 e1 `" V8 O* g/ p
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
5 b" I8 R3 {: _$ P Obj.Label:="warehouse status";1 g5 l- Y* E4 _8 v6 k
m* Q" _2 I8 H6 k
for i:=1 to WH_nums loop) N% y( h4 |# Z
Res:=sprint("Store_",i);" `2 S8 T4 B! m8 e0 m" l) [( s
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
# ^4 \. D+ p# ]5 T5 u5 u Obj.Label:=sprint("huojiaceng:",i);0 ]+ p# ^7 t" D- d( a
Obj.xDim:=WH_x;! p, P, {0 J0 i/ c' X; g" `# ?7 y. T7 [
Obj.yDim:=WH_y;
2 ~+ t2 _7 \, y! _3 m i Res:=sprint("StoreData_",i);
" X3 c; l7 L2 A( \; @' Y: R 6 l5 i* u8 u9 I; U) T/ |- @4 O
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
' _, Y" _! O* Q- ]6 O0 m Obj.Label:=sprint("huojiaceng:",i);9 s. O3 w, X, C; b; `& Z" @
Obj.inheritFormat:=false;' o$ z" k( n9 I0 `* ?6 @
Obj.maxxDim:=WH_x;
$ b" \5 S2 a! f; F. {9 H, P. s9 ] Obj.maxyDim:=WH_y;
! S. N1 P/ z7 N) f5 @% I5 X0 N; U Obj.ColumnWidth:=3;
: F* L3 q& \8 J$ I next;
$ q8 r9 ]: m1 Q8 o1 \8 B4 @ 5 H( ~- `: G! q+ S u" `
.Delivery.MUs.Forklift.speed:=2;1 s7 b) a3 N. H
WH_var.delete({1,Part_Nums+1}..{*,*});
! {% D0 h* d5 I# G3 ?8 Z for i:=1 to Part_Nums loop
7 {( E4 B$ n# X; z WH_var[1,i]:=chr(64+i);
: u, p8 f# h1 i next;2 l! O9 M3 k, h7 q% O* o
end;9 O1 P: ^- m' k2 Z" {5 m
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
+ P; b7 f4 ~ S; U2 l: T% Q+ t& s1 p8 T/ i/ b5 l3 L9 r2 M& y
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|