|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
+ l; z; r' U' n3 Z* V语句是这样的
- m" K7 }7 k- B+ S6 ]9 bis
# F. p. `9 q: @; g) | i:integer;- U% R( M! ~8 i1 e. Z
Res:string;+ X( y/ r1 B2 `; q
obj:object;
& ~8 q y T1 p+ D& `do& [! q. }$ i0 V; p/ r
if existsObject("Status") then* l v! D1 X7 R9 @- v
Status.deleteObject;1 {+ u: _1 c: [; ]/ D( p& w2 T
end;0 A; j3 M" R' b t! `8 c& a
for i:=1 to 10 loop% u/ L2 X `# `0 Z
Res:=sprint("Store_",i);
. ]2 N6 U& o+ S if existsObject(Res) then
/ B! m" d6 T; C) u: r+ l Obj:=str_to_obj(Res);& d0 D! g/ L6 Z9 I* j |
Obj.deleteObject;
1 b8 y: `( a- t/ i3 E end;
' T Z. o1 s2 Y. Q next;' V& v5 `9 T9 K- k( S9 a! s& Q
--shengcheng Status:zimoxingceng
& b. e9 ]" H) e9 f Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
! L3 O) g9 w3 D/ T4 }2 U Obj.Label:="warehouse status";
% M( H7 U3 d7 C5 e( A; y
. S$ m) k* d$ Q f, P" Q5 T for i:=1 to WH_nums loop$ W& \ u% j, G/ b D
Res:=sprint("Store_",i);7 I, e- J8 e( G
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
' u# l2 h/ D. v Obj.Label:=sprint("huojiaceng:",i);/ t4 a- R; H- K9 j* |
Obj.xDim:=WH_x;6 [* o! V: W4 J- j. o! j/ L& B d
Obj.yDim:=WH_y;
2 x% k( O; M' Z- g% z( Y3 L Res:=sprint("StoreData_",i);
& S2 E. V/ a' o! O * e* i5 Z0 n: O, j
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
4 y2 I w" B' u: C; A4 T Obj.Label:=sprint("huojiaceng:",i);0 n8 b* V7 u% V# N3 J. V% o, `
Obj.inheritFormat:=false;; v% Y4 t/ l+ F
Obj.maxxDim:=WH_x;. I$ i! C6 |! H# c5 E
Obj.maxyDim:=WH_y;6 w, w7 c6 T# ~* s8 M: ]
Obj.ColumnWidth:=3;
: o6 W0 {7 v+ k% ]1 g next;% I- l1 S; \/ {1 ?0 ^9 E
! |: v' m! k$ a% ~# ~0 p' c0 N0 B .Delivery.MUs.Forklift.speed:=2;: Z, ~: L& C$ u6 @7 R' Z6 t; C2 |. D
WH_var.delete({1,Part_Nums+1}..{*,*});
5 v. z/ r; u+ J k; t for i:=1 to Part_Nums loop4 p5 E" ~" ?, e) w- \- q: x% P- ?; w& {
WH_var[1,i]:=chr(64+i);, I# b% A3 n0 ~: p
next;& N8 q' w/ `- t$ G2 T8 h/ u( M
end;
1 z* ^/ J2 k" i+ r3 q出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 % J& c, V4 D6 Y1 [, H
o' z5 e4 b$ C9 F5 u$ \ |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|