|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。0 Y, K; \- J" W! Q% j
语句是这样的. P; f; m( s: C, Y3 e K t
is
* a! d2 j9 g, o# _ i:integer;
' I2 [' U9 [" g2 |: O7 U Res:string;
/ L9 z% U. [- V9 N5 Z! T4 A, ` obj:object;
7 u$ y# {% {$ n$ B( S' j) v' ?do
1 g6 n8 v* Y% H& O! ^ P) C if existsObject("Status") then
0 s/ r$ j1 T# ^- Y5 Y Status.deleteObject;3 L9 u8 Y6 Q, k. U8 t% k
end;& d. u& t9 g8 e6 k- u8 a/ w
for i:=1 to 10 loop
, x& z. N" `& }7 Q0 n Res:=sprint("Store_",i);
' Q+ [: n" H7 N1 D2 i if existsObject(Res) then# s+ ~* b9 ], m: u' g
Obj:=str_to_obj(Res);9 o) M0 y7 o% }; H9 Y& @% p
Obj.deleteObject;
8 `. e7 _; x5 E* K( z L end;
3 x0 K, j" \! n next;
6 b- ^, k( w( A% } --shengcheng Status:zimoxingceng1 ?/ }/ W, A+ Z/ J! O/ u
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");( Q$ `0 c8 P+ B" A' ?7 V# ^
Obj.Label:="warehouse status";
# ], g& u8 i7 S7 Y# \
! u: q$ t) }% X: j$ L: S) q# G for i:=1 to WH_nums loop
: T; d% s7 d; j6 I' X Res:=sprint("Store_",i);( N# x) `- A3 [0 O
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
7 w7 }0 C/ j$ {9 e1 C$ k9 E Obj.Label:=sprint("huojiaceng:",i);
6 _6 r) {8 i8 \5 ~8 T" f! j Obj.xDim:=WH_x;6 N& b& [% @: S- T' c
Obj.yDim:=WH_y;
4 i, I4 K! _9 X Res:=sprint("StoreData_",i);$ z- k* L3 v2 Z1 J0 l% ]
! E3 S& u4 x3 M
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
# E; Y1 B$ q4 @, ?0 f Obj.Label:=sprint("huojiaceng:",i);- M1 h1 c: O5 ]1 }1 ?
Obj.inheritFormat:=false;. S. L- @+ a- h; e
Obj.maxxDim:=WH_x;
& f c5 ] O7 J$ O8 v! F- o Obj.maxyDim:=WH_y;
- j0 M' \6 H1 A& @ Obj.ColumnWidth:=3;
q' [2 s* t# k" j7 D) `. ?& j next;
+ L2 y! O) }" W2 X% \
* h- A! o5 Y: f3 s i .Delivery.MUs.Forklift.speed:=2;
9 Z ]9 N3 e- H. n- }8 p/ V WH_var.delete({1,Part_Nums+1}..{*,*});- ~2 Y7 x/ e F! Q
for i:=1 to Part_Nums loop
1 S1 T6 y7 e! ]0 [/ ]" i WH_var[1,i]:=chr(64+i);# H1 o2 y2 H o7 i
next;; ?) d) t; V' B, u
end;8 T. h. C; m% w) j9 |7 t
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
9 C% R% |; G. b1 U9 s. @
4 y& E& J7 P" `. b% h% S |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|