|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。9 T7 Z. Q1 w5 `
语句是这样的0 g8 T+ P" E. M" ]
is# N5 L1 v/ ~# n1 ^- d! b
i:integer;8 K0 A. {7 E9 X. H
Res:string;1 y/ Z% P6 s, W S
obj:object;
; |. N4 W$ F9 |: G3 k) [do
1 ?# o6 H% M% P* a! z1 t if existsObject("Status") then+ C1 R. p4 ]& Z
Status.deleteObject;
+ r9 E( ~: ^3 ^: o0 O2 H end;' J+ ?4 m# z3 T9 y. t
for i:=1 to 10 loop6 i% {0 @/ A; x$ r9 v& _6 V9 B
Res:=sprint("Store_",i); U; Z/ o( B9 ~( T+ y
if existsObject(Res) then8 e2 d& J8 Z: h: x) R5 L% m
Obj:=str_to_obj(Res);
' s! }0 t9 k0 i ^& G Obj.deleteObject; ~- g( [7 }5 P
end;- v7 {0 B, [' g- s9 C, C) k
next;/ L+ P0 r' X4 H" w6 {8 T7 Q
--shengcheng Status:zimoxingceng
2 J# I% Q3 t7 u. a* j; ]6 f Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");' h9 H1 |& P2 e3 ]9 A! M6 m/ Z
Obj.Label:="warehouse status";! E7 e- w& G" l9 D3 K$ h' q, x
( A* C& O% J' P" d, {* q for i:=1 to WH_nums loop1 y# H& h* y0 J$ v' O8 ?% U
Res:=sprint("Store_",i);; ]; V0 p5 p" }2 r2 s
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);5 v- B# l! \2 k; ~2 R9 w( I" L
Obj.Label:=sprint("huojiaceng:",i);
$ k' ]7 K$ \, {# U7 A Obj.xDim:=WH_x;+ y8 F% i9 x- H4 f1 P
Obj.yDim:=WH_y;6 ?0 g- e/ f/ @: }9 E
Res:=sprint("StoreData_",i);- Z! k9 i6 v1 ` J5 W. R% T
% X. Q. f" Q/ E; y1 V0 ]$ q Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);3 z |4 K5 [( M/ v" T" T
Obj.Label:=sprint("huojiaceng:",i);
% G3 h# u" t( }' f: P1 E8 j0 Z Obj.inheritFormat:=false;
7 n7 s6 [0 @( R! E& G3 w6 c& x/ c Obj.maxxDim:=WH_x;
7 M$ E' E, j6 F; `1 _/ _8 _* |( m Obj.maxyDim:=WH_y;
@0 |) e/ u# ]& }5 _8 K h) F Obj.ColumnWidth:=3;) O; C1 c e" k
next;
3 p t+ p; g+ p& Z0 ` ! ?( v- D F5 u0 D& Y
.Delivery.MUs.Forklift.speed:=2;; E7 z1 s% z Q, v: j
WH_var.delete({1,Part_Nums+1}..{*,*});( m" W0 o7 D" U
for i:=1 to Part_Nums loop \4 s; y, e* a, }( u& M
WH_var[1,i]:=chr(64+i);
5 I6 k3 i: D9 u8 k' F" Y next;
7 A4 ^% {* o) W/ k e4 p" Bend;9 e+ F" i( P/ |0 e# l. I
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
5 V3 X- @, B6 b* s+ |7 U! v; ?) k. L0 H2 a5 q7 N1 k6 z8 O
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|