|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。 D& @8 n8 E% @8 i4 z
语句是这样的
8 D" K) E7 Q; L1 t" Vis
* ]5 n, V/ N! V* L( n) _* z% R) H& M/ z i:integer;
/ y& _# ?, t7 Z0 S/ Q Res:string;
6 L! a( r. E2 d1 ^9 ]# C! ~! P0 S obj:object;
, Z# o( D" c) Ldo+ X1 w8 l( W- H0 k! I; r4 S
if existsObject("Status") then; c+ K6 t* C3 R( w+ H. y
Status.deleteObject;) F4 q- L) T+ t0 m
end;
; b# v$ j% \! j% Y' \* R2 Q. i8 E$ k for i:=1 to 10 loop
9 }- e {% P$ s# `+ d Res:=sprint("Store_",i);
7 q }9 k- l& k/ r- _ if existsObject(Res) then
4 R+ q' d# @0 E2 R8 E! e Obj:=str_to_obj(Res);1 E3 v. \$ s. U5 ?1 M3 h
Obj.deleteObject;2 }: u @' h4 v/ I! t) z4 }) E) N7 c
end;
* d P, U6 E v' q- b8 k next;# D9 k+ z3 {1 u9 R8 U y7 B5 t
--shengcheng Status:zimoxingceng
3 _7 K' q: w# g; z$ S Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");8 Y) Y6 }4 q/ n* R
Obj.Label:="warehouse status";
% B& p) @/ U' `3 Y % M3 e, x5 f2 f5 L
for i:=1 to WH_nums loop
$ k0 B- A+ J5 ?5 L Res:=sprint("Store_",i);
( M: Z f9 `- U9 s Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
0 Q, v2 z8 k ~; x Obj.Label:=sprint("huojiaceng:",i);6 K. O7 C; E" a8 l7 \
Obj.xDim:=WH_x;
' }& N+ Q0 S( a5 q8 d( P+ N! D, _, o+ T Obj.yDim:=WH_y;* u7 {7 w5 `! h$ h; V0 b9 y
Res:=sprint("StoreData_",i);
) b9 S! |# O9 X. h! H q / ~ @+ y r! }) _2 f) H
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);2 O8 H$ h" {8 f& C, W6 b
Obj.Label:=sprint("huojiaceng:",i);5 l+ Y5 n! N1 Y3 q
Obj.inheritFormat:=false;
/ o( s0 T9 x* ^4 w' A0 N6 V Obj.maxxDim:=WH_x;
2 w8 Y, }0 U: Q3 X' g k- L Obj.maxyDim:=WH_y;* J0 y, K$ r7 F$ f' s: u8 _
Obj.ColumnWidth:=3;- W1 |% j9 ?- L$ W3 O# U9 a& h' u( w
next;
- _1 E/ Z" P0 w * c/ F) K4 l% v! J
.Delivery.MUs.Forklift.speed:=2;- N# L8 a2 [& R, ^; H
WH_var.delete({1,Part_Nums+1}..{*,*});
& V3 e) U: J: v for i:=1 to Part_Nums loop
' i' ~. N8 n- p5 a) G WH_var[1,i]:=chr(64+i);
+ Q8 }# \# q6 N& b next;0 Z* C: h' w# R: ~6 t! v
end;/ N. P. U# O! M
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
7 D. D8 f& f3 V4 ?- \( @% l( N, p1 P3 h
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|