|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
% w" b. A$ M6 J! O8 n语句是这样的( e' }- Q& i, R% Y
is
( d4 T$ N+ h; l/ O( J7 |" { i:integer;
7 T) ]6 F# E- [! U# ]! j! e Res:string;7 O! M, G# o! n# q
obj:object;
L3 R4 ~5 i; S; xdo' o1 q1 ~1 J5 a) s+ m# s
if existsObject("Status") then1 ?7 v7 c/ Z* l5 Z8 X' k
Status.deleteObject;$ a3 I! J! a0 r
end;
* p! m9 M( V9 U! ^% l for i:=1 to 10 loop
. N, F6 ?. F. {5 J7 P p Res:=sprint("Store_",i);9 c/ [% f2 r$ Q, R/ V
if existsObject(Res) then; d, W+ q* I1 l4 w/ s6 l3 J, H
Obj:=str_to_obj(Res);
* K" e U7 j1 g; ~" R3 m: | Obj.deleteObject;
E+ n" y: T/ Y, m end;- o7 b1 Z4 L# w8 }; N* Q: V9 ~1 O
next;
( P r. q3 T# M3 x --shengcheng Status:zimoxingceng: `: t) d" V3 K- O. r: h/ W
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");. h, L8 z" M$ d# D8 j
Obj.Label:="warehouse status";
8 U" p& `2 e. R" d; u
$ b5 v) l+ @! D0 b T' u for i:=1 to WH_nums loop! M/ t" b" c) K" C( ~
Res:=sprint("Store_",i);
! p# f" E, Q/ ?$ B9 W' ?4 o Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
/ `8 l" o# L" Q. j Obj.Label:=sprint("huojiaceng:",i);
0 a4 G$ W1 g9 I- v% X8 I# {! m7 w Obj.xDim:=WH_x;
! I1 y! t4 r7 x Obj.yDim:=WH_y;
) G3 j s) a" w, o' a' k Res:=sprint("StoreData_",i);# B# B- S. I+ D8 x
8 I; `0 s' j5 `" ~! O- J
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
3 T8 j# \( G6 u' e& r! |" j Obj.Label:=sprint("huojiaceng:",i);
6 Y+ ~8 e7 ^. e. S6 }0 Z Obj.inheritFormat:=false;' s( [- L+ j" j
Obj.maxxDim:=WH_x;* v4 d: e7 ]6 B N( E" }4 {) Z
Obj.maxyDim:=WH_y;; J/ G _) e& E2 _3 b# {
Obj.ColumnWidth:=3;% @5 j3 d1 v( [; f) `
next;( a1 H' n* U( G. g
0 Q. ^. X& w* c .Delivery.MUs.Forklift.speed:=2;$ c5 N! a& x+ c* b1 {/ I X
WH_var.delete({1,Part_Nums+1}..{*,*});( M `5 W. N0 G! d
for i:=1 to Part_Nums loop' o( G9 r! k3 J+ M, F
WH_var[1,i]:=chr(64+i);$ D2 w7 q: B0 i# _, G
next;
% I5 }, U H1 n1 yend;
0 N9 J q9 @& J! d8 g6 A( R出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 - h" J! ~8 K$ N0 L9 r5 U
- Z [- i& M" Z7 F0 M9 X9 U |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|