|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。9 B$ B3 k O( M7 Q. F* m7 N0 n
语句是这样的
, {5 Z+ U- d( V& ais
- w$ s c6 O5 u! v$ H i:integer;
3 F8 A0 u/ w9 Z; { Res:string;
4 ?- ], q2 K* D1 _6 j% ?0 w obj:object;
$ g! g: C/ F: {, ?- W. gdo" T8 [4 g- A, q- t* S) d
if existsObject("Status") then, L( T2 W% F- S
Status.deleteObject;& ^+ Z4 d3 I/ O/ o: e8 H2 x
end;& B* E( C4 t: U( d
for i:=1 to 10 loop
' i2 a- G; w* S& u Res:=sprint("Store_",i);- m0 N5 {- B2 @: a. D+ V
if existsObject(Res) then& i0 Q- c @* `& i, H
Obj:=str_to_obj(Res);
. h( c% L& h: T4 Z* U* } F/ N Obj.deleteObject;- N5 J/ | s/ D% s) n) P
end;
! t+ g8 X7 o' p2 D6 C4 I next;7 o6 D, z7 z% h
--shengcheng Status:zimoxingceng
0 [+ Z& a! Y5 l9 [4 D3 r Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");2 o8 r& k# H, `2 ^- l K4 F
Obj.Label:="warehouse status";- K9 L0 \2 C; J* O" \
0 }8 T/ g; d, G- F5 D for i:=1 to WH_nums loop+ U& y/ K; J% @! z% x) m0 f7 k
Res:=sprint("Store_",i);
! l1 u" Z0 C6 G* u3 e7 X Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
; ?+ ~! o/ H; X" w Obj.Label:=sprint("huojiaceng:",i);( s0 J. V/ H% U( G0 e
Obj.xDim:=WH_x;
' \ Q% A3 j# [6 u- ~2 J Obj.yDim:=WH_y;
2 _7 d1 o8 @, _. } Res:=sprint("StoreData_",i);
. ~* r. s2 B2 Q. K4 O W E9 |( w & O. ^4 y! o. z+ f0 Q R* M1 T
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
7 Y% H4 {6 i1 M) w5 G# ` Obj.Label:=sprint("huojiaceng:",i);
2 F% @1 g& Q* l Obj.inheritFormat:=false;) ?. P: V2 C7 W# b$ t
Obj.maxxDim:=WH_x;
0 @% @$ o& k+ }6 V" ?, `6 M* q( { Obj.maxyDim:=WH_y;) b1 c1 D# S. p8 x& h
Obj.ColumnWidth:=3;! S" z7 b! L+ ]: L
next;
. `2 i6 a k' T/ X8 s, @ 9 R9 {: ?* b/ i* u, C8 C
.Delivery.MUs.Forklift.speed:=2;
3 D$ ^; q# D5 Z7 S. m* @ WH_var.delete({1,Part_Nums+1}..{*,*});0 m6 x( a a& g, J& n+ j, U
for i:=1 to Part_Nums loop7 u) j0 i4 M! F* j1 w6 l9 G" d6 f
WH_var[1,i]:=chr(64+i);3 z) n- a F0 S* `- ~" G
next;
# e9 i) t0 ^6 ^2 w$ S" o' Y' s% mend;
( x& T' Q' H/ j# H3 @+ `出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 2 P Q) ?1 E* H/ X( e$ a2 |; v
1 O3 J1 ]! c* y: A) E7 S3 q |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|