|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。: z+ r [8 `9 I" u1 O
语句是这样的
8 _4 y- p8 l# z. [1 k. a( Mis
+ b. U, [* N1 B( I2 B$ k* O% d6 v i:integer;
' \ J& |( N* W) F, r( t& ` Res:string;) ~: m, m1 }" y' j# g
obj:object;
v3 U& l/ d X$ H0 Z4 ^8 N) j- Odo! e, J6 b1 f9 z8 E' R E* U: _
if existsObject("Status") then5 m: Q( P; ~+ ~: V7 k! i
Status.deleteObject;) `8 e& K3 N3 [! o! _) \
end;
" P8 c" R* t0 |, b for i:=1 to 10 loop
- X; W1 _" d. Q% [$ V Res:=sprint("Store_",i);
% s' C8 a! k; X$ t: ~$ M$ X$ ~ if existsObject(Res) then
% S# H- J4 l! }+ j; H. F, J Obj:=str_to_obj(Res);/ Q3 p9 s0 f0 L4 Z
Obj.deleteObject;) v% d; L' D) O9 d$ i( b5 q; `/ h
end;0 O# M* t! d1 }8 W
next;+ U& U5 W0 i( K- p6 M1 C* v0 Z5 }
--shengcheng Status:zimoxingceng
5 I+ d1 |- y2 k) ~ Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
% ?$ P6 r2 Q! d; c, M5 ] Obj.Label:="warehouse status";8 d8 V, |# j) b8 ~" |
; Q& p; E( W2 A+ \7 z
for i:=1 to WH_nums loop
/ u8 R% p v! u% s Res:=sprint("Store_",i);4 @9 n" U6 z' M! _, S) d
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
5 n; _' |# h2 r+ i4 v6 C Obj.Label:=sprint("huojiaceng:",i);+ f3 V; C: P6 Y5 V/ c
Obj.xDim:=WH_x;$ E7 D$ g% }% G
Obj.yDim:=WH_y;$ U/ `2 U3 ~0 U3 `4 d
Res:=sprint("StoreData_",i);
9 U) b+ `) `) x/ r' b
: ?, L) Q9 t4 V( S; S Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);3 Q4 \* z0 |2 F( R9 H# m
Obj.Label:=sprint("huojiaceng:",i);; V' L& s7 F. \/ b$ @+ A
Obj.inheritFormat:=false;3 i8 V$ y; f# z$ Q/ h% B
Obj.maxxDim:=WH_x;
+ w' P& F/ U6 ~; I Obj.maxyDim:=WH_y;: d$ v1 h" u0 h( w w9 l) c0 q
Obj.ColumnWidth:=3;3 q9 K5 T, d3 B% i" E0 u6 Q
next;
' E: t6 B/ ~% y
" t) h# B3 \$ V* M .Delivery.MUs.Forklift.speed:=2;' k3 X2 u/ J& h2 Q) e3 [, b. \
WH_var.delete({1,Part_Nums+1}..{*,*});1 ]5 d: G9 f$ ]* q9 i/ ^" _/ q
for i:=1 to Part_Nums loop
% g& v0 A: h. [& ~3 e WH_var[1,i]:=chr(64+i);2 T y, ^) j! w) _
next;3 V* l/ J( x& ]! c8 Q
end;
2 |. V3 E# L. S! [. N9 ?! I出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 h3 Z6 z/ ]9 T) ~
}' G, {0 O9 {6 h* l7 X
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|