|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。1 n: O0 `2 `5 X% j
语句是这样的
2 G+ d1 e8 S8 ]; fis
( W# H/ g& N. [8 C i:integer;- f1 ?1 `" A G- I3 g
Res:string;& U Q/ z- q% a, A
obj:object;
; U7 E" W6 e; }- \7 ?9 Kdo
" n* j0 W1 Q k; ]0 E if existsObject("Status") then. M- ^6 L7 j+ N0 }9 i
Status.deleteObject;
: o9 k: M- k3 N3 j: |* K end;
- L9 [# I1 g/ @6 P7 K for i:=1 to 10 loop" r8 S- }5 g- D3 p
Res:=sprint("Store_",i);
: W- d6 @( m* I3 H if existsObject(Res) then
* T8 c7 N! D, m L0 k' Q8 W: \ Obj:=str_to_obj(Res);
Y& e) u/ c9 q# w! m0 S4 h6 l/ r Obj.deleteObject;
3 v3 P" M, t. m6 L7 v end;1 p- G. I" b& K, r# k+ c" w
next;
4 o. T! K T9 {3 l- e --shengcheng Status:zimoxingceng
7 Y, Z' V; `! z/ r V Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
% {' n2 ^0 J o+ [* v% c* D Obj.Label:="warehouse status";
! G7 w s- r; _ 5 Y4 ^$ {/ f4 s6 p' I( ~. L9 v4 u
for i:=1 to WH_nums loop
6 b: N7 c" v/ O! w: M2 f Res:=sprint("Store_",i);9 D0 v9 g3 c8 n. c2 J0 `4 [4 S
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
8 v% w% D! r) @+ F$ q Obj.Label:=sprint("huojiaceng:",i);6 }$ c& Z$ w- j- L9 T& C. ?
Obj.xDim:=WH_x;7 U) [: n# l* O
Obj.yDim:=WH_y;
" Z: \/ P/ H+ | Res:=sprint("StoreData_",i);
3 c7 E6 k+ Q4 X5 A - k0 J, b8 g& c4 m/ R. J& F
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
! t, A' W3 ~! X; _9 P Obj.Label:=sprint("huojiaceng:",i);
; m) i2 [) B% }! j6 v2 h* t, f Obj.inheritFormat:=false;2 I* y+ A( H) X/ E, \$ C4 P1 r
Obj.maxxDim:=WH_x;) `5 d k. C% ?5 J1 E: M
Obj.maxyDim:=WH_y;
$ }$ t: E2 Y+ t J, n Obj.ColumnWidth:=3;
1 f( X* B' K' W next;5 f5 }5 k" p# Z8 p/ I5 Z* g0 V7 a
( s) ?$ a: A+ t& k
.Delivery.MUs.Forklift.speed:=2;( I; D1 {1 H: p8 g. D7 u
WH_var.delete({1,Part_Nums+1}..{*,*});8 J3 ]) D" r) W5 b- U2 j s
for i:=1 to Part_Nums loop
& E) ]) i, g6 W0 B$ P WH_var[1,i]:=chr(64+i);
J5 ~* A, b N0 N# Z4 J) A0 ~ next;8 O1 O, B4 ?& t/ H) i
end;" \6 y7 N, M3 ]9 s
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
; m8 ?# T/ r2 [9 m4 J" o2 D1 l" j" B$ T6 |; `6 ~7 l
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|