|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。$ I) d5 ^/ R) h
语句是这样的: l. p8 Z- M8 V( Q8 Z
is0 S1 j9 s: y/ H! c0 V8 n4 H
i:integer;2 d7 P3 [* P# }
Res:string;! k4 U. F! c# z
obj:object;
2 w5 _' E/ W l4 C6 b j% O& x8 Mdo
5 Z, u9 r" _1 O+ T0 Z if existsObject("Status") then
6 U3 l2 Y( \. B1 ?% b! o Status.deleteObject;
2 b+ ?! O! t* @* r end;
2 U" N0 j. |1 R for i:=1 to 10 loop5 T; V% d. w& S+ U4 H$ i# s
Res:=sprint("Store_",i);/ R3 @# c# [- |+ r! V
if existsObject(Res) then/ Z2 G6 z1 B9 y) r/ q
Obj:=str_to_obj(Res);9 [. x% @$ m( M$ t9 S- O) H% q
Obj.deleteObject;
, X1 `) ^7 |/ x, v. E2 a' ]7 t end;* U( M+ K, J7 J9 D# h( v
next;
* U5 ]' S/ s Q$ {0 T6 ~ --shengcheng Status:zimoxingceng+ \! ?; b; l4 {* d1 u# U- y# E, ~
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");. D: C9 k+ r. _' }0 f
Obj.Label:="warehouse status";
% u, Q0 U! S1 U8 d$ z) c
* ^! w6 j5 G' F% | for i:=1 to WH_nums loop* U9 Y' |5 }# w% a2 H- _4 k# C
Res:=sprint("Store_",i);3 i% G$ k! t, E/ I* l8 S
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
$ b7 w, b, O" ?7 p% M+ @; ] Obj.Label:=sprint("huojiaceng:",i);
. `) K: ?# @& k3 h; W) ^ Obj.xDim:=WH_x;
; U' ]- j/ M. z3 ^) x% n& l Obj.yDim:=WH_y;
) s/ Y/ m7 z$ c/ I0 t$ N9 V" [- k Res:=sprint("StoreData_",i);- m) q! Q; p9 K2 S. k
3 g7 _# Z3 o/ U5 Y
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
" y5 o ?4 O1 ]: v+ C Obj.Label:=sprint("huojiaceng:",i);2 L F& I' Z/ i! B( R ~9 \" c
Obj.inheritFormat:=false;
w9 u* b0 C- q7 E% E5 L( S Obj.maxxDim:=WH_x;
W! H& k& z0 B; U7 M* U Obj.maxyDim:=WH_y;
8 n- Y B' y t Obj.ColumnWidth:=3;
' w+ [0 `3 S. D7 j) {' i# u next;" H- s! h/ g+ a9 n$ q9 h2 U0 A
3 `2 q: E( s0 ^, Y' \ .Delivery.MUs.Forklift.speed:=2;
! v" x/ y( b; p$ E: U WH_var.delete({1,Part_Nums+1}..{*,*});4 o- K; C: n( ^ \8 u. z. L
for i:=1 to Part_Nums loop
2 ]: R5 S. f: T, ^- O WH_var[1,i]:=chr(64+i);
; @0 L& j9 z2 ?. U" T next;
9 }8 S& J4 {+ {! H hend;
7 i# ~2 Q5 t. O1 t) I出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
. w+ k" y. F2 p. G( u0 t/ r4 v$ Q% S$ s, d! B5 Y) k0 J* R: X
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|