|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。2 F }; t) c1 \+ [8 ^1 u
语句是这样的- f, i$ V. ]' e% t& G6 L+ B5 }
is3 Y, e8 I% @9 U, v% w1 Y4 n
i:integer;
+ _8 u* d/ N8 _* |7 q1 [0 c$ ` Res:string;
) C6 z( ^4 U. O5 R/ s obj:object;/ }4 [1 G0 S T5 T
do2 `3 V0 M/ g; b3 Y9 h# u
if existsObject("Status") then
; W7 @2 c' t2 l& Z$ y7 l8 w1 P Status.deleteObject;- A0 v! F0 s3 g6 l: Q; D
end;
1 [0 G2 |6 P8 ]2 S+ l3 W( O for i:=1 to 10 loop
- @5 l6 Y1 q/ \9 g Res:=sprint("Store_",i);
. y1 H; O# ]8 Z) @$ K. T9 J" B9 j9 d6 K7 q if existsObject(Res) then4 ?+ O3 \& f M3 @7 ~5 B
Obj:=str_to_obj(Res);
) y/ J' _2 Z- P6 y3 q( O- e Obj.deleteObject;: v% G( Z7 z m
end;, f B+ Y- U, t2 G' s7 _; y
next;
# R; I) l) Q( Q- n --shengcheng Status:zimoxingceng3 k y! P# W$ M; J8 v8 C. y
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
+ \2 h% A) o% e) g" ^5 e Obj.Label:="warehouse status";
& K( P8 y1 X) q$ S. f 8 o+ U. M# w) {3 ?
for i:=1 to WH_nums loop8 t1 P9 p+ P' [& D4 q
Res:=sprint("Store_",i);9 J m2 G, o+ d' d2 g2 E
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
9 g/ R: H; J; l3 \4 q& z Obj.Label:=sprint("huojiaceng:",i);
, _0 x8 o- S# J) F: P4 O% ] Obj.xDim:=WH_x;: z* G* v- x/ B4 I3 r
Obj.yDim:=WH_y;
1 g7 l: n; j* y0 ~6 z. L Res:=sprint("StoreData_",i);1 C; B8 Y' _4 A
( i0 n. L( [( k4 {- ] r4 C Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
* L6 A; @# w- v% }4 D' f Obj.Label:=sprint("huojiaceng:",i);
/ Y/ f9 o. z; q( b1 r' v Obj.inheritFormat:=false; Y8 L( T" @$ v- Y
Obj.maxxDim:=WH_x;/ v; r& ]7 s: y/ C
Obj.maxyDim:=WH_y;9 k; W1 b/ F$ }# [2 t, t
Obj.ColumnWidth:=3;
: H. S. \2 a, H+ D next;
' a8 W. Z, D0 R8 P 5 r" Q2 u& K) C6 d
.Delivery.MUs.Forklift.speed:=2;
1 P D' j# D/ \4 j% ? WH_var.delete({1,Part_Nums+1}..{*,*});. S" q0 |; m) T7 b- e
for i:=1 to Part_Nums loop
1 B! _. w2 k% n2 c6 A; ]' J WH_var[1,i]:=chr(64+i);
: G n+ B( O b* N( ` next;7 r' e2 h5 j% M
end;
3 n! u# N& o, z' u出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
" E- d! q6 [% o$ M) E6 ]6 z6 U7 X4 r0 Q, b3 }6 Y: b/ Z
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|