|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。+ e* `9 P8 s5 Y5 {3 u
语句是这样的; J% _+ A) U- t: J1 n
is5 Q1 _" V" l. p) o3 h
i:integer;
: y1 s8 t+ h9 x/ D6 K* z Res:string;
+ @/ z; t, D4 Q. O1 F- D- _ obj:object;
7 ^2 H; P0 p8 Y+ {% s- P5 ?do4 I4 l2 y0 ?7 d3 A
if existsObject("Status") then
3 f0 ^, z! M" S$ d! P3 m. D Status.deleteObject;, X: b! Y. o- |- f- H( r( Z
end;8 E( i9 D6 h; Q$ u" V, b
for i:=1 to 10 loop! _* b- y/ O3 ~* X# T
Res:=sprint("Store_",i);
; j* L/ q( h: ?. f* }* n: D if existsObject(Res) then
1 D# O8 _- ?7 g+ c5 H) s Obj:=str_to_obj(Res);. Y; T2 D z, w4 a5 J2 r6 [
Obj.deleteObject;9 N* C2 T1 p J0 v6 C) x+ [
end;
4 \- J5 @4 Y! u' I# A, }9 d next;
1 x2 \ |! u6 C9 e. M1 n# _ --shengcheng Status:zimoxingceng/ q, ]" k; B1 w n- I
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");& p0 b$ M* G) J& I
Obj.Label:="warehouse status";6 g; z! q! h N$ y2 ~
& r$ T" n. x, y2 Q+ `7 N# Z for i:=1 to WH_nums loop
7 ?( T- W/ R) P" { Res:=sprint("Store_",i);
6 X& p$ i% M5 N z Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
7 ~$ f& u/ a6 o3 k' w( X1 R Obj.Label:=sprint("huojiaceng:",i);
! ~, d3 m3 t4 a Z3 w4 m Obj.xDim:=WH_x;2 s% X; n! ^( h2 Z/ a) t
Obj.yDim:=WH_y;. z) C% H6 y! r5 U
Res:=sprint("StoreData_",i);
# f0 l& r) [# L 5 b8 K: [' \5 l: T
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
6 K, i( o8 r8 {3 ?1 b Obj.Label:=sprint("huojiaceng:",i);+ S# e6 n) k, y8 A" ~ ?
Obj.inheritFormat:=false;6 m8 t7 q- Z6 G, ?. O# }5 J
Obj.maxxDim:=WH_x;
5 p3 ^7 u# ?4 y N Obj.maxyDim:=WH_y;
, `8 _5 F C" o/ v1 v$ Z! k: e5 h5 E: h Obj.ColumnWidth:=3;/ L1 I6 J( R9 u
next;" O n0 p+ B1 o
@. k: h. Y7 I1 N* N. e .Delivery.MUs.Forklift.speed:=2;
1 b5 e5 E4 v' j$ U/ S5 b WH_var.delete({1,Part_Nums+1}..{*,*});1 C# s. ^! E3 v8 u
for i:=1 to Part_Nums loop
}, x6 N! @" u5 Z" q8 l WH_var[1,i]:=chr(64+i);2 S# r) O, M* S3 ]
next;) k3 B7 a P) [1 r" G0 y5 @
end;, x+ t# c2 B3 K1 x
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
' r/ @* D# A. Q7 X& n- c9 m2 @$ T
4 n+ j' m Z# H# Q |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|