|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
: F( s! H, `, x7 p9 `' E% U语句是这样的
/ u' B! x6 l5 |is; T, A1 @$ _# X5 P, h4 _1 U, u3 i
i:integer;- n" G7 E5 C" B V+ O9 r8 g
Res:string;
/ d/ ~: `* k/ h& r: z obj:object;) i" t& z& m1 `( M
do8 A1 v( ?2 Y) m; D, u+ v
if existsObject("Status") then2 v+ [8 ] X$ y, P
Status.deleteObject;
" K; a# e% _9 A' ~3 P0 L9 h end;
8 O% {) D2 s4 _1 \0 ~2 e' Y for i:=1 to 10 loop
$ T1 H! o' Z; y2 M2 P" B& n. z Res:=sprint("Store_",i);
( v0 q0 |; q0 I! K ?8 \ X if existsObject(Res) then
2 L' n5 j2 j0 h! i' U Obj:=str_to_obj(Res);
- r$ K }( R' H% J! ~ Obj.deleteObject;' P0 ~& ^/ P$ M+ e9 U6 d2 e
end;
' R& F# P. V5 Y; f9 b next;9 ?+ T6 r- r/ Q5 M: E: ^
--shengcheng Status:zimoxingceng
8 K- R! ?# s) I* P d Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");5 L) p9 |7 _) P
Obj.Label:="warehouse status";# p* s, I8 T2 }* G! U, K
0 e9 ?2 p: e* d" e$ r% g6 d5 ^
for i:=1 to WH_nums loop9 w, l% |4 ^1 G, d+ P, k) P7 q2 U
Res:=sprint("Store_",i);
$ d! x+ Z+ w7 C$ ^) v. H( O Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);# C9 f+ \+ Q3 e6 Q- R. `
Obj.Label:=sprint("huojiaceng:",i);1 _7 M8 ^& D, A7 S2 B
Obj.xDim:=WH_x;0 |- s' I9 s. E' \9 t
Obj.yDim:=WH_y;
7 t: @/ r r" w- e3 I8 g Res:=sprint("StoreData_",i);
( F. Q1 T. [- e. d; p; B1 D # K/ c u5 N4 c' E$ v$ R n! v
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);$ T8 I. t! v1 ^% J, F# V+ p
Obj.Label:=sprint("huojiaceng:",i);
* s$ P4 {6 c0 ]! t; }( G. K Obj.inheritFormat:=false;
5 v: N$ B8 ? j$ S t3 h Obj.maxxDim:=WH_x;. I) Z2 ?2 X2 x! G5 E) a# \ L
Obj.maxyDim:=WH_y;9 Q" q0 F! u: b2 _
Obj.ColumnWidth:=3;
6 F- G# _. k( [9 z& `3 m8 |1 a next; b: T1 N; N$ e x4 E7 ~4 S: C
, l9 t5 R6 D2 n4 n4 C2 s' r .Delivery.MUs.Forklift.speed:=2;
F: S- v$ ?+ w% C: _7 N6 F( E$ ~ WH_var.delete({1,Part_Nums+1}..{*,*});( a$ W! s8 u$ C4 e
for i:=1 to Part_Nums loop
+ Y" u1 v0 i% \$ H# Q WH_var[1,i]:=chr(64+i);
( V) T, J+ N b3 K! W6 {+ d next;4 f; [$ a$ l. U7 z4 g. R! i" ~3 q
end;
5 L! I. {2 \) n2 z1 o出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
/ L1 ?% E' X% e. Q6 c
4 v! m! r% H( F$ U. v, N! C" K" \; @ |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|