|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
S1 p/ w) f' T6 o* B语句是这样的, g! D: { V. }# p5 R
is
, Q$ i8 Y) `( I: k i:integer;
- X/ O3 i0 Z: I, | Res:string;
( Y7 ]2 Z( p' G- Y6 @ obj:object;3 Z2 |# N6 F, R z( h
do
; R! S5 g. w0 g if existsObject("Status") then; k- Z0 p' Z& |- A
Status.deleteObject;
9 a1 p" P% o* a& {. Y end;2 J3 j* D$ y$ p
for i:=1 to 10 loop% F7 V U' T" ]) D. h2 I
Res:=sprint("Store_",i);8 U; o( \( T; p. P8 Z) w
if existsObject(Res) then
4 } b5 D) W8 s: I2 z7 @- R Obj:=str_to_obj(Res);8 V: _/ l) F6 g& y; o3 g. _7 ~3 W
Obj.deleteObject;; k: E( i8 }0 X
end;
/ `; `! b/ v6 U' X) J4 _0 y3 X4 X next;
4 j$ S' j5 }8 s" s. Z2 _ --shengcheng Status:zimoxingceng; D0 b- w n: \( s$ q
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
* x H2 D( t' ^; K, I+ b4 V2 H Obj.Label:="warehouse status";
& S! U/ r$ h: W7 _5 P $ S( R7 @+ P2 J$ `2 Z, ~/ |, _! |" D
for i:=1 to WH_nums loop
# z) @! N# u- W! I) F3 W Res:=sprint("Store_",i);
( G1 { Y( U- v) k Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
R6 X7 K5 f. ^# e C* u Obj.Label:=sprint("huojiaceng:",i);
! M! N+ P3 C3 ?! h" Y Obj.xDim:=WH_x;0 c4 ?: ?$ f+ t* v9 ]: e
Obj.yDim:=WH_y;4 B: ?6 R+ l3 o. U, ^5 N
Res:=sprint("StoreData_",i);% S2 D- s% w- x0 Q4 L& [
: c3 i" s$ O1 B! A. {
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
7 D8 B# b+ ^; N Obj.Label:=sprint("huojiaceng:",i);
" b( n1 V" t, i% V Obj.inheritFormat:=false;
' C2 u- z; u0 Z9 ]3 S- G& W Obj.maxxDim:=WH_x;7 P' Y0 |2 O+ D: |
Obj.maxyDim:=WH_y;
: Y1 \' {- P) T& o Obj.ColumnWidth:=3;2 z9 w+ a3 F N; S. A6 B' [
next;5 s) I9 c% X& q5 Z0 T/ d
& o1 U. k* R( H" P* i/ `% \! | .Delivery.MUs.Forklift.speed:=2;6 L# V4 Z8 t' s7 |5 l) z( U/ w
WH_var.delete({1,Part_Nums+1}..{*,*});/ O3 \; @7 Z5 S& A. h
for i:=1 to Part_Nums loop h, s/ R+ Q- T7 o& V/ n' Z5 S
WH_var[1,i]:=chr(64+i);
0 z: k# C# f) Z0 w, R2 s next;
/ s; B9 Y1 e: j" J. [4 Send;
t8 ?; W2 a, D9 _8 ^& g出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
3 @" |9 ]3 U9 v1 p( A- L$ R) \ ~$ s, C( F1 g# {
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|