|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
( `' X$ `/ ^0 J! l/ `/ D- i语句是这样的( g" }! U8 O8 E3 g/ h
is3 j, f( w: ^0 P; U, g
i:integer;, V5 x+ o% y% k: u5 m0 T0 [5 F. H
Res:string;. `+ }$ h9 l% b: d8 U7 m& i, n5 K
obj:object;/ b/ M) O( U4 d5 v: q
do- d2 n+ R* R* ]5 X
if existsObject("Status") then
9 F- W: l8 X4 S, ?) I* G Status.deleteObject;
9 `/ ^. Q3 k0 W/ P Y: [ end;" }- F, J4 y0 w0 R
for i:=1 to 10 loop) [, d5 H' h8 ?6 Y7 z% S/ W% _
Res:=sprint("Store_",i);
$ |- M+ H* f2 j/ @( x if existsObject(Res) then: @! z$ w9 [* c4 P% X
Obj:=str_to_obj(Res);% B8 t$ a2 u+ R6 o! C
Obj.deleteObject;0 R! M0 [- L3 @ h
end;) H, [. Y+ @: [1 V8 t0 A! Y% E
next;% Y6 l6 S. B( L& C V& w
--shengcheng Status:zimoxingceng
0 |' L8 w1 z% F9 d Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");& N) u( D2 ?+ H! X, L8 `
Obj.Label:="warehouse status";
! \* k- |( M' M2 @; C 9 ^6 r5 U2 Y% V% y/ f
for i:=1 to WH_nums loop3 T+ a( o, V: z9 o& @$ k0 J# Q
Res:=sprint("Store_",i);
( J, p- E6 T' x, x4 O/ {8 a7 N Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
! O2 x: Z# k5 N9 |: x# X! b- @ Obj.Label:=sprint("huojiaceng:",i);3 }4 i5 s E% K: r1 \
Obj.xDim:=WH_x; d& b3 B/ q" k* I: K; @: x; t0 F
Obj.yDim:=WH_y;
" c! r* r9 _, p6 y Res:=sprint("StoreData_",i);
5 d( C$ @5 S- D& N
) {- _: S; Y- h0 l Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);8 r0 p- {/ c/ |4 }
Obj.Label:=sprint("huojiaceng:",i);/ u v2 Z/ V# g
Obj.inheritFormat:=false; w8 V, F& O/ A r) K
Obj.maxxDim:=WH_x;
. Q7 |$ f% n" g8 G8 D! Q- a3 V* s Obj.maxyDim:=WH_y;& m6 b! R" p& n- s* a c
Obj.ColumnWidth:=3;
3 b3 d" |: G3 ^* v! K7 L: [ next;) Y! V5 f( p6 M$ d
9 O) f/ z. I5 ]: J. ]
.Delivery.MUs.Forklift.speed:=2; `) [, C8 T7 r. L3 s7 S) V/ m
WH_var.delete({1,Part_Nums+1}..{*,*});: T! F, u* C& v& F6 i! ]
for i:=1 to Part_Nums loop
# M2 G; ?0 b$ W7 z Z) ~) J$ h4 b WH_var[1,i]:=chr(64+i);' h# i- @3 P: V7 y+ O$ G }
next;
: }7 X# x% h2 Jend;3 k+ h( r& f8 i6 U
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
1 H( g( O$ M3 V: b, p& s) w: s
4 R* w8 B$ D) v1 o1 r' G |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|