|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。- R# f( |9 s2 E; R: ?
语句是这样的+ ~2 b# O7 V0 v1 I% r U, D
is
0 R4 ?2 i) |" @% g i:integer;
; ?) n5 ^6 |; K9 G# J* @) ~$ K' J Res:string;8 `$ d& ~: W' {+ h( H
obj:object;; Z1 X! {, {) `, j* L! `
do! `, t) b1 C( I" i; x t
if existsObject("Status") then3 n6 s& O; M( h1 S: i
Status.deleteObject;
( O% ]! l: X* p end;
* K4 ~9 k( b. Z for i:=1 to 10 loop/ n7 @0 s( d. J/ J @
Res:=sprint("Store_",i);8 c6 N- |4 j# V* _6 k, y1 E
if existsObject(Res) then$ X/ Z" F" R/ l& Z: @
Obj:=str_to_obj(Res);
$ Y g8 N# U5 H$ }& c2 N5 @ Obj.deleteObject;
. V. u3 }+ }/ M( @, M- z9 r% ~- d end;
1 [( d: e2 ?8 O6 k next;
! n9 m2 T6 A* C9 L8 S" r+ o --shengcheng Status:zimoxingceng9 `) F4 ~7 K+ _* G
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");: Y: b/ |5 g7 i {& z$ u. H
Obj.Label:="warehouse status";# [( C# t9 I" W, s) _
8 o& |$ e! j! H for i:=1 to WH_nums loop
& i V& \5 O- n6 {) O9 t Res:=sprint("Store_",i);
5 g- l. T& [5 w& p5 `. S$ k Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);1 t, H' z7 o4 i5 \
Obj.Label:=sprint("huojiaceng:",i);
. k4 j5 H3 C" S" [. b Obj.xDim:=WH_x;* o2 C# ]) G( d" c( f& a, m% d
Obj.yDim:=WH_y;) V# `9 _* g' V. L
Res:=sprint("StoreData_",i);
. z4 [# S. F c' @: e% w* ^9 G , O. q2 ?" d B) y: \/ J: K
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
( v0 v# B5 `$ ^& ~/ U' ^ Obj.Label:=sprint("huojiaceng:",i);
A) y/ X6 x$ r6 C Obj.inheritFormat:=false;9 i' x" s' T( f0 \
Obj.maxxDim:=WH_x;
1 U; l- A: O+ n) z* y* o Obj.maxyDim:=WH_y;- I6 n! H* W; a
Obj.ColumnWidth:=3;6 t& `7 s7 T2 V' {1 k! I/ o* y
next;+ H; }7 w1 U7 V. M# I
* a4 Z, q& `% d' |6 A" P. ?+ x
.Delivery.MUs.Forklift.speed:=2;; P5 y w$ w* k! Z, D" J! T
WH_var.delete({1,Part_Nums+1}..{*,*});
3 r6 C8 D9 `: C7 x1 B+ R for i:=1 to Part_Nums loop5 c6 U6 n* U" M& g0 d# q+ b; R
WH_var[1,i]:=chr(64+i);7 b% I6 I+ r P8 c
next;* i- A% R5 i; o3 R) f3 Z0 T& ?
end;
% g" f5 _& }# {, O" z出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
8 c% f) a( p, d" t! c# ~- T0 x1 l/ w6 F
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|