|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
- p( @3 J8 i1 a8 @. C语句是这样的* A: L( m( M+ ]" j
is# O) J4 d0 N7 Y7 T
i:integer;
" N* F1 A0 R% ~* B Res:string;
* K o9 o0 ]5 j l6 R4 D$ _1 c' r9 P obj:object;
% k! h: u2 O+ B% cdo9 O( X, p. a2 S5 J
if existsObject("Status") then, m0 I. W7 a( k S& u7 \
Status.deleteObject;
0 c( O% K' r q/ J% { end;
4 Y7 V% z/ s; z9 s" e1 c: ? for i:=1 to 10 loop$ t- q" E# |5 [# w }2 k, [% \4 k
Res:=sprint("Store_",i);. k; S' U6 w1 }, ]& r# \
if existsObject(Res) then) a+ c" x1 E7 W1 T6 ?: p
Obj:=str_to_obj(Res);: ]' S3 C5 U8 x% @- m- W
Obj.deleteObject;7 |) s& b) `: ?9 o
end;
' w" [* T' F8 T3 `7 [1 m: S4 g1 { next;
) V# x6 z, t) q; ^) ? --shengcheng Status:zimoxingceng
5 R6 h/ m( u4 r [. ~$ K% _% @- P Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");! X5 h; {. |+ o$ `) `
Obj.Label:="warehouse status";
) O/ o `/ Y4 h. k4 O8 y 8 q, S7 F/ H) t! W$ M$ o
for i:=1 to WH_nums loop
. Q& W8 s% J9 g: Y. ~ Res:=sprint("Store_",i);; g. ? o+ |5 Z
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);5 B: w: c' K) z4 C
Obj.Label:=sprint("huojiaceng:",i);
1 k- E' `& Z" s' g/ T2 S# m! b4 @ Obj.xDim:=WH_x;
( g9 n7 O1 ?$ e$ O6 [) m: O% C: W Obj.yDim:=WH_y;
& {& X- A9 b! K# A Res:=sprint("StoreData_",i);
) F# [& i4 a- l( U! E# F' R " F0 ?" L6 t! D
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res); |8 r* t/ k0 c1 x! N6 T# T
Obj.Label:=sprint("huojiaceng:",i);9 {+ Y# L6 Y9 z$ r* e; ^1 D
Obj.inheritFormat:=false;
; Z0 j6 P- _, f Obj.maxxDim:=WH_x;: d. T4 J* r# M
Obj.maxyDim:=WH_y;
2 k% O! v! S- ~' l. }- K# P' N& X Obj.ColumnWidth:=3;# E1 G& B) G/ D3 n
next;
! S! V6 `$ i u, O4 i6 w $ U" R6 A8 u x( ]
.Delivery.MUs.Forklift.speed:=2;5 i' Q9 \5 h' i7 ]
WH_var.delete({1,Part_Nums+1}..{*,*});
8 E- x2 b+ m' a2 v for i:=1 to Part_Nums loop% ~: u! A- y1 G/ S
WH_var[1,i]:=chr(64+i);
7 o/ q2 Q' H( M5 z4 g next;: n8 _# M2 l0 w
end;, l0 n+ ~" @% f- l8 ?6 b
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ; v }0 s0 l. _& U6 ]
3 Q% R" t, [3 o* t" b0 n6 H% H |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|