|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
# `2 p, W; `2 ?9 r* o+ b+ x语句是这样的
& f( M$ V8 N5 d2 `is# t' p( V. d# x
i:integer;. m8 B; n; }0 @7 [
Res:string;4 @" J; m }4 V2 F- j: p1 \# l
obj:object;
3 A6 ?, c5 G- G! _7 Edo
/ ^* {* f) X+ C0 |6 O; { if existsObject("Status") then s* i+ l; j n5 Q! ]) u! j4 |
Status.deleteObject;% x3 e% r' k6 B6 I, }* A& u: A
end;0 ^9 h. `- y. `
for i:=1 to 10 loop
: m) E; u8 w4 y- g* \! r Res:=sprint("Store_",i);/ {6 J5 Z: i, |6 h$ ]+ P
if existsObject(Res) then7 F* }) f2 H- o# v+ D. D2 U
Obj:=str_to_obj(Res);
5 A$ N: f6 L2 D Obj.deleteObject;
d8 a8 o9 R2 \$ t" F end;5 |/ G F o9 |$ C, R
next;
! W& @/ M" [* W) F# i1 e% _ --shengcheng Status:zimoxingceng
1 @3 @1 N" k6 J: ^& e9 y$ V- Q Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");: ^6 g- C0 u" j2 L. j: F' L$ E' Q
Obj.Label:="warehouse status";
8 `) T8 [# z& Y) v/ A . R. B. M! |5 P, i$ G% ?
for i:=1 to WH_nums loop
9 J+ y1 i1 r/ I: g1 O1 N3 F4 f; @1 v Res:=sprint("Store_",i);" P& g) M' h0 x) X$ ^
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);4 E( _! U1 ^5 g5 o+ B
Obj.Label:=sprint("huojiaceng:",i);, D* O5 X6 | `
Obj.xDim:=WH_x;
% `3 Q5 t5 G0 ^; |- | Obj.yDim:=WH_y;
. U+ N7 ~3 y* c( F1 s7 U0 } Res:=sprint("StoreData_",i);
) I2 \0 k- ? D" r% G- a4 N' m7 V
$ I7 p- G% D3 Z Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);) k4 M1 U! l3 e ~3 C6 m0 v. g
Obj.Label:=sprint("huojiaceng:",i);
4 [) A6 y% \( M Obj.inheritFormat:=false;8 |0 K0 w5 N8 S! C
Obj.maxxDim:=WH_x;/ ?% B4 ^9 Z# @( Z
Obj.maxyDim:=WH_y;8 i% Q9 c% C/ a' x5 e3 q5 O) B
Obj.ColumnWidth:=3;
+ M( g/ A- m; R! Q$ i I- Q, _ next;, m3 G$ V: x' q5 D8 c9 j, ^/ p2 D/ O
2 O. J2 A" U. [" ] .Delivery.MUs.Forklift.speed:=2;! j7 L/ U- t$ _9 h9 ~4 N
WH_var.delete({1,Part_Nums+1}..{*,*});
) d& b) {% _- g9 m for i:=1 to Part_Nums loop2 F3 Z3 W \1 x4 M/ G
WH_var[1,i]:=chr(64+i);# f) k. s2 {# A8 r
next;8 y: d8 D5 I( ~: @) R Q7 N
end;& m9 t: h% y+ F" O* I
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ; h, E7 c& x& b! C3 M& `' S
# }" ?7 t) T1 v4 H. I( C |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|