|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。5 L& G1 |& K1 i H$ s& I% f
语句是这样的- w* H( G+ X" i5 b! b; a
is
: d7 k: Y0 {& T$ m! N- Z8 e i:integer;4 v0 B/ C# o7 W7 o
Res:string;
3 B1 W5 ]3 f& d9 j4 q* |) t* ^! U obj:object;
/ D2 ^1 Y% F/ s! Hdo
! u' F7 g/ ^ j if existsObject("Status") then3 y4 m6 A: [3 d3 n
Status.deleteObject;+ w$ G/ C- k& @, @! l+ _8 L" P u
end;
( J/ o {$ w2 E for i:=1 to 10 loop4 e H2 |- c- Y0 V8 \2 c
Res:=sprint("Store_",i);0 k8 c( }7 \7 L1 z, e% [2 ^ X! X
if existsObject(Res) then
) w0 I7 E, P+ u) G! f' N- E( s8 Z3 T Obj:=str_to_obj(Res);
! U; q" c! x& S" l7 r# ? Obj.deleteObject;
* e& E/ ^9 E6 O# B end;6 y) e$ F# ~! J! C
next;, Q/ t+ l+ d3 t& ?8 @- Y+ t- }
--shengcheng Status:zimoxingceng
& P1 i& {0 V+ p4 j0 B+ h Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
, z8 S) Q" E( v3 B) j Obj.Label:="warehouse status";
) f% R! @! B; @4 I2 }: P 7 {' Q( Q- f/ l4 P
for i:=1 to WH_nums loop
2 p4 y3 K% b) x8 Q Res:=sprint("Store_",i);
5 `# U) I" ]8 B o6 Y Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
; D2 U7 V9 R2 F K6 B Obj.Label:=sprint("huojiaceng:",i);- g7 `9 W3 A3 ]! M% Z( I6 z
Obj.xDim:=WH_x;; w1 [: Q6 e9 t( L7 F: r
Obj.yDim:=WH_y;
$ W, N s; y, A+ A [ Res:=sprint("StoreData_",i);1 b& Y* `! q! S# F5 f; \0 z
8 G% i' C$ w D6 {" [/ S
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
, K/ w L; R- W& {/ Q3 F0 c Obj.Label:=sprint("huojiaceng:",i);
! ?- c; @4 a- U- m8 R/ g) G2 X Obj.inheritFormat:=false;! I0 l. \: k( u* s, w
Obj.maxxDim:=WH_x;
3 U; B: Q7 H+ ]6 M- v Q) ~) S% S Obj.maxyDim:=WH_y;' @& d9 U X& l$ {8 P5 W
Obj.ColumnWidth:=3;
( `/ R# M! a- J next;
: V7 ~* o; [+ ~
: R4 `4 a: E# D) W; u' m) A- @" | .Delivery.MUs.Forklift.speed:=2;
' w- B+ Y: Y( H' E6 V1 e l WH_var.delete({1,Part_Nums+1}..{*,*});
4 b: s. j! F8 E# Q3 f# ? for i:=1 to Part_Nums loop" |8 Y8 V a6 h& @3 j
WH_var[1,i]:=chr(64+i);
, C* Q. P% i1 m/ x next;
' g4 i- L9 s8 k" F/ r% M Nend;. `0 q3 t$ ?# ?2 }/ b3 h8 c/ I
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 . L% O: ]" `7 U$ M) F' C0 M" F) N1 d
- ]6 P5 y6 J+ D/ J9 {; m |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|