|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
& M+ Z+ X2 I5 T+ \- a语句是这样的
$ h- I% O3 L: @, E$ n" v( a1 S$ m- Lis
/ C) Z$ {) H7 b- l; C5 P6 _ i:integer;$ Q% ?7 r4 q t: x$ B
Res:string;
+ D6 W+ S% E! u7 h obj:object;: c& J# [3 ?- Z( _# F
do
8 u: O& g* ~1 G% a A, q$ i! t# F if existsObject("Status") then
5 J" k' l( \& S Status.deleteObject;
# H# d% _! M5 k( \7 ] end;) y: B+ U ~1 Z% b- u) F
for i:=1 to 10 loop
6 ] Q$ k7 `0 ?8 U% J Res:=sprint("Store_",i);
^ I" x0 T1 B K2 d5 C if existsObject(Res) then
* o. p5 P& i! k& f G9 M Obj:=str_to_obj(Res);
4 G! h7 _9 ~! A6 \8 S Obj.deleteObject;
" u7 W: w1 b) l" r6 D" x end;, i3 Y% F0 n# ^% ~( `& P# J5 Z
next;+ q5 L7 ]" C) K4 J9 r
--shengcheng Status:zimoxingceng9 C C: a; Q2 c4 [+ J
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status"); I. P" {: l" X! {# Z
Obj.Label:="warehouse status";
. {9 B3 {9 j2 ?, \' ~7 S 1 ~( A, y$ }* i5 O
for i:=1 to WH_nums loop
6 O; T+ z8 w4 {' x2 d, C Res:=sprint("Store_",i);
a: c$ J- D8 ^ Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);9 {( x% [% B& n$ J3 \6 Q7 p
Obj.Label:=sprint("huojiaceng:",i);" Y" y. z- V3 }" H
Obj.xDim:=WH_x;9 [8 _2 e* H+ N, l
Obj.yDim:=WH_y; P" g& S) F% J* ]/ R1 |
Res:=sprint("StoreData_",i);. B5 T# e: b s
( z6 v# J6 D% n4 x' E2 ]7 b
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
4 G7 Y8 h, g, r% c Obj.Label:=sprint("huojiaceng:",i);
# x9 A) i& N# ^4 }5 q1 f Obj.inheritFormat:=false;# Y% F) ~7 q% q* I
Obj.maxxDim:=WH_x;. j7 d% H* ^! ^9 B+ L# I
Obj.maxyDim:=WH_y;/ R6 a1 C% S5 i& g. ]- D1 M, J
Obj.ColumnWidth:=3;
' L9 S! h- }, D2 Y. O4 L8 t3 v% J next;
3 T4 m) S6 R$ N% f6 P" F3 ~& Z& h
: U) b- N# s' p! l% S .Delivery.MUs.Forklift.speed:=2;- Q; d* o& T/ b; V& }3 \3 f
WH_var.delete({1,Part_Nums+1}..{*,*});! e3 p \# B1 W8 R. k1 D2 K
for i:=1 to Part_Nums loop9 e% E1 l8 q2 m/ ~
WH_var[1,i]:=chr(64+i);
; m$ ^/ ? t# ?2 S8 E next;
5 U9 [: r' I: oend;; b: F9 e- ]1 T# S' O2 F+ E! N
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
2 Q( f p% Y8 f
Y4 w3 H. x& Q, s3 b |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|