|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
e$ ]* P# q% e; i语句是这样的) E2 l) B- `+ B' C1 @
is, G! m# N0 m: K1 I
i:integer;
: ?8 K$ D8 ~) ~( f Res:string;6 ]6 }, _3 W8 `% U/ l& c
obj:object;; y+ n; r% ~* v& b" S3 J \9 c6 [# X
do
# g7 E$ Z9 h# D* X; V$ g if existsObject("Status") then, t/ ?% q* _2 w$ p8 X9 M& p; ]3 o8 v
Status.deleteObject; H$ [* S' o8 M& G o
end;" r- x; R( } g& A+ ]; v& U. t* n
for i:=1 to 10 loop
3 b9 s* z0 b0 f8 J) ` Res:=sprint("Store_",i);
7 e5 _( h3 r0 U8 j7 c4 f if existsObject(Res) then
8 @* p" i8 s+ ] Obj:=str_to_obj(Res);
Z+ m% Y% \) T5 n/ {4 Z Obj.deleteObject;
- I% x3 ?0 o" q& w end;
9 Y4 |! E+ J$ T( \% Q7 k next;, `$ Q! K& J- x1 S
--shengcheng Status:zimoxingceng
; @1 w3 u: `3 y7 V. U Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
e4 v7 S4 w% J. t! _ Obj.Label:="warehouse status";: e! o6 {* s/ C# n1 j& p- e
. k6 x- j# s/ n; ~! a. n K6 z for i:=1 to WH_nums loop p( a" v. V. J
Res:=sprint("Store_",i);
2 y7 Q* u$ e( `5 L Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);) M& k8 b- F( n! u' ` t+ u% @
Obj.Label:=sprint("huojiaceng:",i);# @& E# f9 {7 R5 e
Obj.xDim:=WH_x;- S) i. l9 j# t+ N% W5 k8 A
Obj.yDim:=WH_y;7 |/ X! t( }0 W9 L7 [
Res:=sprint("StoreData_",i);
# s _" g, ]3 R9 [- M0 z5 E1 x9 Z# x 7 p% X7 [7 v. }- C9 v
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);) |2 J$ K# R, N% s, |, D) _
Obj.Label:=sprint("huojiaceng:",i);* h/ P6 o& A2 D* F
Obj.inheritFormat:=false;$ B% r* |& b* `8 M U& c9 W
Obj.maxxDim:=WH_x;( n3 P* |% V! [8 U, T/ h
Obj.maxyDim:=WH_y;
: U6 R9 q8 a/ F4 g2 _ Obj.ColumnWidth:=3;: Q& ]; i: i' I0 ]
next;+ h! o* r& o% Q! A# k7 S6 ?- z
9 s" g- R& R5 g, G .Delivery.MUs.Forklift.speed:=2;
( {; F/ F- N& U |) P* a6 h6 H9 D5 a WH_var.delete({1,Part_Nums+1}..{*,*});
. D4 g$ ~, l) v for i:=1 to Part_Nums loop
& i; {3 g% e6 H% p WH_var[1,i]:=chr(64+i);
. h K' S' f$ T# h2 [0 d9 V next;' S: I c& d5 F5 z( g8 ~3 k
end;4 q( M6 Q3 a( O: S S, j
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
) y8 J( q1 {# M2 E" S' p. z
: s' g# d+ ?8 ]9 Y& x( i |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|