|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。( s6 x% n' W. a" X R$ ?7 {
语句是这样的. T& o" Z1 l) V1 x9 |2 \& C
is2 D4 n% s& C( T E, U7 s
i:integer;
2 y9 _0 P6 q. E5 B. X Res:string;
/ Q- b4 z7 K3 a) P+ X1 @/ ~- J obj:object;1 u& f/ ]9 m; \1 l! h6 E3 }
do5 x. ~1 I$ L" `+ q: Q7 p( E* X+ v2 ^8 U
if existsObject("Status") then+ t$ Y9 ^ x' N- t* i S: Q2 O
Status.deleteObject;
7 ]8 s" r' e8 s( w- n: R7 ^* E! x end;
& p2 J. [( h) @ for i:=1 to 10 loop$ A1 j+ ], k" J
Res:=sprint("Store_",i);, K# n9 x+ w( @& D# e. w
if existsObject(Res) then
' }1 U- S1 I, F `: {: c/ { Obj:=str_to_obj(Res);
) u: x7 b: l& v Obj.deleteObject;! \/ G# {+ I0 o$ v! X, Q
end;4 ~+ B* T% ~3 q7 I- A: p
next;/ M* t% S% E0 V V% U1 N6 J8 M5 y9 F" k
--shengcheng Status:zimoxingceng
' N4 Y* o' \: c7 @ Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");/ i" k" N4 Y& ~
Obj.Label:="warehouse status";8 n/ B' z( f' U5 m, |. \
/ w7 E. j+ n2 N# w; w7 S for i:=1 to WH_nums loop% j5 W4 u3 R9 j0 V$ ~" D0 |
Res:=sprint("Store_",i);
2 l6 e$ H4 G* p# ^ Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
- F8 j, X1 D8 ~# D+ L Obj.Label:=sprint("huojiaceng:",i);
/ P; U( r9 B/ p+ U/ g3 s- } Obj.xDim:=WH_x;
+ A4 E, w& S' s8 F" q: i Obj.yDim:=WH_y;' y& ~% s1 Z: C* F3 j7 ]/ p
Res:=sprint("StoreData_",i); ]7 v5 J3 R5 X' U8 @
5 u/ G: O3 u& [, d/ y Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);( |, L* [7 I6 f
Obj.Label:=sprint("huojiaceng:",i);
+ N n" l5 q* g; p Obj.inheritFormat:=false;; |- q/ b7 E6 i, }
Obj.maxxDim:=WH_x;
, Z% f; ^4 }& H4 i, m$ K4 c Obj.maxyDim:=WH_y;
& n2 y0 I" _. m9 X% E9 j Obj.ColumnWidth:=3;
! [, I! d3 B0 C/ K! B$ O. j next;
0 X3 i( h5 w2 x2 ?5 i0 C' ?) _3 c % N: K$ P J, q, }
.Delivery.MUs.Forklift.speed:=2;# U k, i2 n( u$ P
WH_var.delete({1,Part_Nums+1}..{*,*});
$ k4 F [ {" @ i% |+ b( F for i:=1 to Part_Nums loop6 R4 p; |% g9 x
WH_var[1,i]:=chr(64+i);, n& e3 i& w7 q) X1 K% o
next;4 z9 C! R* Y! l0 t, Y9 W
end;, T* T; C' g# }# l
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 2 U3 \& F8 e- V
& [3 A; z: ?; e% f @3 z# b) ^' [
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|