|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
6 [( p7 i& X: b, }8 m$ E' Y8 m7 i. ^语句是这样的
" D7 Z) |* n/ e3 h% @) k+ c8 B& j! d+ ris
$ B2 M- I9 ]( o* G i:integer;
" o! R9 d4 N" c Res:string;" T, ?) O$ K: ^$ V
obj:object;7 n m# b$ ]. y$ x5 |
do
7 g7 k) @7 D3 f5 _ J/ i: a if existsObject("Status") then+ s% R0 ~ B* C0 S. [4 |& z
Status.deleteObject;
4 I- S* t# b# @% h( B: k' y end;
& K+ r5 J7 k r% L$ V2 d for i:=1 to 10 loop Q: A3 X$ ^0 ~* [/ S
Res:=sprint("Store_",i);
: F# l( t: v5 E if existsObject(Res) then0 ?) }+ y& _, J/ Z- I" }& l3 S
Obj:=str_to_obj(Res);
; G, n5 @( Y1 ~7 u; ~ Obj.deleteObject;
; z! j: f5 h& j% @ end;. [6 K' ^7 K. C: D1 f# ^/ w
next;
; e+ B9 K, u! T* D% Q --shengcheng Status:zimoxingceng
& w+ g# g+ k, K Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");, J. V0 }! C" i9 m" M4 z6 U
Obj.Label:="warehouse status";2 U* L2 r2 `, J+ N: ^
) d3 [) M" w. z5 v/ v7 K
for i:=1 to WH_nums loop
; S- }) V6 j) ] Res:=sprint("Store_",i);1 m: p8 ?' x" A, I2 d' Z5 }
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
~$ O0 L$ M4 @% @' n Obj.Label:=sprint("huojiaceng:",i);
) |% Z4 N* J+ S, a: R6 k9 F Obj.xDim:=WH_x;# h7 {2 {3 Q, Y* A7 q7 e9 @# }
Obj.yDim:=WH_y;
% ^( M7 c5 I# ]+ Z. c) ] Res:=sprint("StoreData_",i);
- N+ r5 ^4 Y- ? 2 O5 K- Z: ~( N" [ D
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
6 t# `" q$ Q3 S$ \; l Obj.Label:=sprint("huojiaceng:",i);& M) ^6 M5 e/ v" n
Obj.inheritFormat:=false;( L7 e7 s4 y+ o Y
Obj.maxxDim:=WH_x;8 y0 M9 k1 |$ n, ], y1 [2 B
Obj.maxyDim:=WH_y;
( U1 x/ R" x+ X" E) k* ~% ^. z Obj.ColumnWidth:=3;5 K W9 L6 A, p; ^
next;
+ I2 r$ ^, F1 U+ E1 X) i: [ 9 N' o: e7 j( R) _: ?# [ F
.Delivery.MUs.Forklift.speed:=2;: n/ X" N& c! D! t/ S0 [4 Q: D
WH_var.delete({1,Part_Nums+1}..{*,*});2 p# G/ n# e- y9 H
for i:=1 to Part_Nums loop
% I: h4 y2 U4 F- A% u WH_var[1,i]:=chr(64+i);
6 w2 O! F2 `# b5 q8 V; G next;
) N% e6 Y1 e* z4 M6 @8 nend;" P) q" z2 Q7 C2 C! S
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
. ]5 n8 l" v. ^6 Y1 e O F) u+ x: W' B( f& F
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|