|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
7 b% R) W5 L, P9 |4 G, |语句是这样的
! M, E+ L' `$ u2 s( Dis0 C- u, { C' U; D; i4 ? H9 b
i:integer;
7 s# i. d& Y' y Res:string;" P4 \9 F4 ^% h& i
obj:object; o. A' F' x( u, r- P O3 d) s) a% Z2 U
do
# R0 V2 u, U- o5 e if existsObject("Status") then: y' J1 ], I7 |& N+ e9 u* \
Status.deleteObject;
5 |' ?! V/ E j: j9 p end;
% |8 M) Y8 c" T# E* z+ r3 D for i:=1 to 10 loop
( x, u* h# X z: A9 ?3 W, f7 A Res:=sprint("Store_",i);
& l+ B" P* i0 Z4 O3 `8 S5 V if existsObject(Res) then8 w4 Z e- d: z" O& G
Obj:=str_to_obj(Res);0 L5 K3 q& y& |. I
Obj.deleteObject; {, ^$ W) N* G
end;
, g1 Z) L+ \) x& c: r; ?: f next;3 X) E5 _$ n7 l1 ^/ N6 j
--shengcheng Status:zimoxingceng
$ _. M* H) N: n Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
* Z+ E3 J7 F9 G Obj.Label:="warehouse status";8 u1 {$ a/ P5 ~$ M+ a
: e: r3 u6 b" }) G% d( {" j" \- N) ?4 C for i:=1 to WH_nums loop
8 h7 Y; n" k+ D v" ?) {, l Res:=sprint("Store_",i);; S9 h5 ^2 Y8 _/ d; F
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);1 z$ N) r! k! h
Obj.Label:=sprint("huojiaceng:",i);" l8 C- U: k+ m8 g# R
Obj.xDim:=WH_x;% X( A( W4 s" K e
Obj.yDim:=WH_y;
) b( ?( o7 h0 I, n, ? Res:=sprint("StoreData_",i);
8 E. s& Q. u$ q, m7 g" J( k; Z 5 S& I6 ~; W+ Q: ?8 ]( h
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);" ?9 F; J$ S3 e& a
Obj.Label:=sprint("huojiaceng:",i);9 w6 S# k' k( S3 w; C5 |# x2 f
Obj.inheritFormat:=false; N2 _) y) B3 j6 k6 T# R
Obj.maxxDim:=WH_x;, W3 t% a/ ?6 {7 O0 I
Obj.maxyDim:=WH_y;
' F3 k! x" [5 |: q% U, N6 w- x Obj.ColumnWidth:=3;: Q* o+ ]9 u: e6 j: E9 a: r9 T& f8 U
next;2 p; ?7 p S1 z* ~/ y8 i
- Z0 c% a' c/ o5 r4 d- i .Delivery.MUs.Forklift.speed:=2;! K- [% J5 y. f8 z- r
WH_var.delete({1,Part_Nums+1}..{*,*});
, X, n0 P' H+ b% c9 S( S' h for i:=1 to Part_Nums loop
/ T1 _/ o0 R: ~8 _( H. L! B5 p WH_var[1,i]:=chr(64+i);
( J! g+ O. o- \- A next;7 p# d" r2 p, F, i+ P
end;
$ L+ @) y* N' x( L4 W2 ~出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 # C6 ?2 \& B! [9 J& z$ U" ~- m
: Q( R* I% z- f1 O* s/ F& u: X* n$ u
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|