|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。4 e% S/ I' V# W
语句是这样的) L8 B2 |+ d2 J7 G. f
is' v$ c) l& {/ K/ z1 }
i:integer;
$ h; A3 }" W0 Q0 H8 r Res:string;- r$ Y( u& o" s, ]8 {7 Y4 X$ {; \
obj:object;0 w) f" R; e/ b9 N
do- I! L+ u! g7 N! l% {
if existsObject("Status") then7 ~( h# U' I6 T2 _8 {. C
Status.deleteObject;% [( M' Z# C4 F8 g
end;
! W# _) ]: _; ` for i:=1 to 10 loop
( d: `' A( ~5 K+ Q Res:=sprint("Store_",i);4 I# v \5 h6 t! [: P) @
if existsObject(Res) then0 n* T/ O5 w' \ J! @' q5 J
Obj:=str_to_obj(Res);
3 Y; U+ s/ G& x& c* D$ ? Obj.deleteObject;# Z6 m% ^7 P3 e7 S3 y7 K
end;
9 ?* M; U; r# a7 @" D6 r next;5 @8 M7 O* d& o1 D& S: I; g
--shengcheng Status:zimoxingceng
. j' f1 d3 {( n! O& x* P$ K/ F! ~5 { Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");/ r& {+ J9 E/ k3 j- i1 Y% p" P) I7 h
Obj.Label:="warehouse status";, G( e: q, ^: U1 ?6 P
. b$ d; q" T4 ?) h for i:=1 to WH_nums loop! a" a( t, ^% B5 X) W- S, b
Res:=sprint("Store_",i);+ q5 M a" _) _% p* [
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
2 G% n( D; `6 e- y. P Obj.Label:=sprint("huojiaceng:",i);* q! `. ^2 a! i: ?; z
Obj.xDim:=WH_x;# u) ?1 n' ~: z# o
Obj.yDim:=WH_y;
. W: w" ]) Y7 p" \, Y, I2 ~ Res:=sprint("StoreData_",i);. H' W. Z* N0 D2 \0 t9 _- c* K K
& P5 }% t2 `% C8 ]1 W
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
( a- }& d' M( @! l3 `1 q/ B! ^ Obj.Label:=sprint("huojiaceng:",i);
1 _0 ~- D" m$ ]7 d" w# L Obj.inheritFormat:=false;9 ]5 i K" a0 Y8 T* ?+ X% E
Obj.maxxDim:=WH_x;
5 F% Y- M/ R- i1 X# M Obj.maxyDim:=WH_y;
f' P. K! s/ \ Obj.ColumnWidth:=3;
3 X' v# _1 y/ D3 z& X next;
4 T+ b* F( F' P4 f+ d0 X 6 x3 K7 A( T1 e' @. E, \7 J2 T7 r
.Delivery.MUs.Forklift.speed:=2;/ `8 G% z2 D7 c; s% e% P- F9 J, q
WH_var.delete({1,Part_Nums+1}..{*,*});$ L6 ^2 A/ y; U
for i:=1 to Part_Nums loop1 C5 N4 z: }. c" l o+ n: U
WH_var[1,i]:=chr(64+i);) p3 }. n1 q- h
next;: z0 A: n+ }* m/ E
end;3 D6 D1 L. [# k( _
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
0 K5 z: P4 x# G. O& J/ S2 t+ o/ Q0 ]1 U$ Y) K% ~& d4 v: ^6 |
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|