|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
" p- C. p4 S; e1 `8 b9 c* Z7 ~2 \( A语句是这样的- n. a' }7 D$ O0 \; d( s; T, U
is
1 d! T; u, v9 ~& ~! W- u5 o i:integer;" f' }7 I& u1 ]! q, h( I. D
Res:string;# M; M$ p8 ]. m" C; F8 P. t
obj:object; {4 H. o% w( R( Y" c
do
& L) X7 T" x. u3 |! ^ if existsObject("Status") then: m& x2 e& Q7 P1 {
Status.deleteObject;9 Q, l8 k# G n, U2 A5 A
end;
w( z+ M/ f- L6 { for i:=1 to 10 loop
6 M# `5 N" w) P- ^( J6 H! P Res:=sprint("Store_",i);
: S4 K+ P: W* c if existsObject(Res) then
+ o7 |) Z& f2 m; J+ v Obj:=str_to_obj(Res);/ l' G* X1 T& N1 Y' d
Obj.deleteObject;
5 M& w0 a$ t2 W1 l2 n( m# N end;
r* M) T: a/ |4 Q+ O# u next;0 W" {& f6 ?5 [% \+ Q3 i
--shengcheng Status:zimoxingceng
* ?) N. D' n6 Y4 U; \0 A% p- I Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");/ S8 @1 D+ `7 U0 A
Obj.Label:="warehouse status";* Y+ B7 P* s8 M" y; @
a' c$ R# {8 u! p. b: P6 b
for i:=1 to WH_nums loop3 |( ?. Q8 l) y7 N
Res:=sprint("Store_",i);
. Q- l" I# e! } Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);8 ^# @! q* ?# }8 k% }8 u- o* j
Obj.Label:=sprint("huojiaceng:",i);
( _5 G, T; B4 W Obj.xDim:=WH_x;% m- t: t, \3 `
Obj.yDim:=WH_y;
# @% U- J/ M3 b Res:=sprint("StoreData_",i);6 ]; X9 [* x, S, z5 G( c
F' P5 T. @) R' ?# y- Q5 d Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);( a( ^/ p* C; N9 O
Obj.Label:=sprint("huojiaceng:",i);4 N5 u3 T) E, C9 ?0 E: j: @* N
Obj.inheritFormat:=false;
3 ]. Z {$ c0 x3 p* R! W' d+ J Obj.maxxDim:=WH_x;
' L! h6 Y8 x9 i, C* V$ r Obj.maxyDim:=WH_y;5 R+ ~: _) {% d2 x
Obj.ColumnWidth:=3;; d" b. ]4 ~1 v' C
next;
# J9 @0 G, O8 {+ K) ?0 f5 R - a! @0 R0 W' `# l) l
.Delivery.MUs.Forklift.speed:=2;+ r, d; Q6 i" v& G5 l3 s% j
WH_var.delete({1,Part_Nums+1}..{*,*});
7 j; w2 a% O0 c* q; ~7 z4 v, J6 F for i:=1 to Part_Nums loop. K, ~, W6 A$ O/ F& C, ~+ j: v
WH_var[1,i]:=chr(64+i);
0 |4 l$ U( S! x; ]" E5 z8 C next;% S) r" ?( O( g. i4 e; K
end;
5 e+ j$ h* w: B出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
% f0 x6 V! Z. N+ b
, D4 ?* b! D6 d6 C* e8 a |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|