|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
$ x: S' j1 w) N+ M语句是这样的
0 V9 x& L' U6 X m# ^& M+ cis
: T2 b3 b( b. [ i:integer;6 e8 x7 @4 u- ?: ]) L
Res:string;
! K3 V4 D- ?3 [; q2 } obj:object;% m; ~* X* K4 a$ @# Q
do3 e7 ~* q% k8 I1 e
if existsObject("Status") then
0 P/ }% u9 I- n3 V8 o Status.deleteObject;
1 c3 c+ |6 l4 U- d' o5 ^ w% I7 t end; ^# U, x+ g( t# `
for i:=1 to 10 loop
; f! H4 |) b( {# Z- m- N Res:=sprint("Store_",i);
& i, g) g* g3 H% V! F& ~' i( \ if existsObject(Res) then
% |0 h* _ s3 O/ h3 j9 r# b Obj:=str_to_obj(Res);. a9 p# N0 e& \- a! o" O
Obj.deleteObject;
; W% W$ @5 x7 D& c end;. e9 P4 s1 L$ q6 R" L
next;
/ Q! ?' M- x0 l* q4 o --shengcheng Status:zimoxingceng9 h% m" @$ S( k6 C2 Z
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
: h6 C5 z- M% U, q) j+ i Obj.Label:="warehouse status";
& o" Z: b6 Q! i6 V 7 G6 Z( ?. S8 S- I/ W, N2 Q
for i:=1 to WH_nums loop% |: u6 {; \: W) q( x6 g
Res:=sprint("Store_",i);
! c2 x/ ^& q: N, N! r Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
7 w' ^) @& o/ f8 n H. Q Obj.Label:=sprint("huojiaceng:",i);
9 ~4 Q7 b& c3 s/ M Obj.xDim:=WH_x;$ |+ b7 E. V+ {3 f7 \, n
Obj.yDim:=WH_y;" o0 b+ B0 p( U$ G+ Z' s
Res:=sprint("StoreData_",i);5 v: t- ?1 Q4 p) u$ o" \; n1 s/ t' n
7 {3 `, {/ @& g) o* _ Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);7 N u' u3 v R' ]' f6 J. ^
Obj.Label:=sprint("huojiaceng:",i);5 c/ G, N3 ~* u7 C+ l2 A6 q8 I
Obj.inheritFormat:=false;
/ l$ x F! e) H% q* o* v Obj.maxxDim:=WH_x;
" q9 G% R" X% Q Obj.maxyDim:=WH_y;
4 A; i- }, m( Q7 ^ Obj.ColumnWidth:=3;- `: p, M/ u# O& f
next;
2 t9 F- F; \: J# J7 u5 L( B4 \ 2 D% t6 G5 K, E( ^* @/ x
.Delivery.MUs.Forklift.speed:=2;9 j$ u# v9 @$ U$ h+ p u
WH_var.delete({1,Part_Nums+1}..{*,*});) Q4 c0 I4 F: e+ U% m: P
for i:=1 to Part_Nums loop4 f0 t- f/ W5 E r
WH_var[1,i]:=chr(64+i);% E. G) l' \+ N+ ^. T& k; l$ Z. b
next;
; ~/ }/ x& d8 b& v! D- n) }& O% eend;/ a6 \& d, h: P) }
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
0 `; Y7 U3 A8 s- T% W2 g) @3 ~5 g/ M
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|