|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
( ?3 a o) R- q. E; }/ U3 w+ _语句是这样的8 q# Y1 |% X+ ^( ? ]5 f* i
is; S1 `4 Z& P. X' G
i:integer;
# H3 K5 h+ P& Q% J% \ Res:string;
# Q2 |$ q3 b/ Q! h# V obj:object;9 w0 `4 u9 K" j% x# a6 T9 S
do! H! Y) `7 G+ N' O6 q' z
if existsObject("Status") then
% Q& n# F7 Z2 E4 { Status.deleteObject;
9 a( w m K5 i" x2 U* B1 o2 h$ p end;
, L; o- N7 L6 o( k6 ]# u for i:=1 to 10 loop
: o! u* R9 x" d0 C7 Z, o Res:=sprint("Store_",i);$ o+ d' q" y( m: m6 T& t
if existsObject(Res) then+ a" a5 l) s0 G& `7 d
Obj:=str_to_obj(Res);
3 I# T. h% W# k3 Q- k1 Z Obj.deleteObject;' H( o1 l3 C: r# K& O" ]* s) ~& e3 G
end;8 y$ q. g: u1 ` Q/ g: L9 B3 R
next;% o8 b4 z! P9 j+ T5 F
--shengcheng Status:zimoxingceng( h' W& R( n5 x& J
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
; D* h: w$ v/ ~( T' X Obj.Label:="warehouse status";3 S& X" L" t9 b, \5 E
- g' ~& R R( r0 p for i:=1 to WH_nums loop+ M0 w$ {6 A2 K. O! ^/ G1 `% n
Res:=sprint("Store_",i);
, k& X$ C$ b. Y' {! X, N; L Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
# B( o; U9 p4 L7 x1 |8 G r Obj.Label:=sprint("huojiaceng:",i);
' h! e2 K/ i$ v2 ^5 D3 z0 M6 w Obj.xDim:=WH_x; L% ~+ w* S h4 E
Obj.yDim:=WH_y;4 o6 j: R8 L( U S
Res:=sprint("StoreData_",i);+ e& ^4 _" j* R+ o
3 F/ t# l8 s7 v8 k
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
3 X% X$ n `) x8 d Obj.Label:=sprint("huojiaceng:",i); I; G" N! P) N9 w
Obj.inheritFormat:=false;* \0 y& k, v2 b+ n# d
Obj.maxxDim:=WH_x;
; G9 d2 h- @; v' x/ o% U Obj.maxyDim:=WH_y;
J$ b4 V+ Y/ V1 x+ S$ u Obj.ColumnWidth:=3;% A; C# o- ^$ R4 Q# X. ~ i7 J% v
next;6 C) p1 K: s8 W0 `. [
$ \% K" p3 m# K) m( X) D
.Delivery.MUs.Forklift.speed:=2;
: o3 H! I; J k0 }6 m8 l WH_var.delete({1,Part_Nums+1}..{*,*});
. ^+ g9 K8 w0 m$ @ `# i for i:=1 to Part_Nums loop
; f3 e0 q6 ]- b9 a: [ WH_var[1,i]:=chr(64+i);
( z9 E4 p& N0 L1 Y- J next;3 D6 R8 m8 Y& J% h. |4 {8 m( Z
end;2 D0 L( ?4 a* Z2 Z
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
& l/ s! s8 Q3 a+ I6 }8 @! I7 x
7 [6 n1 i+ V4 Y$ S! v- D; E) G9 k7 s |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|