|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。# N$ Q9 w+ u1 W$ z/ {8 u8 l
语句是这样的9 X/ f4 A; g! N9 A) d0 a- F
is- D- w V6 h9 J4 V1 h) k0 A O
i:integer;. w+ f* |8 ]% c" a
Res:string;
* N& q8 Q; B# }; ^5 F; p1 ] obj:object;" J. H! F7 s, ~" V
do
/ i& e% l/ i* K1 w% t( |. ~ if existsObject("Status") then3 M4 U% E6 w* T d; K
Status.deleteObject;5 T7 m ^0 W0 k
end;
' |! \' r: j0 [' o9 _7 S for i:=1 to 10 loop
* N% Z" e8 b Q Res:=sprint("Store_",i);
" j- X5 M6 m3 T7 c2 I2 V7 z& T6 T if existsObject(Res) then
: h* f l7 n# @ Obj:=str_to_obj(Res);
8 G2 T. K/ [! X( H4 N* x O Obj.deleteObject;! ^/ X: F5 b$ f7 f) k' [7 V
end;: n9 r8 ?9 [/ n1 s/ h7 p M
next;. N+ j- Y) K( C' p
--shengcheng Status:zimoxingceng
1 q. e- |. I! h$ y# @ Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
9 h7 s2 L u8 E- a4 @ Obj.Label:="warehouse status";
* n2 w& I& t" T4 N0 G
; s* G) j# p" N6 P: U: b6 S for i:=1 to WH_nums loop
0 n+ N' E1 ?( F- i: i2 c: i Res:=sprint("Store_",i);* x r9 T6 |8 I6 Y& B0 M' w* h; E
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
, e' H; C/ A. e$ ^ Obj.Label:=sprint("huojiaceng:",i);( L3 k: J2 v/ j' V* P
Obj.xDim:=WH_x;
2 j: [9 h8 Y$ } Obj.yDim:=WH_y; m* T+ w* I4 D1 o5 b$ X
Res:=sprint("StoreData_",i);, E$ R! D& \2 }/ h
* T0 x0 N; d- x7 T: y
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
1 f$ j1 f0 U/ o0 l9 o2 v9 c Obj.Label:=sprint("huojiaceng:",i);
' |1 Z# L- w. k$ @ Obj.inheritFormat:=false;
" x' z# t- j8 q) f Obj.maxxDim:=WH_x;
4 R" R& J4 d7 n+ A% i# g2 _. V Obj.maxyDim:=WH_y;
9 O3 X# n# N/ ]' A Obj.ColumnWidth:=3;' H0 h& N* K8 M+ }
next;; n6 V* }& e+ A* u8 s& N6 t
9 R# v" |# ~: e/ z/ a5 ]: C
.Delivery.MUs.Forklift.speed:=2;5 v( o6 M, C8 L y9 d0 f
WH_var.delete({1,Part_Nums+1}..{*,*});( M* s4 p/ c- c- r, V
for i:=1 to Part_Nums loop& Y8 o/ T4 y7 l. s9 B* C( e0 h
WH_var[1,i]:=chr(64+i);1 n! m; s9 }- o- U- _
next;
( `7 |! O0 ?% ]3 M# t7 ~: J% U6 send;
' L3 I. j2 ]) b2 v* x h出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 , m% U0 J& _% H/ |3 ^9 r) J+ Y
3 |8 p2 D4 C$ E. e |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|