|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
Z ]3 ~( {% s语句是这样的6 e/ g0 s0 F+ U( w3 E# y9 {
is4 c3 j: L" S8 I( Q1 R
i:integer;) R/ N- b/ d& X5 _$ C
Res:string;5 y7 v7 y, l( M# Q, j. e9 q, n
obj:object;2 S9 U' J6 o5 s, W g
do
' I9 n( W+ ]% X, j+ c if existsObject("Status") then) h! w, v; ?5 I: P( A4 g
Status.deleteObject;
5 \9 r' o7 t2 K4 L/ X end;
' {# I; f7 ^$ n, m0 z0 N for i:=1 to 10 loop! q0 |2 u1 X$ X2 t* S* c
Res:=sprint("Store_",i);
% G. ?0 Z" i( }* Y8 W if existsObject(Res) then
2 u% ?. ?' ?6 y8 B p$ u" M Obj:=str_to_obj(Res);
/ P" H* c! b' W+ t+ n Obj.deleteObject;
1 O) p* `7 _. l) k6 A3 l9 w& U end;4 K6 [+ I1 C; k* f) ]) Z4 ~
next;: U: V& N) q' P9 `2 r1 E- N5 E/ V
--shengcheng Status:zimoxingceng0 C7 u* |% W' j. H, T
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
, `0 c) k0 Y. g; }0 p1 J9 c Obj.Label:="warehouse status";2 V$ J# l' M& L& n
$ Y9 _! x* q9 U) o
for i:=1 to WH_nums loop c5 {* C+ e2 m0 R8 J! f
Res:=sprint("Store_",i); z$ G# B3 {. N$ L- L+ Q- m$ j
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
# T' m3 P0 L( t Obj.Label:=sprint("huojiaceng:",i);7 j4 ~8 b1 O7 c& E" Y8 h( Z
Obj.xDim:=WH_x;
. ~% z- p& D$ R1 h* w' F& n Obj.yDim:=WH_y;% |% } W: |( Z: h
Res:=sprint("StoreData_",i);; g* V! t+ q6 H; I
g9 m5 o( }/ b5 X Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
9 I, r2 s0 v( n1 S/ o" x, l6 ? Obj.Label:=sprint("huojiaceng:",i);
6 }" a; p2 l+ R3 N Obj.inheritFormat:=false;$ F: z; A, D, w' h9 _% P
Obj.maxxDim:=WH_x;) e% o$ |& c U7 S! [; T
Obj.maxyDim:=WH_y;- Z* x2 @" E& r6 `8 a* E: T
Obj.ColumnWidth:=3;$ @5 |# c9 K8 L1 T' W- M
next;1 V' s# r" I* ?! m" y7 |* ]
, s& \9 Q, w g/ C4 `' _- S7 E4 }
.Delivery.MUs.Forklift.speed:=2;
1 Y4 q# }: z: M6 {, [7 | WH_var.delete({1,Part_Nums+1}..{*,*});
2 S/ T# b8 {' y" [ for i:=1 to Part_Nums loop, z, e0 }9 B( N) @
WH_var[1,i]:=chr(64+i);2 P X, p" w% @; y: d! Y
next;
+ A9 C' [, z3 dend;" @1 b' V9 o! i# {3 g
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
& _. H* b" [8 B4 F' c+ p( N ~6 n3 {1 {& t( v, n
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|