|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。/ N0 h7 b& [9 @' W/ N, Q: Y8 I
语句是这样的
4 K8 G- s7 ^7 i9 S; ris
. Y- O8 d% u# s4 T3 C8 d i:integer;
! a1 Z8 }- G& r8 Y- Y Res:string;
: c% v$ j/ n9 @. l$ ^ obj:object;* v7 s. |) v5 \* h
do) Z4 C) T8 L7 V
if existsObject("Status") then4 O5 C6 A4 @9 \+ R; ^+ S* l# e! k
Status.deleteObject;
^# _$ A/ J' F9 X( A! L3 J end; z$ e; U) x0 S; r }
for i:=1 to 10 loop
# ~0 u2 i" \/ g$ c5 u2 G Res:=sprint("Store_",i);( P3 C, M( G' {6 {% ]: u+ e
if existsObject(Res) then
& A c) T+ l2 c, r: }* }: o P1 ]) n Obj:=str_to_obj(Res);: E9 W1 V @) j, ^( W. {
Obj.deleteObject;# \0 ^7 H2 t0 O4 B
end;/ G! N" l3 k% J$ E
next;& B; ?7 ~5 L7 i
--shengcheng Status:zimoxingceng
6 O$ z, h3 p8 y# t( r/ U Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");8 i) g8 \+ p; r( o
Obj.Label:="warehouse status";- u4 a! r3 R: Q$ X) A- y
0 N( `; B* c+ @) T for i:=1 to WH_nums loop9 Q: ^& Z* X8 H/ D% J ]: A
Res:=sprint("Store_",i);/ a# [ z* i9 g( l$ ~2 {
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);* r" ^! f/ e2 G4 y
Obj.Label:=sprint("huojiaceng:",i);
, p4 U5 V7 |4 _+ a Obj.xDim:=WH_x;2 I& c( X6 h0 z6 S0 Y
Obj.yDim:=WH_y;
, _ Q" X) E6 q( ]2 g Res:=sprint("StoreData_",i);% n; q6 S7 P3 o2 Q1 b, p( \! U
: T2 e! D3 ~# o1 I8 I5 {# D Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);1 x5 N$ a' r8 Y4 P) P. e. A
Obj.Label:=sprint("huojiaceng:",i);; R# i. G" N& e9 [" B$ e
Obj.inheritFormat:=false;
6 i+ M" F4 U x8 K I/ ~ Obj.maxxDim:=WH_x;
8 ?$ N' B* ]- A5 n Obj.maxyDim:=WH_y;
$ c) ^% x/ R( o' E) i/ X Obj.ColumnWidth:=3;1 |4 B4 {/ m2 C! N7 f3 m
next;2 W* K2 _, c0 K% ?& e H0 o
9 `) Z# \. a# K* ^0 b$ x+ G3 k1 x
.Delivery.MUs.Forklift.speed:=2;
2 ^# V2 G `0 r* b" Z% R/ B: ` WH_var.delete({1,Part_Nums+1}..{*,*});
- D, r+ k' {, L5 e. q% O for i:=1 to Part_Nums loop
% ^* D+ M& w2 S }/ A0 I& {' h WH_var[1,i]:=chr(64+i);
' e4 I' [% ^) o0 B; m; I- ?& }4 ^ next;, T2 F2 L ?' M1 ]& d& e: E
end;, h8 _6 w( Z: L
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ) G4 _" b7 f3 T( U- \7 u
( J% i: w* W6 d# b8 t& O$ l: N |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|