|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。2 J t' F2 f1 o; Z5 D2 O. f0 m; `1 i
语句是这样的
; p" a, n1 J8 Eis
! J: ?- S" g9 ^ i:integer;
6 D" X6 s' H7 s8 u0 y. w, k Res:string;7 n8 E( p2 }1 k) P8 E' S
obj:object;% t8 W, U$ u, G
do1 ?7 G: P' f( z/ x. s
if existsObject("Status") then
+ [% i, |5 Y. T" N Status.deleteObject;& i, C9 h9 o3 I1 ]( P. K
end;9 ~. i% y- e2 P: m k
for i:=1 to 10 loop( ]+ B2 @) A9 d9 J+ v" L3 ^3 b) ?2 E
Res:=sprint("Store_",i);/ m) T2 F5 T2 H6 t- H3 W# S5 W
if existsObject(Res) then' a5 y- s0 f1 q. ^' ]
Obj:=str_to_obj(Res);! f [( Y* y0 _9 E+ u$ |
Obj.deleteObject;
8 _3 J! w y; k1 S% d$ v end;! S! Z W, T. Q4 j f8 R
next;
/ G! e+ h# F' L8 @( G* P --shengcheng Status:zimoxingceng8 \: ~- ^' q9 o% @2 U$ N: L, M2 A# |
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");) x8 q% ]( m% {& K- B
Obj.Label:="warehouse status";! g0 ?5 M, X* E$ ` @5 ^2 u# H
! }+ {8 f5 d- ^, [* N1 f for i:=1 to WH_nums loop
* i$ x. r6 y. `( v3 ` Res:=sprint("Store_",i);1 x# M0 \$ O, p
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);, r4 O& M4 G7 R% ?; r0 J, @) m
Obj.Label:=sprint("huojiaceng:",i);5 ?) G( a- ~, @% |
Obj.xDim:=WH_x;0 i( i1 U. L" z: y
Obj.yDim:=WH_y;" D9 J8 ^7 g2 k; m5 W
Res:=sprint("StoreData_",i);
0 n: M: J1 ?% c0 c3 _5 f, z
- n; [' C. G4 Q! _ Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
2 K6 s% ]! L; K8 X) ] Obj.Label:=sprint("huojiaceng:",i);( X4 q9 h9 o/ g# o
Obj.inheritFormat:=false;
5 K1 T) z* w% w, y6 e% ^+ j Obj.maxxDim:=WH_x;3 ]# f; Z0 R: W+ L
Obj.maxyDim:=WH_y;
# m5 Z6 R/ h8 a r Obj.ColumnWidth:=3;! C# Y/ S& C1 [9 |
next;* r8 S" Y0 i9 k0 w
: C" E! N+ n" t! d
.Delivery.MUs.Forklift.speed:=2;; w0 b, F8 T( I3 ^) j" s1 L
WH_var.delete({1,Part_Nums+1}..{*,*});
# r' h( F2 T- u5 s, X% o for i:=1 to Part_Nums loop
, t3 W) N- q* J8 W8 `) |0 H WH_var[1,i]:=chr(64+i);/ o+ `! x# E0 u, h
next;
- y; b Q5 Y8 H) y9 x: Pend;6 h4 D% s8 [' |; j: U2 ~8 g/ h
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 # J9 w! w o1 b1 B# z
% N& N" D. \; C8 c- F
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|