|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
_" ~* R& e! q; U; W语句是这样的
7 E4 d& Y! P, M& u% y+ Mis) V8 B; V0 I. ]) ~
i:integer;8 n- B4 a( s. i
Res:string;
- C) ~' T2 f' }" v: j obj:object;1 g0 u) W" N+ X8 G8 t. e
do
+ x [) ^6 J% F7 t3 `$ ~ if existsObject("Status") then
" S9 H. Q+ n4 _4 p Status.deleteObject;8 I( p0 f7 Q o
end;
6 r$ k0 q+ ?2 Z! p& R1 H& @ for i:=1 to 10 loop) I9 A; x+ q9 {# h
Res:=sprint("Store_",i);
9 o2 S4 O1 S3 i g# b& C2 c5 i% n if existsObject(Res) then
) S2 ^6 y1 u; B Obj:=str_to_obj(Res);
# v v) \( T/ {; [ S& l$ g' u, l Obj.deleteObject;
5 K8 ~1 w8 `, r, t6 r) J end;
( Y+ V; `) \* P' v next;
/ _ h% z( H5 s, k& P4 p --shengcheng Status:zimoxingceng( R% ?% l5 E6 x y X* I/ B
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");1 L& S) D" q8 y
Obj.Label:="warehouse status";
$ a+ q5 j# y* H
2 B7 A2 U0 ^: A2 T! k for i:=1 to WH_nums loop
5 C2 t0 A8 p* k0 Q0 n { Res:=sprint("Store_",i);0 I* g2 L1 [( D+ d Z q
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
5 Q2 M2 ]$ u+ c" q9 _; w8 X Obj.Label:=sprint("huojiaceng:",i);1 g* A2 n# T7 q0 o. x2 X3 o; q3 p
Obj.xDim:=WH_x;; \ K7 V' `1 z1 u+ E6 A
Obj.yDim:=WH_y;! g7 M% l6 t# t' {1 ]' }: R
Res:=sprint("StoreData_",i);
# y8 f: v! b5 E4 E o2 A4 U . J, J* h# E; q! `! |
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);# S ?5 o+ @ U! u9 j
Obj.Label:=sprint("huojiaceng:",i);3 W# J4 j; v' j/ w
Obj.inheritFormat:=false;
2 }* t1 K% s# k ^' _ Obj.maxxDim:=WH_x;% e1 @ o( ~# Q, P
Obj.maxyDim:=WH_y;
5 e8 a) x, r6 c1 O+ `8 G. M+ l Obj.ColumnWidth:=3;
$ v& _5 g& F G3 t% X: y9 H next;$ M# R: U$ H; r7 L5 x
9 v( J. V4 {' Q& d) Y
.Delivery.MUs.Forklift.speed:=2;/ {1 l5 W( ~% M7 }" _7 w7 {
WH_var.delete({1,Part_Nums+1}..{*,*});9 Y7 ^* d# [. F0 G
for i:=1 to Part_Nums loop! O- s' W4 j7 J
WH_var[1,i]:=chr(64+i);
' S& W; ~& w& D- F g% g next;5 p o" e- @& d* \( G* S
end;
4 M5 C* O0 c$ R& h0 g _ W出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 8 S9 L6 G% B& l! y5 p
2 I# Q8 o& b# J; l |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|