|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。% `# g7 w7 i, A# a
语句是这样的& w; c5 K: f3 x& u1 J
is
: M+ |4 B. M9 Z3 c7 F- G$ W# A i:integer;' H4 E5 l7 e4 S* L, K# b7 j# J2 D
Res:string;, M6 g, G& |0 l, G! O9 U
obj:object;; s" Q2 Y4 z, ^/ [* }5 X
do
/ h$ x# l$ S2 L if existsObject("Status") then) N$ z( i, v1 l, x) U% M* }
Status.deleteObject;
4 }; c7 Z7 _. Y* N end;
8 @9 j) Z w8 T9 p. W5 t" R6 ]# n for i:=1 to 10 loop6 J* _5 u C" n5 l
Res:=sprint("Store_",i);& ^" K1 \6 d8 T0 D. z E5 T% f
if existsObject(Res) then0 E9 t0 j4 V! y# ~, G" l; w# K
Obj:=str_to_obj(Res);! U) X- M. D$ K& \8 k) M9 ]
Obj.deleteObject;
; O9 S& K. x. L1 F' ]8 | end;
+ [5 [) V1 G$ Y: Y* v p' E next;8 r4 P) I; [2 D! E' m) ~2 n
--shengcheng Status:zimoxingceng9 P3 V9 d/ U9 s! L# d3 `
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
( o* k- m z4 S" \- f/ o Obj.Label:="warehouse status";
5 n: F- ~$ ?& m0 k4 h 8 H) s. L9 h9 n
for i:=1 to WH_nums loop Z4 O+ N' F, `2 E: G7 s. c! b- p
Res:=sprint("Store_",i);
0 g/ @) G- ^0 R0 h+ o& {$ @ Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
( H( l$ k1 G4 s# N0 X1 w1 R r0 D Obj.Label:=sprint("huojiaceng:",i);
( a- k0 F9 s" J5 N+ f Obj.xDim:=WH_x;0 y( ?$ m8 s* S2 v, f/ |# {3 S
Obj.yDim:=WH_y;# E- d. E: L. `+ i) K- \7 m0 o
Res:=sprint("StoreData_",i);
8 z% S' z2 e L3 C' F7 S( \0 f ' L: f2 m2 u( \7 j$ Q
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
8 n# x/ ?/ j* i: n2 k6 F! D+ d- S Obj.Label:=sprint("huojiaceng:",i);! F5 @! P/ M8 R
Obj.inheritFormat:=false;. r2 ^3 m6 q0 @* o3 N
Obj.maxxDim:=WH_x;
- I% r( |2 ~: u* b2 i Obj.maxyDim:=WH_y;$ @# @& W4 s3 N
Obj.ColumnWidth:=3;
) {9 T6 K* b1 D9 n9 D; \4 V next;
' g2 ?) N' ]5 M 3 m; Y* _- h( U. Y2 B
.Delivery.MUs.Forklift.speed:=2;
6 l8 o- z6 a! Y3 K$ t WH_var.delete({1,Part_Nums+1}..{*,*});
0 X l2 {: n5 i& @ for i:=1 to Part_Nums loop
/ v& S2 }3 O5 e$ f9 S1 Q WH_var[1,i]:=chr(64+i);
) g5 G" K. m [% b! [# z next;
& R( P4 q! k6 \end;
8 U" E D: C( Y出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 0 W7 g# g, C! [5 {; L# X. ]
* `6 c! Q7 W6 o# O3 s |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|