|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
w4 x& V* R- k( ?# E; A* I语句是这样的
# {& M& N" \! M7 [( t* p6 \is
( f' R: @2 | K" `+ ~) T) B3 g& I3 Y9 v i:integer;- h W/ n9 ?8 l6 U9 L- U* y
Res:string;, \- f! N* [3 x. _% r: z. Z
obj:object;
8 H D. g: O7 I6 zdo+ F* t& g5 \# D! h
if existsObject("Status") then
% \- M( c( q0 |2 M Status.deleteObject;& R7 T/ s6 o# Y' S/ D9 m
end;
0 v4 [7 `: [1 ^9 c# g for i:=1 to 10 loop
/ E v! @% V2 F; X Res:=sprint("Store_",i);+ B8 `" c) `5 F3 C5 X3 P
if existsObject(Res) then0 L `+ B; c4 f
Obj:=str_to_obj(Res);* @) B7 d6 c5 T8 i6 H. `5 v& {: b
Obj.deleteObject;' l8 w- ?6 ~- [" S9 T
end;
& q) \8 c- @7 b7 m next;% T5 U( s; \( J8 {
--shengcheng Status:zimoxingceng
6 f% W( R3 c& r6 u; N4 X' T% d Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
! W. K; \2 j |- y Obj.Label:="warehouse status";& ]: k# {+ w- R6 H
+ B5 U0 `2 f4 R, G$ X/ Z1 b for i:=1 to WH_nums loop
' h( S* _6 J- \& ~. ^ Res:=sprint("Store_",i);8 c7 V! t( q5 i5 y% H
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
# P. x! u' ]$ d9 \4 ` Obj.Label:=sprint("huojiaceng:",i);0 n8 a# @; g- O, S1 ?
Obj.xDim:=WH_x;( X1 ?$ I7 A) w1 q) o8 E
Obj.yDim:=WH_y;) H, j- j) _- c3 R/ ?
Res:=sprint("StoreData_",i);
( j, G9 E5 b* d; x" J3 V1 w 5 k' D2 p$ t& ^/ }0 D
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res); L. ^' c' X i1 ~4 I; J: {% y" k
Obj.Label:=sprint("huojiaceng:",i);
8 U; l( w) l$ c9 u0 ] Obj.inheritFormat:=false;
, A$ j" V2 H) n* W+ m Obj.maxxDim:=WH_x;% n! \9 A; }' c
Obj.maxyDim:=WH_y;9 b" Z6 K1 m. Y
Obj.ColumnWidth:=3;
4 U# m7 J; c1 r$ o2 N3 p next;( |) P- s0 L* P* ]; |# X: t
9 ]' J7 i6 q; r' C; N .Delivery.MUs.Forklift.speed:=2; E# r) ]" g2 C+ |$ R
WH_var.delete({1,Part_Nums+1}..{*,*}); I; k) ?' |. ]5 k4 C
for i:=1 to Part_Nums loop% B! g0 t' m4 ]/ t
WH_var[1,i]:=chr(64+i);3 E7 s1 W# k G0 K& s
next;
# a' L( T* y/ { j1 b1 W; q: O3 bend;
# ^9 ]# W0 ?! e+ j$ u9 E出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
* e% q2 c, Q8 i. _7 M
) ~0 a9 b$ G; ~! U/ w1 ]6 X' R |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|