|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。/ V( T/ Z6 V z! D3 d
语句是这样的
6 d# E G- b+ y; _8 X, h& vis; @4 X! d R- ]( W2 b
i:integer;
r2 \0 r8 u8 O2 \/ }" a Res:string;
$ A: B a% ~; t$ ?8 N0 t obj:object;
% [9 V' E! J% Odo: P) D3 w9 [2 W, I8 O) T
if existsObject("Status") then
1 P" b8 T% w/ A& d7 ?; Z Status.deleteObject;0 f* V5 Z- C0 H# Y! S4 {% _
end;
1 M9 \# P4 }2 t, ?2 R, S for i:=1 to 10 loop
( y# g( y9 r6 D0 b5 y9 u Res:=sprint("Store_",i);2 O+ d0 o' f8 `+ b, T V# h
if existsObject(Res) then
9 l* q. h$ I1 q Obj:=str_to_obj(Res);
; s( G6 ?9 w- {+ R6 V! S Obj.deleteObject;1 `+ N" B) P/ v+ t* V$ Q9 G
end;. Y+ F* f" Z- A( w
next;
U4 F" w3 }9 q3 R --shengcheng Status:zimoxingceng& E4 e& W8 C0 C8 [4 |
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
5 s3 v; D) l$ G5 Y7 C# B) {! O& g4 @ Obj.Label:="warehouse status";/ p! I; x- d& n! A/ P4 `: G. u$ R9 S
3 [, @# x: ^* a* K
for i:=1 to WH_nums loop
* L/ n- R! N2 }, i3 U5 X Res:=sprint("Store_",i);
7 L3 k2 r! n% R# o Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);; F5 e) ]# v- m @! v, B% l P
Obj.Label:=sprint("huojiaceng:",i);% n+ X6 K- e. O, P$ u' u3 Y
Obj.xDim:=WH_x;& _# B* }3 n) ~8 O/ t
Obj.yDim:=WH_y;+ d8 ^5 w7 k g" c
Res:=sprint("StoreData_",i);
6 _2 A) A1 ^- A5 ~
p$ h% `9 _& d Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);1 }/ d- F. {3 V# G, J) m
Obj.Label:=sprint("huojiaceng:",i);
, B. l$ f7 r1 \( f: K! p4 t8 H Obj.inheritFormat:=false;) d. [" ?! P. G0 _) e5 d/ A
Obj.maxxDim:=WH_x;8 _5 n" v2 p/ `3 S6 g
Obj.maxyDim:=WH_y;
4 ^4 O# K! u8 T d' [ Obj.ColumnWidth:=3;
, W* D* J% [ O5 A next;( m8 [2 V- K: ]8 F3 ~1 ]: `& q; `
9 D9 _- V1 J* Z/ V9 T .Delivery.MUs.Forklift.speed:=2;0 a( e( u+ o+ F+ a/ D' v
WH_var.delete({1,Part_Nums+1}..{*,*});2 }2 ~: X X# A4 J" K+ k5 A
for i:=1 to Part_Nums loop( \0 k6 S, x9 ~
WH_var[1,i]:=chr(64+i);
1 p9 @9 g4 L7 X4 j* O1 |' j; e next;; C2 h4 G0 U& V+ V, A( _
end;
4 z/ ^8 z: ]# h( B出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ! s1 [+ [3 G- E" U: T
( a6 J8 P9 z' z6 E `$ a# { |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|