|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。* B: C. N8 T$ c3 D+ n
语句是这样的& B7 O6 o" z( Y8 b3 L
is. U- v' u: x0 {8 q5 P; ?. U! g
i:integer;" l% |3 O' w, \$ [$ P
Res:string;
1 [) I( I& j7 A5 g9 }& L obj:object;5 h9 y& x' g3 n' _. X5 O
do. X% q1 r3 j+ t2 y+ i
if existsObject("Status") then% P) B/ u/ s' `) [0 \
Status.deleteObject;5 D) C9 T3 S% @1 a- r
end;
7 d' {: z( y8 l( H& H/ U+ ?- O% N g for i:=1 to 10 loop
3 P; ]/ b/ g! v Res:=sprint("Store_",i);
. K. A, E9 m, h& P! q6 L" T if existsObject(Res) then: t: L0 X j; Q# h( @' G
Obj:=str_to_obj(Res);; ^# [# E! e4 C# N" r
Obj.deleteObject;. K+ Q5 I* n; U. k
end;* k% q8 f; `7 `( P- _, X5 E
next;! U0 _! f3 ^9 B B! q) D0 q9 A$ m% `) U
--shengcheng Status:zimoxingceng
2 T; a/ t8 M5 u7 @; T) A Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status"); N1 |9 J s: {" H- [ k! F+ x
Obj.Label:="warehouse status";
: b7 J B' u ~. N. T
' ~& _% `& o3 R) D8 u& n for i:=1 to WH_nums loop
0 _$ U9 }, y& V. Y2 _ Res:=sprint("Store_",i);! m( h2 ]& `. U3 t# _7 E
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);* L4 h2 l! ^4 o0 K3 @7 a. U$ ~% X0 ?7 x
Obj.Label:=sprint("huojiaceng:",i);
/ i3 ~; n; _& }1 b Obj.xDim:=WH_x;
. | } O5 k, O* T3 W" S Obj.yDim:=WH_y;
7 O! b" {6 ]% r* `% w1 y Res:=sprint("StoreData_",i);7 c. Q. S' Y4 A& `- d
1 b9 Z; @, j! o6 s6 y* I! P0 S% @# O Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);0 ]8 Z7 P& j$ G( `8 b
Obj.Label:=sprint("huojiaceng:",i);
n# X0 f d/ T$ A Obj.inheritFormat:=false;
8 {# S+ u: ]/ O4 e, }" x# D Obj.maxxDim:=WH_x;% I/ f9 }8 y$ F! `
Obj.maxyDim:=WH_y;; ?# j8 Q5 n1 j* F; R* e
Obj.ColumnWidth:=3;. Q" ?1 j8 q. ?4 A( k5 z Z
next;5 D [& H+ O+ B' D7 @# W
. P+ k: y" Y8 D .Delivery.MUs.Forklift.speed:=2;; k. p; s1 Y* r- c& a
WH_var.delete({1,Part_Nums+1}..{*,*});
+ m8 k9 n: ^8 l: K( Z for i:=1 to Part_Nums loop7 M4 p) V7 U6 v: |
WH_var[1,i]:=chr(64+i);
' c5 u1 R% l+ c# i7 @" [8 I- p next;
! N. E! D/ g! \0 p! i4 M" qend;
- J- \! Q% a3 t- O! n. @- C出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 1 B0 K* W2 S0 l2 u
( J% u! P6 B1 [- m
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|