|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。1 D1 s9 q9 {1 i9 }3 h+ p; U
语句是这样的
* }, |# v6 k" fis$ B0 U5 \' p; D
i:integer;
8 [% U1 D4 W3 e' U! g Res:string;
, M$ T# B ]' Y- k, U) k7 s1 e/ x obj:object;9 Y! v9 X* Q- C
do5 o, u. P% s. e5 q2 y* p
if existsObject("Status") then
9 Q/ K9 I! r0 W4 v9 P. K" ]6 K Status.deleteObject;9 H9 c8 c! Z# t& f& \/ c
end;
5 _$ c( C4 O4 h j1 g9 O2 h7 ] for i:=1 to 10 loop; y$ a9 V7 D* e
Res:=sprint("Store_",i);" W( G0 r4 z/ x
if existsObject(Res) then
[* a6 D* q" X$ b' e7 f Obj:=str_to_obj(Res);
: O9 ?: j( w0 I; a5 q4 M7 ] Obj.deleteObject;) R! g* k* W, G \8 B+ \1 X' G
end;% P. k' }7 b3 u+ @) F' w l# x
next;
/ E/ L$ H& q/ W4 O# R --shengcheng Status:zimoxingceng/ Q! H/ Z+ q0 T, t
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
2 U' b' E1 @% `3 T8 g, ^; d3 l3 Z Obj.Label:="warehouse status";
$ [1 `* R8 y; G9 q
. K3 M7 h8 i6 y3 u7 g% v% o for i:=1 to WH_nums loop# N1 {' W0 {0 q, g# W
Res:=sprint("Store_",i);- e: J f; ^# N }: @6 x
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
$ q! j9 S4 J7 U& M; d Obj.Label:=sprint("huojiaceng:",i);
( L$ c" S. ?! K& Q Obj.xDim:=WH_x;- F! r; g; L7 m# [
Obj.yDim:=WH_y;
7 _, _# U q' ^, Q3 ^ Res:=sprint("StoreData_",i);" ?, N$ f9 l2 B
; j/ a( \( i* ?# x+ | Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
1 j1 b6 D( f: _8 l) j; W" g6 G6 ^ Obj.Label:=sprint("huojiaceng:",i);0 U+ d# v' w9 P' }
Obj.inheritFormat:=false;4 {7 p" ?8 e* i/ n" t- U" |, R! o% ^/ u
Obj.maxxDim:=WH_x;" J7 r& T7 x0 x, @6 o1 h
Obj.maxyDim:=WH_y;; R, W' t5 j/ x: i
Obj.ColumnWidth:=3;) R( ~" M9 z- m2 A0 p$ h k
next;
$ }0 N( c$ V: [5 ?0 S8 g( K' Q5 a ! p) x/ t+ j% ] |; A
.Delivery.MUs.Forklift.speed:=2;$ v. f: u9 J* x4 J0 t; f
WH_var.delete({1,Part_Nums+1}..{*,*});
& [2 n& t9 a( P* p" t; l for i:=1 to Part_Nums loop
$ Y' L; V1 d* f4 @+ H8 a7 J9 G6 _ WH_var[1,i]:=chr(64+i);
3 d/ k; d% \8 f+ ]5 U9 O8 p next;
, F. ~5 f. q6 F) |% B- s" ?end;
+ P) M& J! X4 _# J3 P! S# F出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 9 M- p+ p( R4 T) m5 X
! g( `& c: x; c! V, g |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|