|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
$ F$ L* l$ H1 Q# Q/ ?, L语句是这样的5 s8 I4 x" ?. S- r" C5 x- q
is
% r4 E; f9 B2 j! @ i:integer;
. D$ [, f# R; C& W Res:string;
8 p- v9 o* h! m obj:object;# h5 X: U7 }- `' w" y
do F$ S4 Y4 q- W) e+ ]. }
if existsObject("Status") then
: o6 c F8 a7 l+ E Status.deleteObject;* A8 Y( C4 D: W
end;8 b: P G/ F8 l% m- T
for i:=1 to 10 loop0 e' k2 I# y. Y; r5 t' @
Res:=sprint("Store_",i);
7 ?. ~7 R2 ?& z% | if existsObject(Res) then
0 `; |: j# [- m$ w Obj:=str_to_obj(Res);
0 ?( P" V( R. Z' I Obj.deleteObject;" Y" N: O$ x) ^% @; j: D) g. r
end;
# B0 ^- @. e% r4 d. c- E) [ next;2 L. U+ d ]+ C% E" V' s m
--shengcheng Status:zimoxingceng+ _/ G) g+ [) G- _- s
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
) b c& H6 V9 N( o- x0 w) [ a9 a Obj.Label:="warehouse status";4 `( q; U P% S& ` D# i& Y: [
2 x# q3 s" h0 g5 Z, z( P" x
for i:=1 to WH_nums loop$ G5 @) ^% r$ k9 n
Res:=sprint("Store_",i);
2 M R( a. w. Q3 X* K8 Z. }' G: D Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
; ~: n, J: }. F+ R. b Obj.Label:=sprint("huojiaceng:",i);
9 [. z8 B' g7 X% ]* I, f0 ] Obj.xDim:=WH_x;4 _9 ~- J$ N9 P0 l5 _% ?
Obj.yDim:=WH_y;" N( u) i; V. r
Res:=sprint("StoreData_",i);8 |" a7 M* C `/ }4 x2 o/ p8 t# `
; Z# ?; O8 R6 Z' w, M: i Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
* E! \( V* U9 K; i! C; G Obj.Label:=sprint("huojiaceng:",i);
+ o- I" k5 r1 p/ A; k9 c4 X Obj.inheritFormat:=false;
$ F0 c+ @( f" r/ u Obj.maxxDim:=WH_x;8 k' M p! J& @3 z- t( e3 ~( F8 m
Obj.maxyDim:=WH_y;
# a8 ~0 b" ~, F# X3 D Obj.ColumnWidth:=3;
" r* S; E: Z- U& T& @- A' }+ [ next;5 y; k4 w- y7 b% G# y6 [
- i; @0 u! Y4 [- E; P' u
.Delivery.MUs.Forklift.speed:=2;. x- i# ?1 A D
WH_var.delete({1,Part_Nums+1}..{*,*});2 D O/ z6 v$ b* P& y
for i:=1 to Part_Nums loop
$ P/ _# v; R+ T- u; w WH_var[1,i]:=chr(64+i);3 a9 C' |8 ^6 b# d3 Y( r
next;% X! u- `" k; l1 U/ r0 Q# R, q
end;
9 Z; a' e4 v3 j. m U N) h% u出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 , ]+ b" W' N; K3 _
9 R1 q; P& |8 @! t4 z
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|