|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。8 f' Z+ z7 C1 [! W6 z% [" r
语句是这样的, c. _; r4 P. X( |4 Z
is
# M1 v8 {# r& G; X3 E5 ` i:integer;; V" x. N4 Z* ^6 _
Res:string;1 `% ^/ v% u! O% T1 |
obj:object;' L) o3 z1 }, Q5 Y; P' _
do7 ]5 `1 R3 k* @
if existsObject("Status") then
5 j' G- |( X C3 Q# a I Status.deleteObject;
, [% `$ U/ d% k1 v) L end;
' Q2 k- N; I! ^% L: @ for i:=1 to 10 loop
3 |- }5 U4 I* _( d7 H" z Res:=sprint("Store_",i);- k' L" e; w6 N' v' b9 b2 m
if existsObject(Res) then
: i; N+ z) ]/ A1 z9 ~ Obj:=str_to_obj(Res);
& \, u. H) h' a' ^1 j# ^6 X, L Obj.deleteObject;* B1 }4 k! Y- q) A) P
end;
" a# H/ E8 i4 O% |. c next;
* y' D" \5 b2 ~5 g; G) l: C --shengcheng Status:zimoxingceng# r4 ?8 g' s( a5 h* D- h; l& L1 [
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");, r" A: S0 o' N+ ~3 [2 H
Obj.Label:="warehouse status";: e) F1 e5 R! T! d3 A3 F& N3 l1 ~
+ t& q: V4 q' `! n& w2 s8 f
for i:=1 to WH_nums loop9 \) o2 O% @ k
Res:=sprint("Store_",i);/ L+ Q2 x3 c, y3 F
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res); r: ~# e. g1 `5 o
Obj.Label:=sprint("huojiaceng:",i);1 {% B' ]6 n3 Z+ X" h
Obj.xDim:=WH_x;
8 |2 K( Q# C6 T% n+ }5 a( b Obj.yDim:=WH_y;5 {3 ~' g$ y3 t$ g* C
Res:=sprint("StoreData_",i);, V& P7 c8 I9 h" v
9 ]3 n" W+ A5 O3 ~: C
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);) W% {+ h! v8 f' m% ~
Obj.Label:=sprint("huojiaceng:",i);( Z& p L5 B) C! o9 U9 l
Obj.inheritFormat:=false;
( @# b) } L; G: x) M; Q% k! c Obj.maxxDim:=WH_x;: p \# H5 W6 @# y- i: @# y( k
Obj.maxyDim:=WH_y;
. Z0 @* k/ E% t c Obj.ColumnWidth:=3;
" z+ c$ Y. v! `- s$ f r; P next; t2 \, _# K J& i$ S, |' V$ k9 P& O
8 s# u O3 k4 d2 u" }0 i
.Delivery.MUs.Forklift.speed:=2;' k# n5 V' m8 w6 X% Z" W
WH_var.delete({1,Part_Nums+1}..{*,*});
' y2 v. W) V1 v) d for i:=1 to Part_Nums loop
! p& {, r- j1 I: I- e WH_var[1,i]:=chr(64+i);
4 D3 E% u# ]+ D: v next;' q5 L' z3 t1 K z5 B2 M% A. \
end;
. r6 u( [; P' W" N出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 $ f. `; y, g5 H
) _/ t7 h; j* o1 r0 G- D |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|