|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
8 ?+ N2 z Q& u" Z1 J; q( n语句是这样的# H6 P1 k$ W" U' [' i( ?
is2 `' ~8 P. F, t) c: E8 r, a4 s" k
i:integer;8 |' B6 z2 I, v8 m
Res:string;$ g f p H; t, ~8 ~
obj:object;. _3 Z; I: G" n
do
/ m" L! {, i& F1 C" |7 K if existsObject("Status") then
/ W7 O% \: u f4 P& F9 u Status.deleteObject;
/ A, l8 T6 {7 G- K5 g8 u, w end;
2 F! ^5 F+ G7 ~- ~ for i:=1 to 10 loop
2 _- J% T+ I) o1 w' z7 i* z Res:=sprint("Store_",i);6 j0 m' F" }0 J
if existsObject(Res) then
1 x3 W& q% j" w* S& `* Y- L6 ` Obj:=str_to_obj(Res);
+ r. U+ f$ x- ?6 C- V: a( ]8 J4 J; o Obj.deleteObject;8 a4 |( u1 y: R
end;
3 f" s; e |+ J next;
; H# r- @* u# ]8 L8 R$ _. t, w --shengcheng Status:zimoxingceng
6 b3 ?7 t( T. K0 X Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");. j; S* `( ]$ ^) @7 E3 A4 T8 }
Obj.Label:="warehouse status";
9 {% I* {( T2 \8 t# r3 M+ ? 1 F, Q6 H$ `& T" n8 i
for i:=1 to WH_nums loop
, b- {! u; H: t: { Res:=sprint("Store_",i);
, _8 n/ d5 b, F( D) L D Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);& I) O- o, J9 W* r0 a. s6 p
Obj.Label:=sprint("huojiaceng:",i);) o; \: Y8 r( k6 ?* E W
Obj.xDim:=WH_x;" A& }5 ~& D3 r2 d( ?
Obj.yDim:=WH_y; s& A! P' s4 Q) y- |
Res:=sprint("StoreData_",i);
3 Y0 S( f, z4 ^; q/ f% j 9 S6 H3 U, X: u) u
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);3 U: B, d' K/ B" G
Obj.Label:=sprint("huojiaceng:",i);
" t: `1 ~, O2 j4 @; } Obj.inheritFormat:=false;# L9 c1 `% U0 Z3 p0 W* `4 z
Obj.maxxDim:=WH_x;4 \3 t+ e1 ^! a
Obj.maxyDim:=WH_y;9 K/ ^7 D: V- c* e# f1 A( Y: j# E6 F
Obj.ColumnWidth:=3;( m3 R$ p9 ?& t& w" P& W* G5 \4 P
next;
7 A* v! P. H, w( ^# ~# Q# B( l
7 z i2 F5 d2 M/ w .Delivery.MUs.Forklift.speed:=2;
' {) F; W; I5 D- G WH_var.delete({1,Part_Nums+1}..{*,*});
$ q/ w+ J* ^7 X for i:=1 to Part_Nums loop* I0 w" t9 q# _5 y
WH_var[1,i]:=chr(64+i);9 W1 Q# i* {1 \
next;
* @* r6 x( }3 H7 o! Gend;1 @5 z, S+ B" b9 \! A2 q6 K
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
, ^/ h* \0 K8 C% p, E. ?" g
( v3 e+ N' {# C6 w# @ |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|