|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
6 j5 z# R& q/ L' J语句是这样的7 ~/ ?( g. K' k
is. m/ B6 g) X' [- p" v" p0 W
i:integer;
' K8 V& R: x4 S1 W1 r, e0 f Res:string;" E1 ^6 y- ]) Z }
obj:object;4 M* x) i9 c- T1 z# `! J- o
do. t: t' `& N {5 h* m
if existsObject("Status") then6 U) h/ X1 Y- f# y
Status.deleteObject;
8 w' x. B2 ]7 b; K+ ?4 E+ C end;8 q6 g% l& p6 ~8 p' r$ G
for i:=1 to 10 loop
! R3 U$ ? z5 C- Z+ Q2 Z Res:=sprint("Store_",i);
# E; `, O4 T4 E/ `/ F, { if existsObject(Res) then5 H; T( C7 C! y
Obj:=str_to_obj(Res);/ {4 |5 s1 ~$ M, I1 u
Obj.deleteObject;. P% G& D( ?6 F5 Q- F
end;
% B- k" T4 c( T. J next;: v4 r+ i% O8 o: E3 M3 d: m b
--shengcheng Status:zimoxingceng# |3 l4 v* y/ ^7 V& S7 S
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");* G4 h+ a7 Q# b0 r
Obj.Label:="warehouse status";
+ e9 A2 \3 }# X3 Q S
& n, v$ o3 h H& ~( F9 | for i:=1 to WH_nums loop
5 p3 Y% Q/ B$ | Res:=sprint("Store_",i);
" W4 d/ ^+ ~) H: l7 B# Z Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
. z# Y, L+ I3 t+ l+ Z- x Obj.Label:=sprint("huojiaceng:",i);; Z8 i* C) n4 k* q4 J' }
Obj.xDim:=WH_x;' G, j9 {% A! e2 b% h/ ?. I2 v
Obj.yDim:=WH_y;
5 ] ^$ W% J' ]+ I. F Res:=sprint("StoreData_",i);$ Z. S, M' |0 {4 Z9 E
3 @! w6 Q4 r( h: p
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);) f; m. n) B* I
Obj.Label:=sprint("huojiaceng:",i);
; p' {' G0 ~9 f* v% v" [ Obj.inheritFormat:=false;' O, C1 v: m6 m/ {
Obj.maxxDim:=WH_x;( h' b9 E* y X9 u: L, K: m% o
Obj.maxyDim:=WH_y;, ~! h, \+ E! D- P+ \ G
Obj.ColumnWidth:=3;5 C0 g6 @. Q# M; K l4 b" ^
next;
* P3 k+ ^3 } I; b- I ; ]% Y, {: H: C" j' | C
.Delivery.MUs.Forklift.speed:=2;
0 l. H) v0 @8 o& V" R4 U6 w- L* Q WH_var.delete({1,Part_Nums+1}..{*,*});
1 p% S5 Q: B& u6 }) z! r2 I& ^ for i:=1 to Part_Nums loop- ^4 A( v$ ^+ \) D
WH_var[1,i]:=chr(64+i);
( j6 V% @9 R1 u* C9 O$ H next;8 {( {# ~0 I. @" ^ x& Z
end;6 J8 A6 q' V. v4 a
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 3 [9 Z X3 S) [5 m) T7 `
% u$ H0 S2 c& U- Q+ s' ^' H; ? |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|