|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。; _9 R' X$ i4 u$ u5 b6 n8 l
语句是这样的6 u5 |8 K* T- B
is
! |6 J1 n3 @0 k i:integer;
1 A5 X! X: C: P! w7 m Res:string;/ q! }2 @" ?" D8 u
obj:object;3 u6 h# A/ t* D' r) D
do) Y# t$ a5 \% p. Y
if existsObject("Status") then
$ Z$ `, P! q/ y$ k" t Status.deleteObject;
0 G; X* w7 B( Q1 a7 M% r. d. k$ z n end;, a5 K) s4 Z- S3 S6 k! h
for i:=1 to 10 loop
. y- n) z/ ]2 _) r6 @ Res:=sprint("Store_",i);# U7 ~8 |3 L- p, g; T1 |2 \
if existsObject(Res) then/ d4 I- T. N: B0 ^+ o2 W" i
Obj:=str_to_obj(Res);4 a2 N) i5 ]3 R1 u: v, v
Obj.deleteObject;1 Q; l, Z R7 ^1 ^. N# h" s
end;1 g; S, I3 v+ z% F* B
next;
8 R. s/ O; T- b! k/ h6 d: g7 j --shengcheng Status:zimoxingceng. {4 W8 B- v% }/ \5 c+ D
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");4 S+ y }& q3 X8 A
Obj.Label:="warehouse status";) ~6 K# M' k! n
6 `0 k* ?" U! ~% j
for i:=1 to WH_nums loop# |4 I: F2 E9 K6 U Q
Res:=sprint("Store_",i);" ]$ W' c6 w" ~+ U+ P+ W- Q: h
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
( E( [" {$ C& `" e/ \6 n) d Obj.Label:=sprint("huojiaceng:",i);
& V: Q4 W4 d z3 I7 N# S Obj.xDim:=WH_x;
1 ~, E8 _4 v% F4 t/ i Obj.yDim:=WH_y;6 Z3 `- I8 s) R- A% c8 q
Res:=sprint("StoreData_",i);
& D& m7 W d5 |# }4 p% ]# x2 o 6 w) a4 u2 @; s& Y" a" o
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
$ S# {' Y$ Y C0 a- V Obj.Label:=sprint("huojiaceng:",i);
- w& Y* [4 v& o! ^ Obj.inheritFormat:=false;
! I6 n8 V2 r8 g2 K: h8 Z. m Obj.maxxDim:=WH_x;! A7 l2 Z) i! W" q( }: ^' B3 \
Obj.maxyDim:=WH_y;
% q q! I2 ^) g! A8 l" E Obj.ColumnWidth:=3;. H% }6 v' ^. M* R+ ?' r+ n# |
next;+ I0 e- h9 d* a9 Y6 U: b
! ` u5 o1 P4 j .Delivery.MUs.Forklift.speed:=2;: c4 a: t1 Q- |) K: k( v" \
WH_var.delete({1,Part_Nums+1}..{*,*});
% u5 K4 L+ ?7 N1 I8 E# l for i:=1 to Part_Nums loop
! ^8 _6 Q0 e9 p) E, v( b3 T" M WH_var[1,i]:=chr(64+i);2 d1 {4 B) [& r; c& R5 N' d* X
next;4 |( Z1 e( u4 S* v
end;
$ f0 ?5 y5 |- x& z2 y/ j! P出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 8 g g0 [5 |* m+ A8 {
: v% B* f' X( ]# m+ t |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|