|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。 a( }: ?% {# S6 s9 G3 ]+ B. B
语句是这样的
5 M/ A3 Q; ^, {7 ?is
6 }* P7 |1 O5 Q: s2 P8 _6 z i:integer;8 S4 Z6 o2 e) {% {& ~3 h
Res:string;0 z! w9 p6 z0 X; D+ q0 V. J z* w9 m
obj:object;" f3 i( _- k: E4 Q3 F$ }" `
do
9 G) L% o/ X: p: v0 |+ ] if existsObject("Status") then0 ?7 p9 j Y. l
Status.deleteObject;
" o3 e; C$ v0 v1 Y end;
8 a. y* h9 H* w for i:=1 to 10 loop$ a- O3 t' X9 l- v
Res:=sprint("Store_",i);. ?' ]+ h( ?2 G5 i! r7 F. Y
if existsObject(Res) then
' k1 P1 k- u4 O* E( M Obj:=str_to_obj(Res);3 p$ B8 d+ k$ d
Obj.deleteObject;7 U( t" R4 d' [% u% ^
end;
. U0 s' v, g4 w. P+ ^& K next;/ k4 H- g( v2 w( |% U; \( l
--shengcheng Status:zimoxingceng0 e4 x' c# I2 `6 \7 e+ N3 }
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");( o# ]% \' v/ E
Obj.Label:="warehouse status";% m V9 V# S% f5 \
/ `7 x* h, |5 l! t8 H6 G
for i:=1 to WH_nums loop$ n; G& R3 V$ m5 r3 b/ d0 B/ d2 V
Res:=sprint("Store_",i);) |# ~& j# q" u Z# h
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
b4 q! M S0 r3 I7 b: e3 O Obj.Label:=sprint("huojiaceng:",i);+ U" ?- Y z$ ~( _
Obj.xDim:=WH_x;$ L" N; I- y4 z, Q$ P% s; \1 J
Obj.yDim:=WH_y;/ _$ y) t. m0 ?' K. p! j
Res:=sprint("StoreData_",i);
5 Y( Q0 b" n3 X# a! ]4 u' L
& |1 l, Y) g9 |% k$ D3 \' V# I( j Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);+ R( ?' @; G( d* ]! X/ B
Obj.Label:=sprint("huojiaceng:",i);( s6 z `3 ~6 J! J
Obj.inheritFormat:=false;+ t K" u9 H% E! K+ V$ o& c" \
Obj.maxxDim:=WH_x;
" B7 z, j; c+ B" p Obj.maxyDim:=WH_y;
, U: k! W2 m! x+ Y7 L Obj.ColumnWidth:=3;
2 W# g# T+ ~& r; `( n$ s" t next;
* m" O1 M8 W" d : o: }" J* S6 `0 |' d* e. r
.Delivery.MUs.Forklift.speed:=2;: E9 K; Y( P% Y) n3 S: h
WH_var.delete({1,Part_Nums+1}..{*,*});# ^: ^0 Q6 y# Z8 q4 ?
for i:=1 to Part_Nums loop; h5 X8 i( L( S& U# o/ X, B6 G
WH_var[1,i]:=chr(64+i);) W J, n! \- g9 O1 R
next;0 K2 n" m! E- v3 K
end;
( S; i6 w0 t! a$ w5 S/ v出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 1 V4 z0 R# }4 M6 v* T# M% T
z. {+ x, i$ g7 P
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|