|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。- }9 ~( H' S _2 @; R8 y2 }
语句是这样的7 e' l, }) @8 G% A, g) F9 L S
is, w8 _. d6 A* l/ C( l
i:integer;/ U) M/ ^' o: o7 V5 {
Res:string;
0 g0 C+ M. t M7 F- w/ w obj:object;
" b N0 [" Q/ O% [7 M' M' K0 ddo
N, Q- l: Q/ v# u Y" u8 R; F if existsObject("Status") then
" Q+ i2 P8 M7 g! t Status.deleteObject;" a, M- c9 ]2 O" w6 d
end;+ m! o6 u7 E1 T* C4 X/ [
for i:=1 to 10 loop+ p% t. A0 G5 `- M3 i3 O
Res:=sprint("Store_",i);* n+ u8 U. \1 ?* V! x: e
if existsObject(Res) then
- n0 g; o4 j& f Obj:=str_to_obj(Res);# ^* g% H9 F- w% q$ B6 g
Obj.deleteObject;
2 A, D* H, h; k/ M' f end;
- q; s ^7 l# g3 Q5 n/ r next;% M' R0 m) ^ v$ K
--shengcheng Status:zimoxingceng6 m" Z5 g& o7 f1 [& w: z! W
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
$ N6 ^, Y5 p' E3 | |' S$ r7 V4 [ Obj.Label:="warehouse status";( @$ W( J; z6 K: h+ i+ v- r8 R
: [" z. z8 S9 a! T% p
for i:=1 to WH_nums loop2 @ q5 B: q# ]0 k
Res:=sprint("Store_",i);0 y, I; M7 R' |) Y6 l
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
4 W; P6 \/ _' L! A2 N Obj.Label:=sprint("huojiaceng:",i);
7 {# g( V/ l/ [, u7 ^ Obj.xDim:=WH_x;
0 _$ E ?% D9 `% u9 ?8 D# J q" e Obj.yDim:=WH_y;
) X- m8 ?- Q1 Q7 J9 u Res:=sprint("StoreData_",i);
" O, P$ p( ^% B5 ~
, u" t* q, m/ |! ~" ~ Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
3 b' N$ y3 z/ z1 }5 `) ] Obj.Label:=sprint("huojiaceng:",i);% f. I+ l+ l; M7 k% |
Obj.inheritFormat:=false;
. B# A6 w: }1 \( w" k6 p Obj.maxxDim:=WH_x;9 W$ M& b- ?& S% q% O
Obj.maxyDim:=WH_y;
: N: p7 G( M. J& M3 v' @% r, v Obj.ColumnWidth:=3;
& ^& g. l0 m# `% O8 w4 \( Q( } next;& {1 z' t& J" M( |- q. R, M
+ ~+ m' x) Z: `8 C .Delivery.MUs.Forklift.speed:=2;9 |1 ]' q9 @+ O/ k3 I8 `7 ~
WH_var.delete({1,Part_Nums+1}..{*,*});
0 v8 i( R/ v: ~- C- ~ for i:=1 to Part_Nums loop- U5 [4 C" I( {% X$ r A' P, A
WH_var[1,i]:=chr(64+i);1 s/ Y" j+ N; F$ R
next;% ?6 E3 I* T. S- C6 r0 a
end; `3 ]9 o' @$ @, F, k% K' A
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ) Y# @# V# b3 P1 S# c" T% b0 ?/ C7 c% x
2 y. ~ S. b, N; B+ ~1 t |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|