|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
1 C4 |; m4 l$ k4 Y, F. S语句是这样的% U. O; G6 V0 t+ ^: S) E$ O
is1 P# j0 A. V- }- J9 @) q7 ^0 W
i:integer;
7 n4 n3 r" S2 _$ }: J Res:string;* _3 c# f4 Y3 X, X9 O) k
obj:object;
* w c' A1 A q# v9 D# jdo
3 r4 ~# Y/ \9 C2 Q if existsObject("Status") then4 b" w) f7 M( h9 Z+ P( {
Status.deleteObject;
! T! Q: ~9 L& ~+ L j end;
1 I" X, Y/ b# X3 }! C for i:=1 to 10 loop( C4 F' t) x: n9 m8 l3 H; ]
Res:=sprint("Store_",i);. {3 ]/ }$ }* W" `. }2 z) D
if existsObject(Res) then
- X8 k: j! t2 ]. @9 Z+ r* F Obj:=str_to_obj(Res);
/ b b% ~4 V% w Obj.deleteObject;/ a) I' x& n8 E7 A
end;$ k9 b+ ?+ k" K2 h6 W2 [) _
next;
7 `: e6 b$ b. C, X% S --shengcheng Status:zimoxingceng* L& g6 x# e' g
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
5 [$ f. ?: \5 R: S L( f Obj.Label:="warehouse status";+ n; M6 p& C' f9 Y. y6 [* w8 b1 j% b
5 H; Z3 B. ?+ I# w% m( H* g3 A- @ for i:=1 to WH_nums loop
" w* M, X7 I* J4 k Res:=sprint("Store_",i);
: R& X9 N. `+ o4 Q9 ]$ J Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);: ^6 y( U4 U! z% A& C0 t2 [
Obj.Label:=sprint("huojiaceng:",i);/ z; y/ [4 P' o v& A! N
Obj.xDim:=WH_x;* K) `$ j7 d- X
Obj.yDim:=WH_y;
# l" w f5 I7 J0 J5 c Res:=sprint("StoreData_",i);
6 k4 f% C3 B" g" P 8 D. n2 F* X, j+ B
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);4 a) y( B% p' ^3 b0 v
Obj.Label:=sprint("huojiaceng:",i);
8 o, u2 G! j+ r. H' A+ P Obj.inheritFormat:=false; {! A) S) |; h+ R x
Obj.maxxDim:=WH_x;; I( k3 b/ O4 T" a
Obj.maxyDim:=WH_y;
$ u3 @8 M" G3 E* S7 a$ S" D Obj.ColumnWidth:=3;
* O7 F! O+ @) ]" Y# r' F next;$ b8 H- j$ w5 w( |( K4 j i
3 d$ ~5 m- u4 H3 I .Delivery.MUs.Forklift.speed:=2;. {# G+ e( y, y0 P: T/ m
WH_var.delete({1,Part_Nums+1}..{*,*});
9 k& a8 g- U! t& x, K Q, [ for i:=1 to Part_Nums loop0 q1 q" \" v Z2 x/ z6 x% L
WH_var[1,i]:=chr(64+i);/ y2 V2 T( C$ M# ~, O3 o
next;
9 e( \! a+ ?' |; C; i7 O) ?8 W# rend;- `, _2 `5 u( t% |9 p1 ]' K; I; _
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 9 ]& M( \1 o! z8 |& G7 D
! \( G0 r- h: s- ?) H/ v; A3 M7 R
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|