|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。2 c5 {: i3 g+ z! p
语句是这样的
: ]0 q3 w- w7 v: d, z! Sis% d% O' p h. G9 F i, q
i:integer;
' ^0 i* A# q# h Res:string;7 Y& y, i, Y1 n! h: b
obj:object;; k! D/ ~3 t3 h
do
) q* D% s7 C# @2 E5 d" m if existsObject("Status") then" z" T$ N3 F7 c
Status.deleteObject;) k/ o6 p3 f R, R* r
end;
" [ d+ {3 a4 ]8 w- O( X. e for i:=1 to 10 loop7 o! X* S, W- z! O1 P
Res:=sprint("Store_",i);* [ t' Z# f* Y6 A; F, r6 W
if existsObject(Res) then! k! ]6 h! h3 x. q. l! E7 P
Obj:=str_to_obj(Res);+ S4 E$ N- Y% o
Obj.deleteObject;2 Y5 x% [4 a, l9 |6 V# z
end;5 Z+ k4 T$ @; b5 ^( s
next;
+ ^2 }+ |& z I; t, d) v --shengcheng Status:zimoxingceng
N: V1 e4 i o$ s, a- q2 a Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");1 m: S5 i5 d9 z
Obj.Label:="warehouse status";7 L+ ?# \9 \3 N1 L/ A. t" b: ]
$ `6 @+ z8 P: H7 u$ y6 ^4 D for i:=1 to WH_nums loop
# i& O* _& l3 d* K- N Res:=sprint("Store_",i);( ~6 q8 t2 M ^% J
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
( Y+ ^" c9 \* R8 e( H; N Obj.Label:=sprint("huojiaceng:",i);
: J; w! g) A1 b Obj.xDim:=WH_x;
0 l7 U* H- `; X$ S9 x' z Obj.yDim:=WH_y;
& C A8 V0 T: R0 u" } Res:=sprint("StoreData_",i);; O& o; H! n# o3 b* r' A6 {
( z4 _1 w. j! X; y
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
: S( j: B& d9 m. M$ l Obj.Label:=sprint("huojiaceng:",i);+ Z6 u) o. {9 U$ a5 j) q
Obj.inheritFormat:=false;2 S! O/ ~6 ^6 e: t2 g& f
Obj.maxxDim:=WH_x;
* Z o- V C5 M- D V. U$ o Obj.maxyDim:=WH_y;
' |: T2 a0 `+ c! l+ }) [ Obj.ColumnWidth:=3;
+ l5 E. j5 n" z3 a next;
" _5 E4 x' b2 ?0 n( _: L / o* m8 u3 C6 A# T' i% d2 T1 d
.Delivery.MUs.Forklift.speed:=2;0 ~8 h. g4 {. c) V7 k6 r% r+ y
WH_var.delete({1,Part_Nums+1}..{*,*});
2 u5 f2 s; A P% p5 ~! | for i:=1 to Part_Nums loop
6 j# W5 C8 X) L8 r WH_var[1,i]:=chr(64+i);
6 v' @# s2 w% n/ ^7 V0 A" P next;
0 P+ }" w3 { q8 b5 d0 pend;
' l$ }$ r& ?- _! D! O( r出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 : P. a/ Q" W2 F0 u
2 h z) }" T' p) ~: x
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|