|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
, ?7 w2 p, _5 ^4 T' M; o* Q语句是这样的 @3 I1 |0 m9 `1 g
is% I9 ^* F2 G) [- {
i:integer;) {3 t$ L, }: b
Res:string;
4 H& r5 V8 }9 y t& V obj:object;% d) k' J+ t2 l' F5 Q7 V$ |% R2 X
do
9 ^# l0 D( _6 F" H) J& G if existsObject("Status") then
2 }' j) C3 b8 v' c- r6 H Status.deleteObject;
4 D% Y$ S/ h7 ]& T$ j end;
9 e2 |' ^1 {2 Q for i:=1 to 10 loop: l# E, Z" t0 U- e" a% {$ `
Res:=sprint("Store_",i);
0 y' s9 r+ e( j3 i5 T if existsObject(Res) then
( Z# `* s7 @0 }/ k Obj:=str_to_obj(Res);3 D h; X9 {6 N& R7 D. k* w* g
Obj.deleteObject;
* q. K$ @/ d" } end;8 ], `- a5 G0 O6 A: ]" U- }; J
next;9 \( _- h- l+ c0 M
--shengcheng Status:zimoxingceng$ p) I8 Z# ~$ j9 I
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");( T5 l2 ]. |! `
Obj.Label:="warehouse status";1 t$ L5 f$ I) I/ G
2 R5 [! I9 h' T9 L% { for i:=1 to WH_nums loop
, f2 E/ z5 M( c3 b4 w8 Z2 H Res:=sprint("Store_",i);
8 o; K8 M, R& m Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
$ V y# l# g4 a2 t Obj.Label:=sprint("huojiaceng:",i);( z2 S, R* Y& s4 \/ k
Obj.xDim:=WH_x;4 z# L/ C# z7 W/ H7 m
Obj.yDim:=WH_y;( G$ Q o% t# R* F. a
Res:=sprint("StoreData_",i);
2 t" H* e1 u9 U% r# z' D
$ Y1 G V) ~' ?6 ~1 S2 j& u Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
) X' E y* u P$ c8 u Obj.Label:=sprint("huojiaceng:",i);
+ e k. ^/ {: i( \, [ d2 U Obj.inheritFormat:=false;
5 H- a O4 D" t& T4 l8 L Obj.maxxDim:=WH_x;
2 T' F" G( s6 z3 ~* ]3 j& x Obj.maxyDim:=WH_y;! p8 S5 ]/ l! [' d( g. _& x8 J [8 G
Obj.ColumnWidth:=3;
9 i$ {0 z, M2 W( i2 L( @ next;
( @, J7 f8 r+ r, h" ]% S , f2 V6 r9 P$ t! b; m
.Delivery.MUs.Forklift.speed:=2;5 q% C! X1 R/ O: a( n# f4 d
WH_var.delete({1,Part_Nums+1}..{*,*});+ u: q6 Q$ ?5 M& S+ }4 }2 {
for i:=1 to Part_Nums loop0 S$ `6 W6 N3 k4 M7 N" r+ B
WH_var[1,i]:=chr(64+i);: i! v) e# y* o W9 V' H
next;9 ~2 j2 f% u0 q$ w" R* V! @
end;
0 w7 `% V5 u( g: x% q* Q出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 / {1 ^% g# B' e8 O# I8 f
. c4 G+ _1 t1 `4 p |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|