|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
! Q; B8 P9 U1 s/ H0 `, a语句是这样的8 r5 J" t/ \& ?9 u
is
8 \: C7 L' w/ N- G. j i:integer;
0 s( C( x W' ? Res:string;
7 V8 g2 b8 T. _. | obj:object;
5 M8 a% |/ J4 j3 V/ V1 J9 B/ ]8 Ado
( |8 R2 x$ p# h3 R, \& M4 o+ [ if existsObject("Status") then
2 r- I/ X" c% f; [ Status.deleteObject;
7 f$ A5 l, J/ A- J$ l4 r$ G g U end;
5 V3 j& U7 X2 f& }9 y R X" I for i:=1 to 10 loop
! n3 N$ _& p, N; F2 X4 X% Q- w% r Res:=sprint("Store_",i);
% [# m* I. s6 {: W% l F% W if existsObject(Res) then- P# Y; O1 D3 w! \0 ]
Obj:=str_to_obj(Res);
6 v% M0 p# ]: q3 ? Obj.deleteObject;9 z$ }0 j8 r, t" O* N
end;
8 D4 p' L( }& ^4 K4 D; a next;6 k# O# u( n/ S
--shengcheng Status:zimoxingceng( ^% n( h- L. @6 T% Z
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
# h9 G2 Q5 ^7 [/ Q) Z Obj.Label:="warehouse status";" R* V6 L: V+ K! o" g, ?+ A: y
0 O- v# L+ a! H5 |: ]1 e
for i:=1 to WH_nums loop
- x, r# _; }( o Res:=sprint("Store_",i);5 n; z7 q- f- P1 `
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);* Y0 ?; L o8 e( `7 f9 k' c) Q
Obj.Label:=sprint("huojiaceng:",i);
' v4 O( m+ A8 f% x9 z0 D( l Obj.xDim:=WH_x;3 i6 H7 c" B* G0 k. A( k
Obj.yDim:=WH_y;
5 W' z C5 g0 ?' Z. C Res:=sprint("StoreData_",i);
4 b9 g1 E" a8 x( z8 \/ n# p. v* h % o4 d, I) ~2 T4 N
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
. X4 Z8 w6 ?2 `6 ?7 T Obj.Label:=sprint("huojiaceng:",i);
9 Z$ s$ o5 T4 D- j6 w Obj.inheritFormat:=false;
% Z X5 \3 ^ _9 S# J Obj.maxxDim:=WH_x;) m1 m( t- Q7 H- x1 G0 s
Obj.maxyDim:=WH_y;
3 p$ v: X6 @ L8 Y Obj.ColumnWidth:=3;% r7 `0 |' z: G7 O
next;6 F' U1 j$ O- Y$ E% U$ [
! T" x% f( c( @ .Delivery.MUs.Forklift.speed:=2;
1 p+ ? m+ p8 q* q WH_var.delete({1,Part_Nums+1}..{*,*});2 E i3 {. _5 [( h$ L
for i:=1 to Part_Nums loop
2 R7 w7 k/ ?; A' |8 s1 w WH_var[1,i]:=chr(64+i);! J7 k! K9 ~6 e/ \/ E
next;
5 e9 U5 a" V. `: l- s/ Kend;; r( f# n8 D2 @7 W) C) }
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 3 X) q1 d( A1 d3 ^/ D
" _9 g' M. s9 U& ~
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|