|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。, J% }% m- K$ H& P% X8 G. W$ g
语句是这样的
: {% d' a6 ] Pis
9 q" R3 W2 s9 [8 l7 c6 a i:integer;
- l! Z- j" a- V# m* g% o6 |+ [ q+ c Res:string;
( s5 W. ^; F# C) f, v obj:object;
o8 h9 j* i7 \& K* _( t2 Sdo. i' C4 o$ i1 W. ?. _8 T8 K& Q9 G
if existsObject("Status") then! X* [$ h7 H' [
Status.deleteObject;
" x/ u# \. C- A3 s l end;
* ], l5 C! r* q& u# W for i:=1 to 10 loop. p0 s" {' ?5 Q3 v
Res:=sprint("Store_",i);
+ J! U6 j$ R1 z9 d! ^ if existsObject(Res) then
% k# z3 @2 E& N8 M* a0 I6 a" b, D, | Obj:=str_to_obj(Res);
. _" C8 X. Q9 r6 j$ [. a5 S Obj.deleteObject;
) d7 v0 p! U1 i+ w end;
6 X1 h( ^& @+ w# B6 A V next;" h" @; G) N1 |+ k
--shengcheng Status:zimoxingceng6 r6 R/ f/ W2 a, H( G
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");& ]4 ]0 G: O, \/ B; `% L
Obj.Label:="warehouse status";) Z; {1 O0 k6 D4 G& P% j* X
- y6 F* E! V% r, c
for i:=1 to WH_nums loop$ e+ F3 O' h9 M
Res:=sprint("Store_",i);7 z. B5 S; {$ A9 U
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);: V2 g! n7 c( {. s2 K; R
Obj.Label:=sprint("huojiaceng:",i);% J/ L, X8 Q$ I2 X9 o& W f( ^
Obj.xDim:=WH_x;
3 t* L+ P+ y$ r; U: |* {- Q, ~( P Obj.yDim:=WH_y;" \6 ~8 a* N( \/ B& ?
Res:=sprint("StoreData_",i);
8 E, r( F2 j7 f' g 6 l o% b- \) _- U+ x4 U }- Z: W
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);1 x( A _( ]" i1 W! s
Obj.Label:=sprint("huojiaceng:",i);
9 E2 H7 V N C1 A Obj.inheritFormat:=false;1 s" ?3 ?/ j8 e, X& {. h3 S
Obj.maxxDim:=WH_x;$ A+ U% Y' Z: W2 {" n2 |: R
Obj.maxyDim:=WH_y;
8 U9 \$ i, b$ e! P% @- Z1 N9 y, c) \; | Obj.ColumnWidth:=3;
' _; U7 P7 x9 y3 G& n+ @ next;3 f& p9 C [$ Y# {# z
+ n; D3 B% a/ }3 }8 J% Q .Delivery.MUs.Forklift.speed:=2; v, K6 g$ ^+ }% r
WH_var.delete({1,Part_Nums+1}..{*,*});6 F& \8 N' N( L4 W6 n0 Z' w
for i:=1 to Part_Nums loop4 {; a6 X/ T/ P8 H- v& _
WH_var[1,i]:=chr(64+i);) J& _6 J. u+ V0 g0 L% T
next;
% j1 j3 i1 \+ N, S/ t" l. Zend;' F. _0 o# ~9 V, u# \
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 / T, k9 I; [/ A% i+ V
" V) E4 I, n+ H- a+ C# K |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|