|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
$ a# p' u& i. v9 d3 W6 ?3 G6 U语句是这样的% T8 M6 P, ^# b/ g4 z+ H
is* T4 G- V3 W! c" n$ \) Q
i:integer;
* H$ o: A# C9 M Res:string;
D( V4 T. C# ?, H; M( d5 |; L' V obj:object;
! D9 N0 \3 ]7 Ldo% X' z" ^$ o! g. d5 n t4 h& L; [; U
if existsObject("Status") then; g' l# {+ t& v. Z" q5 D$ I
Status.deleteObject;/ {( p6 h8 q/ e3 H6 B5 z
end;
! X( y# Y8 X* @6 F for i:=1 to 10 loop3 U' Y% u; C3 F9 j- Z7 ~" P5 H
Res:=sprint("Store_",i);
. E+ c! A1 G. e if existsObject(Res) then& e# x; {+ k8 g" y, A/ g2 R
Obj:=str_to_obj(Res);$ X5 @% d* P' u' k# R
Obj.deleteObject;
0 B5 H! t) [* Y* r5 \9 w end;
% H; f' y3 Y* \9 r } next;
0 U- f) V. W4 q6 p, k# \+ H --shengcheng Status:zimoxingceng4 Y% r8 J& x1 C" ^! s. c
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");6 R* W9 k, B2 I4 s4 O6 `/ o
Obj.Label:="warehouse status";: Q, m8 \$ H/ n3 u2 I! U6 Q" C
/ y; X+ h8 ^2 ?+ C5 K8 j for i:=1 to WH_nums loop
+ m) \" Z3 R( y Res:=sprint("Store_",i);. f) V' y5 t* G9 @, v
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);' V# k2 `0 o3 H
Obj.Label:=sprint("huojiaceng:",i);
8 o8 ^+ E% u" l2 s- F$ b/ ? Obj.xDim:=WH_x;
0 g5 g/ R( o0 ?( ? Obj.yDim:=WH_y;3 b- s8 @6 z0 V& y2 ^
Res:=sprint("StoreData_",i);
1 G% Q6 Q, b8 t : q6 p4 R9 Q9 W% X* V
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
# Z* I( G. {7 W: W7 z; w- f( _! W Obj.Label:=sprint("huojiaceng:",i);
% K8 V' M9 ?4 }, {/ |4 ] Obj.inheritFormat:=false;0 [$ {# C9 `& E$ N8 j
Obj.maxxDim:=WH_x;
+ l' v" Z# ^2 P# r Obj.maxyDim:=WH_y;
. k8 J: C+ b3 j# ~ Obj.ColumnWidth:=3;
2 u; J2 W$ `9 W) ], J" i next;# k t* O# x* r) ~/ ? n
; T1 b9 n; s$ Z+ \; v .Delivery.MUs.Forklift.speed:=2;
; o- I, D! j; U' r WH_var.delete({1,Part_Nums+1}..{*,*});' M& p0 z b5 _$ G* C7 G! h+ Y
for i:=1 to Part_Nums loop: T* m0 e' }5 O6 U% m. N" X
WH_var[1,i]:=chr(64+i);
6 H, d! E# q$ q# }8 {, H next;
& }$ Y) l" ^, K+ p' x5 W. Eend;5 `% h: ~4 y/ M, v6 v* i0 F. w
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 5 x0 p+ r9 u, n V& v t4 M1 D
# n5 o; W9 _7 b" i; X) e; i
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|