|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。, h$ {" u0 M; H
语句是这样的! m1 P2 {5 s1 a+ N" a3 X' R7 h
is
- C7 I7 S- ?. I6 ~6 a6 [- e/ d i:integer;8 g& o6 q+ V, y$ u. Z
Res:string;
1 W, r9 c7 n9 _; y7 q' i obj:object;
9 H S5 Q* u5 u9 Tdo
4 k+ E# q" }) {- n if existsObject("Status") then
8 E( g/ V8 F* _, p0 u Status.deleteObject;" B1 @: T, S$ s' r' o# }3 ?
end;. q$ ]8 E+ P9 B- y8 u! |
for i:=1 to 10 loop
0 G! E% ^: j3 {2 l0 e Res:=sprint("Store_",i);
0 Q2 y( f R& R if existsObject(Res) then
: O a) J& e6 ~- [2 d Obj:=str_to_obj(Res);6 _, N1 H$ j4 |1 Q; I! V
Obj.deleteObject;
" g* e) u/ v) N$ ^$ y$ Z* k8 B end;' r2 E' v+ Q" |3 k
next;; ~, U$ H9 b" I' I. c! e2 x1 o
--shengcheng Status:zimoxingceng* x7 r2 D0 k( N6 F# _
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");$ G% C0 s" ^! j9 L2 j i
Obj.Label:="warehouse status"; { B1 n6 l$ j P: L, R) t( ]
? M1 S2 B6 k* U) @- s |6 F' c for i:=1 to WH_nums loop$ o+ P5 u: h$ ?4 p4 N
Res:=sprint("Store_",i);7 w9 c: ~) m4 t. ^) ?
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
/ z/ L. H9 b8 F/ b4 M Obj.Label:=sprint("huojiaceng:",i);
. d% m. u: Y2 @1 D g" A Obj.xDim:=WH_x;/ T, _1 [8 k# ?' d
Obj.yDim:=WH_y;1 G+ h$ o. g; q
Res:=sprint("StoreData_",i);
3 M P+ a; ^! B% O8 }$ U8 @4 R
) d# S# e. X/ q4 P Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
5 d( E- l& ]- G3 { Obj.Label:=sprint("huojiaceng:",i);
: K4 m) m7 z! G3 m% l* a* X6 T5 ? Obj.inheritFormat:=false;
, X( |6 N9 g8 N3 X: ~ Obj.maxxDim:=WH_x;
) ?) i* x6 F" C' e4 d Obj.maxyDim:=WH_y;
% U7 [9 s. D0 M0 r2 t Obj.ColumnWidth:=3;
7 k. I4 X9 q; }& V( g( S: ?! B* F# j next;
' P$ y- s1 Q/ z2 t % z! T2 W ?/ `+ F+ q k/ D
.Delivery.MUs.Forklift.speed:=2;
2 X8 D4 y1 j% J3 v WH_var.delete({1,Part_Nums+1}..{*,*});" o& S# r1 `8 o- b: ^0 S- I
for i:=1 to Part_Nums loop8 k7 v: Y8 d& F" ~- R* e5 d$ K
WH_var[1,i]:=chr(64+i);) x5 E3 U3 W9 r/ m) \/ X+ A. t
next;( k" \# c5 E9 i0 h
end;
& l- c3 ~( @3 k6 F. }+ \出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
/ U9 _3 t! H& c" w. K4 I. @' X5 \9 C" r/ p
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|