|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
+ T/ O+ G# g" x$ v* [; q语句是这样的
5 p6 L) I) t9 N {is: X( ~5 h, i V. R3 v
i:integer;
) p; j' a' `6 O4 H: k1 T- n0 o Res:string;
2 g# f6 g% b* ~2 p0 @ obj:object;9 M' ]/ U& H, t3 `# d
do
; h3 C! p+ ~) h1 E& O7 S7 y if existsObject("Status") then# T. n+ H+ G; N R; J$ N
Status.deleteObject;
& k7 n0 Y2 r) [# ` end;
6 U/ ~8 c: j# j% _8 V2 a% i" ]! r for i:=1 to 10 loop# c3 {# y, g, s
Res:=sprint("Store_",i);0 v3 H7 E3 J6 V
if existsObject(Res) then Y" K$ q( h; ?6 G& H
Obj:=str_to_obj(Res);
& s" c$ L4 ?& d( P) Q Obj.deleteObject;+ J3 O' P' [2 |' v; @7 Y% b
end;' J' V4 K% k, I* ?( q7 B
next;
1 C9 A6 D% {/ a9 y! w9 b --shengcheng Status:zimoxingceng; v# o7 x& G5 ^3 n8 U6 Z* q2 X
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");: A, i" A7 B' n7 v! t& _" z, m1 V/ p
Obj.Label:="warehouse status";
' Q% n9 D# m8 c! u2 ~* ~2 E 9 _1 g' ]7 p1 u( A1 Y3 x
for i:=1 to WH_nums loop! e {0 i9 K u, M; F% {0 r* ^
Res:=sprint("Store_",i);
$ b' L! C1 w+ E$ e3 r5 t* t. i Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
) v( e7 S2 y( s Obj.Label:=sprint("huojiaceng:",i);
$ R f- W: d0 c5 t. j9 B Obj.xDim:=WH_x;
( Y) i' B5 e$ h0 s+ _ Obj.yDim:=WH_y;
" i) }. r; g/ E& e% w Res:=sprint("StoreData_",i);$ s4 X" S- Y* R+ ^. r% O
+ \8 A1 G g2 P# w: i1 ^ P Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
$ F7 m0 p% E5 u5 o Obj.Label:=sprint("huojiaceng:",i);
; f( B& p& {; F$ c, v5 e9 h Obj.inheritFormat:=false;
1 u2 }) t: h" Z) p5 W, F4 h Obj.maxxDim:=WH_x;7 k0 y- u0 z3 ]
Obj.maxyDim:=WH_y;* i% U! \" b7 e) a9 ]! [' b$ r7 t( U
Obj.ColumnWidth:=3;7 x1 {2 w9 }6 S# @/ k( E
next;
. ]; P& y, ^8 e, d( G' B( _ & c& G0 h# z' _; c. u4 ~) _; s" x
.Delivery.MUs.Forklift.speed:=2;
( H: Z. \/ ]# t- {# u6 h+ ? WH_var.delete({1,Part_Nums+1}..{*,*});( k- V1 k M+ ?3 y7 n) Y
for i:=1 to Part_Nums loop
) k# C# d5 q9 `: `5 I# ^ WH_var[1,i]:=chr(64+i);
& p; F% c3 P2 ~$ B8 H, S next;
: L( ]9 F Y' z$ f1 k& |* T6 Rend;
. q% q$ { N8 {9 W9 }. u. `- m出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 5 ~; f! y' k0 X: w
$ R% h& G4 U5 j" U; H |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|