|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
) F; [9 o( K& x4 b2 v( z语句是这样的; p }9 Q/ l$ P* U9 F- n7 D
is, ?7 l" W$ X8 o& O
i:integer;/ S' R! ~( i5 `3 ? b; a c
Res:string;5 Y- C; @; a7 D" Z! k! p
obj:object;
" x7 p) I2 t1 r7 Z: _do
3 B$ s/ {9 ~1 s, O" F% w* ? if existsObject("Status") then( Y( h: h- H$ {7 r
Status.deleteObject;% o9 L+ W' T4 b5 I
end;2 w3 [/ g9 i/ h
for i:=1 to 10 loop
7 Y3 t0 U$ _! d" z$ g/ E- M Res:=sprint("Store_",i);
' E4 b, O) Q8 O* {9 X. e if existsObject(Res) then! b! A& `2 o' Q
Obj:=str_to_obj(Res);" |6 f! E0 c) Q6 Z
Obj.deleteObject;' k$ x+ `2 i: k. ^" f& U3 o+ o
end;# X! t9 }8 C3 e0 R7 E* W; D0 p" t
next;6 l: q7 S0 X3 Z; Z
--shengcheng Status:zimoxingceng
$ {4 H5 R" j# Y1 e' t Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");$ D- o+ c% S5 Z, `; X
Obj.Label:="warehouse status";
8 l+ g: b, e' ]$ |( [1 a - t1 G/ z) ]6 W- I& V7 O, @* l8 s! O
for i:=1 to WH_nums loop1 y8 w: D9 r3 t# ^2 t
Res:=sprint("Store_",i);
( [ Y& x$ o, V( g! ^. E Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);: @: Y: f7 u" I2 x$ B( i
Obj.Label:=sprint("huojiaceng:",i);% f! _8 J o+ U9 H
Obj.xDim:=WH_x;
/ l, O" }. `" U5 s" o- a) S Obj.yDim:=WH_y;0 G5 ~1 L. Y& r
Res:=sprint("StoreData_",i);+ u b8 U; g V8 {# \- A7 v
0 E2 ?# N2 u) q p. Q9 C- I* E
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);" d7 U4 E; W. J2 u/ C( y' c
Obj.Label:=sprint("huojiaceng:",i);" v" v4 P. p/ [
Obj.inheritFormat:=false;
: i2 {( P0 ^& s9 |3 x Obj.maxxDim:=WH_x;
: g0 D' y: B, _, }( @ Obj.maxyDim:=WH_y;
/ N7 G0 I- ~( p# q9 R; M! e Obj.ColumnWidth:=3;; w( m+ L8 @8 n. K* i+ @
next;8 ^, |1 T& f; Q* K3 y! g
. l, i. }9 g& _# t
.Delivery.MUs.Forklift.speed:=2;* @; e" E8 }( `' W" s; o; z
WH_var.delete({1,Part_Nums+1}..{*,*});
% y6 k ]3 a# f for i:=1 to Part_Nums loop$ V2 b3 v# I9 p! b% w
WH_var[1,i]:=chr(64+i);/ ]# F- l7 M$ p3 M- \, h. q
next;) k" }2 O L6 `8 j5 q
end; S: J* M2 S# q0 e3 F
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
6 J: x4 ?" p& ~* \
6 w/ _/ ~6 h! R; U/ ~ a |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|