|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
; l4 J0 |6 \9 g( r4 t; ^" K语句是这样的) n4 j5 x" b/ h1 O6 m
is
; [' r$ l' b2 i+ |5 c. T! s5 `0 V i:integer;
" y F" X; m( l& {8 D$ I7 D* | Res:string;
, X4 e* O1 }" ]) s" e obj:object;
4 \2 F: [8 z" h' }' O: K, x5 gdo
( c5 X5 g# Y( ~5 ]: o# b' \4 g" j if existsObject("Status") then. O' [6 g$ j! G, R4 v* j
Status.deleteObject;1 o1 u7 ^+ R; Y) M, k% N
end;% r5 l' q+ E! h: T5 q) P' I& H! ?# K* l
for i:=1 to 10 loop
1 B1 a( K$ k5 S0 Z } Res:=sprint("Store_",i);: B; n% w" l$ L. J9 {5 F: x! b
if existsObject(Res) then% X2 k9 U1 N" h( N `/ ?4 K
Obj:=str_to_obj(Res);3 g8 M( \* @$ h
Obj.deleteObject;
+ A, q" K: A- Y* l% p end;
: A! F# Z/ U! r8 p8 u6 K& ]! i next;
+ M( t% r) E r3 a3 U) W4 l --shengcheng Status:zimoxingceng; O8 H0 f2 T# E- R1 t0 |
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");- d7 C# @) r9 @2 e
Obj.Label:="warehouse status";
` W. A/ |9 l, g2 A * R3 |" H, Z" B) O
for i:=1 to WH_nums loop1 j, M; Y. T# e6 `# D5 N
Res:=sprint("Store_",i);3 l8 T( `. ^$ c2 {/ {% s4 D
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
- j8 M& r3 Z0 T& @3 @ Obj.Label:=sprint("huojiaceng:",i);/ d& O2 T2 C8 | h9 i) I
Obj.xDim:=WH_x;
* I( t9 B4 r- @% h( }3 g' v Obj.yDim:=WH_y;; q, H6 }: F- o" W0 y/ {3 t5 s# ~
Res:=sprint("StoreData_",i);
. d1 \' [) C" @+ V& O
6 p& ^* V/ a/ R Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);+ W3 g) p* P c! A
Obj.Label:=sprint("huojiaceng:",i);* D$ n/ s. c0 @% F6 Z( @
Obj.inheritFormat:=false;
, ]+ n* j z8 b% O Obj.maxxDim:=WH_x;3 d! Z& r5 q+ i$ E
Obj.maxyDim:=WH_y;
% h7 q. w' k; @$ E5 | Obj.ColumnWidth:=3;% Q- G' D) m1 n/ d. R
next;
+ ^7 w4 l4 W9 M. q. Y$ e
1 C3 m* O r& ` .Delivery.MUs.Forklift.speed:=2;' i9 ~( x/ w4 M# @5 y$ E
WH_var.delete({1,Part_Nums+1}..{*,*});
0 `3 N C7 c$ Q# ^ for i:=1 to Part_Nums loop
2 }" I! `+ |# m& `. b/ p) ?' ` WH_var[1,i]:=chr(64+i);
7 e3 I: s7 ^, y D% p next;
6 ~: z: |: G' C9 Uend;. U7 |/ c% I2 Z0 e8 X) g! G1 H
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 , |$ H) Y8 K1 t8 v4 _ d
' j( ~8 a: U/ J! H' B |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|