|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。) x, B( P( s/ R4 y; ~9 L1 k
语句是这样的
) D& H9 }8 Z, I+ F! T: F' Ris0 A$ D6 j+ f) p% o- W
i:integer;. g* s( h4 ] r; `& a
Res:string;' i" p: `& H. N! p
obj:object;
0 ~% m; ^: M; X4 @. f. {% A& Q3 Qdo
2 T N" E# k6 R" ^4 Q8 U: h if existsObject("Status") then
% Q9 C2 ]( @! y* r Status.deleteObject;; Z, k/ V& d/ m& p
end;8 r: e9 o6 _! G+ M% X' z+ r4 `
for i:=1 to 10 loop5 w# o# N! Q: R5 \- ?
Res:=sprint("Store_",i);
% L8 J( W) E" [4 r if existsObject(Res) then
; a* F5 w* o* ]+ N' c! F' R Obj:=str_to_obj(Res);
& C0 M; V8 H; ^+ t. J+ B K Obj.deleteObject;
* W* @ h: A A2 s0 a end;$ s1 c1 O) Y$ A) j
next;. Z2 v7 t, ^' ^$ X" l9 R9 ?
--shengcheng Status:zimoxingceng, G$ H1 M$ J$ i
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
/ |, |0 ^% F/ U ?/ R" u Obj.Label:="warehouse status";% {% k$ M/ G; K2 Y4 r
+ X9 [9 Z# J/ x, T+ U' Q5 w# ?
for i:=1 to WH_nums loop# I) N( b6 _+ X. Z' u0 H
Res:=sprint("Store_",i);
- X6 Q5 S1 J2 T- i7 ]8 g+ C4 `6 H Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);" K. y/ l6 V+ J L
Obj.Label:=sprint("huojiaceng:",i);
% A( a$ B( l) F Obj.xDim:=WH_x;
* l- @( j6 ?( @6 a; O+ w8 J0 g4 j% { Obj.yDim:=WH_y;
' \- m) F) q! _4 K/ @' T8 o Res:=sprint("StoreData_",i);
5 p `! Y C y# ~1 M9 i6 U : d7 e% [: I. K d' a C$ w6 \% ^
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
2 ^5 K' Z x! j4 a Obj.Label:=sprint("huojiaceng:",i);
6 {/ m+ ?# A: v: u1 U( ^ Obj.inheritFormat:=false;. X( f/ D8 O6 L; n4 o
Obj.maxxDim:=WH_x;
1 _) n8 L$ D- V' S I3 }+ Q4 ^! g Obj.maxyDim:=WH_y;$ I# S3 M. g& D: B* q/ d2 t# P
Obj.ColumnWidth:=3;& g+ j5 g$ |0 R3 E5 g4 B
next;
+ z; z; {" Q/ p( \1 W
/ Y7 e- E0 @; t: ^' m& M .Delivery.MUs.Forklift.speed:=2;5 E7 \& D- ?' `) o: P/ `
WH_var.delete({1,Part_Nums+1}..{*,*});
- A( c( q: L( J0 {6 c; k4 S! V for i:=1 to Part_Nums loop: A' F6 `6 T+ l' G! q2 u
WH_var[1,i]:=chr(64+i);
0 z9 F5 y' t3 b2 e next;* K$ N9 z! N3 q
end;5 V! u! L! F8 d2 p" v
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 + ]1 e# l6 b. h, V1 f5 s) N
. P) Y X! h2 s) x, V, g |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|