|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
; i& {/ \- P7 \5 f" b语句是这样的
# d" y# a/ w" U# x# qis
1 c4 O! ?/ ]: B i:integer;' p+ c" r$ M) e' M- Y3 c3 t
Res:string;
* }& ]9 _- i' K9 x+ {% P obj:object;
( |! k: E. q' [- S. {1 fdo5 {& p/ b. _5 X5 z( e3 o& I
if existsObject("Status") then
$ {0 k5 S3 S# F& ~3 B9 w: f Status.deleteObject;& { b* I. c5 _ X6 P# ~
end;
; `2 Y" Q4 T3 ^- s, Y8 y/ {3 R for i:=1 to 10 loop+ r: W$ T: {1 j, Y
Res:=sprint("Store_",i);
7 K# X7 k) T) P5 f( ` if existsObject(Res) then8 @7 b1 W% ~3 F
Obj:=str_to_obj(Res);
1 `/ W: E# x! U2 ]/ U Obj.deleteObject; B( B- F# [3 C$ g) g7 p/ {
end;
: O7 m3 U% h0 Y5 w3 L* K next;: J! B1 k3 l4 b v
--shengcheng Status:zimoxingceng
4 N; v5 N0 Q+ G: P {, a8 q0 |0 L, S Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");8 C+ h) m. Q' ~! v+ M# o3 l; g0 u# e
Obj.Label:="warehouse status";0 ?' Y! p# d, Z0 Y# q# u) D
! ]3 G5 i, C/ Y3 B3 N$ M3 \ for i:=1 to WH_nums loop) y/ E) c6 K% f# t$ q
Res:=sprint("Store_",i);, \+ A. _! W- ~# T1 J) X
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);# T2 c$ |. M" ]& K2 L# {) K
Obj.Label:=sprint("huojiaceng:",i);
5 O1 h# s) W( K Obj.xDim:=WH_x;" ^' q, }% O+ r+ O; {
Obj.yDim:=WH_y;
9 T2 W/ H1 g* q# Z& q Res:=sprint("StoreData_",i);- {! r4 t& R0 l$ q5 n
; v! }+ W! l* u4 `9 U! k9 {
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
+ B. M7 { ?0 i# q# L Obj.Label:=sprint("huojiaceng:",i);
, t8 U( i; ?; z* ]5 c% Q. r Obj.inheritFormat:=false;. ~ y& L' }* v1 R+ u% O
Obj.maxxDim:=WH_x;9 p" U- o) t( O$ S9 N% T% h
Obj.maxyDim:=WH_y;
5 U2 \) B3 @, X' X: e Obj.ColumnWidth:=3;
8 W4 p' V- ?/ S* ?* r next;) O/ j7 |. a& @. o
4 i; g+ y/ Z' `2 |( N .Delivery.MUs.Forklift.speed:=2;$ p7 F! e2 ^6 w" o. q
WH_var.delete({1,Part_Nums+1}..{*,*});
. b5 q# j ]8 {( T, w2 _! b6 r; l for i:=1 to Part_Nums loop
" U" d: w7 s$ B6 y% k WH_var[1,i]:=chr(64+i);3 V' K; X$ M+ o# |) Z
next;' D$ o5 V( a2 S; f% @1 e
end;
* [5 ]6 b; ^9 @; W& M# @出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 % r$ d# e6 ^$ v0 W
. j$ f9 V! ` s |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|