|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。( u* Y9 Z# V5 p' E4 N
语句是这样的7 w% | X4 |1 Z2 ?; U8 {% |8 l6 G( X
is( i3 F! I& G9 O; e, N
i:integer;
0 m0 T/ _- K% r9 P. V Res:string;
) i8 A; ~6 @7 r( m; { obj:object;
1 Z6 ]' I0 `; M9 a+ |do X5 C( Y0 [* g \0 z3 q
if existsObject("Status") then
# @* I! O/ A8 ^# g7 @- a Status.deleteObject;
' {) T- q9 j8 L' ?' m5 ^5 B! z end;
9 v7 v& T) c- s4 o( [0 S, W& J for i:=1 to 10 loop
: K" \, j6 J. t0 `6 J Res:=sprint("Store_",i);+ B1 O5 W: b. C( b
if existsObject(Res) then7 q# ]/ V! l% D
Obj:=str_to_obj(Res);0 Z3 ]" D) B. E
Obj.deleteObject;+ b G9 c$ W4 Y7 x
end;
' L% u5 I0 \7 S } next;4 L8 c& D( N/ i' R4 ^
--shengcheng Status:zimoxingceng
! b/ Q3 r" {( K Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
- L9 G6 ^. |5 R$ u( s( J Obj.Label:="warehouse status";
2 M1 c7 g' }* [+ W7 d, Y
: D2 F$ f+ c/ K+ {' S8 H3 e! r" U for i:=1 to WH_nums loop
7 E: I; Q! _& \8 ?0 b# F* H' } Res:=sprint("Store_",i);
7 [& z" o9 Q5 i( L$ C Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);/ k/ I* f7 u! g# D
Obj.Label:=sprint("huojiaceng:",i);
: P D" B* z ^5 N Q1 R7 Q) h Obj.xDim:=WH_x;8 G4 k4 E3 V. k3 @% g) ~) L
Obj.yDim:=WH_y;; c; f5 ^0 P2 Y% w! u0 b
Res:=sprint("StoreData_",i);% S$ ]% C8 W% r3 t6 D! Y1 s. z
5 A. w9 u0 ]+ N' w% \ Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);2 ^3 F$ P) k1 j
Obj.Label:=sprint("huojiaceng:",i);
8 F7 a6 W3 ?( Z; J3 {9 Y! ~- Y, d Obj.inheritFormat:=false;
2 a& X& ]0 l6 a8 l! m" U/ H Obj.maxxDim:=WH_x;5 x F& N6 L: y9 ]' o3 M( j
Obj.maxyDim:=WH_y;" S9 h3 o$ ?# y
Obj.ColumnWidth:=3;5 Z" e, _6 N0 t8 I/ R" H4 A+ I
next;6 V, B6 k% H( \, V+ Q0 o
' k# v; N/ {! I. O .Delivery.MUs.Forklift.speed:=2;
- {; r u& v& [8 { WH_var.delete({1,Part_Nums+1}..{*,*});
@: u% z! m6 l6 w4 ]' y6 N/ ^. f" @* { for i:=1 to Part_Nums loop/ m5 s+ d: p4 d$ p) e
WH_var[1,i]:=chr(64+i);
% F! M9 {& r* o' z& m2 v( j next;; p2 d- Z1 ?/ Z, j
end;9 _4 D" C8 {% c4 d2 Z
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 & I& w$ f9 H' p& ? o
& t8 u- R Z- W" t9 S- y7 S2 {
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|