|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。 E: ?5 s2 q O: l
语句是这样的- i% E$ v- A2 m" G1 Q8 C1 ^0 u
is
# E7 a5 ^1 E! ` i:integer;
6 c& T) j, P' s7 E4 J) @ i Res:string;
! ^- o- l; P4 ]% c0 e* c1 e obj:object;: n+ v- b* K0 d
do
+ b& [# T8 x- r- R0 S3 t) k if existsObject("Status") then
* a a M/ [$ ^/ P8 q: `8 \, {3 k Status.deleteObject;2 F. r1 R/ q0 w% l2 `
end;9 v5 Z9 H& C1 A( q4 }9 a' n$ y; Z
for i:=1 to 10 loop
; {5 D( Q n1 i0 {# }9 N Res:=sprint("Store_",i);8 s! _- H" p8 i% Q+ W' c. S
if existsObject(Res) then$ b. g1 h. u, D" {
Obj:=str_to_obj(Res);0 t) v2 x* O% n8 k/ ^$ t& ?* q
Obj.deleteObject;
9 W' G/ G& n+ H end;
& t6 n$ J# w3 g" f. W next;
0 l& N# X# k8 V: J" Q --shengcheng Status:zimoxingceng& F4 h6 U' |7 y, }4 T2 I/ K7 Y
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
5 T+ G6 A% N- A- X/ J' M Obj.Label:="warehouse status";- o- |+ y5 B; a% U+ R8 G/ G* E2 U% `
! M1 ]+ R4 m5 r
for i:=1 to WH_nums loop
* }- q$ W) F3 M4 P# T Res:=sprint("Store_",i);
; p# v, p& I- [0 a, q4 a9 ` Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);) I0 {* H5 i- ~$ ^
Obj.Label:=sprint("huojiaceng:",i);
& g. f2 E( X% t( M& T Obj.xDim:=WH_x;
2 C6 B+ N' X8 W6 @5 L" B Obj.yDim:=WH_y;, Q" Q% L* [: l- e' _* g) V' F8 S
Res:=sprint("StoreData_",i);" m8 T$ {# Z) `& Z" q$ L5 `
2 ^7 _( N9 L2 ~ w8 G( b Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);# H$ p1 }5 z6 D, v; q+ |% h
Obj.Label:=sprint("huojiaceng:",i);/ e* Q% @" l) H
Obj.inheritFormat:=false;6 q1 m' R& I5 \5 R
Obj.maxxDim:=WH_x;
6 G I! @2 l: Q5 t Obj.maxyDim:=WH_y;
9 P+ ]2 V+ R$ w$ ` Obj.ColumnWidth:=3;( Z& B0 U9 M# S- L4 P) |9 e
next;$ C. V7 A/ b: H8 B3 u# b( x
7 I# Z. B ?$ k/ n. F# L# g .Delivery.MUs.Forklift.speed:=2;
8 ]0 g$ f. A, U WH_var.delete({1,Part_Nums+1}..{*,*});
! _7 l* B5 l* ?( X+ B3 p for i:=1 to Part_Nums loop
/ v3 k" M3 J/ e6 L- d' F8 ?2 u WH_var[1,i]:=chr(64+i);* t8 I4 f: i5 x: W6 m% P
next;. P' ], |6 q0 y
end;
) S- N% _! z) |! R1 s( A出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
: s3 ~5 _7 [( v9 a- G6 [8 p2 {' @- a
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|