simtalk程序调试不出来，帮忙看一下

zooey

is
( j4 Q9 q' n3 L" g9 p" `! ]        mark:boolean;
        dx,dy,ct:real;
% G+ y$ G1 M' |/ t$ T, L    i,j,rows,lines:integer;
    machinename,bufname:string;
+ k4 s8 f( l$ G* U8 L0 j    machine,buf:object;
do
7 o/ A5 A4 A! G( b8 B0 F        current.eraselayer(1);
3 k! W$ m' Z& l7 L- v4 g       
1 u+ a3 B+ |8 B: a$ T4 Y; f$ C4 ^        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
: U: j2 O  r3 }+ `+ Q        end;
4 r- c, `  Z/ {3 i* h+ p       
& j$ {: D4 {. C  P" w# D( o        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
# K! E- x+ P3 H8 Y7 e% {        if existsobject(machinename) then
! i/ m( S  U. b# r( P: X                machine:=str_to_obj(machinename);
1 p  t; i) O# V; |5 Y& Z                machine.deleteobject;
' E2 m$ Y9 h) i. r3 E9 S4 m+ Q        end;
7 u! B; R' s) S& L" e        bufname:=sprint("BF",i);
        if existsobject(bufname) then
* I5 c! \/ G: B8 a                buf:=str_to_obj(bufname);
                buf.deleteobject;
$ |1 B% m* A& C+ {6 i        end;
7 R. n/ Q& l( A; t$ ~1 }9 X        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
6 D" t9 v: [2 y9 ^/ e0 l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% G+ F9 L: B2 H( z( k: n                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" l' z5 C5 R& b% _                then
6 }+ S+ F7 S7 ?" U$ L$ a4 t' G8 S                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! d* [  p" e: ~" D  H+ h5 j* L                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
$ J4 c. U+ H3 H0 a3 N3 M                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ J/ Z9 v. H8 t4 h" b                        activityspace[1,rows]:=ct;
                        mark:=true;
1 i3 T) m! K: x- B+ ]: F                        else*/
                        y_max:=y_max+dy;
( ^$ l9 a2 Y8 d7 {( r) d/ \) L                        dx:=0;
                dy:=0;
& v) k3 h/ ~( m  ~. ^) m                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% S, c) `( C# L, L" Y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
1 @4 x: F% i# f6 N- G                        dy:=activityspace[2,rows];
% I( U1 O( ]* w: |8 U' O                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
; ~5 Z* G1 G  S+ _5 S7 j  ]3 v                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% h2 m0 K0 m8 e9 D- g" U2 O                        activityspace[1,rows]:=ct;
6 P. y- [5 u1 d                        end;*/
        next;
        y_max:=y_max+dy;
        current.drawrectangle(1,x_pos_init-5,y_pos_init-5,activityspace[1,number_of_machine+1]*xscale+10,y_max*xscale+10,228,174);
        current.drawrectangle(1,x_pos_init-7,y_pos_init-7,activityspace[1,number_of_machine+1]*xscale+14,y_max*xscale+14,238,176);
9 b! y: C( T: Q( b0 h       
/ Q9 s1 ~0 U% t2 s/ ^4 m  z        rows:=0;
" w/ }; C( N; q  y; F% e        lines:=0;
        for i:=1 to number_of_machine loop
3 H1 i' X9 k& |8 h. Z- o( u                for j:=1 to number_of_machine loop
  c+ I+ ^; |3 ]2 p) U/ @                        if j=i then
3 b3 |+ C) ]8 A% c& L8 j* k                                d_from_to_chart[j,i]:=0;
% @4 Y; y7 Z7 w$ j# T                        else
1 X7 P/ [( R8 L+ y( P                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
1 _' \* e& ?3 O                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
+ G1 E: @0 h8 i5 ]( y* F                        end;
                next;
1 M! u9 e/ M; T" X. X        next;
! [! z2 `* e5 c: m" L  [/ }6 F1 A       
; o5 N( j2 B2 s* A8 Z- P+ i$ n8 `        lines:=0;
: d: h& B: m! U; c& ]        partstable.delete;
* S6 E# ?5 C6 F$ ~/ m       
7 T7 M5 ]- T) s" d8 y        for i:=1 to number_of_machine loop
1 o. a1 O- H$ e5 ?6 U/ `, [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 L6 b3 |1 ~6 X" z$ i                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
6 I9 A- }* C" C  e$ N4 q                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
% J, H. J; {" [; s3 o! N                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
, @% r" r+ f& @/ }. E                        partstable[5,lines]:=rows;
4 Q0 S/ a& t- J" h- `                        partstable[6,lines]:=j;
                end;
( U  V2 F+ H0 z; q        next;
        machinename:=sprint("M",rows);
        machine:=.materialflow.singleproc.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]+15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
0 H. g4 l& v' s0 b5 J        machine.name:=machinename;标识符未知
1 q6 e# h0 F8 f+ o7 N' F        machine.proctime:=5;
8 R$ J6 e! x. _7 q3 E- M2 m        machine.label:=activityspace[0,rows];
- U- t8 ]7 g- {7 M. v        machine.exitctrl:=ref(leave);
       
9 Q% T3 K5 v# X        bufname:=sprint("BF",rows);
        buf:=.materialflow.buffer.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]-15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
5 p: P, z; [! j/ J        buf.name:=bufname;
. T7 v- ?9 p& v2 t        buf.capacity:=5000;
3 S7 k% {, `: L; N  s' ]/ }: f        buf.proctime:=0;
3 b: S; x, t' S3 x! Y2 a$ G. ^* Y5 e" E        .materialflow.connector.connect(buf,machine);
: Q7 A, q" H2 [& ?       
0 X5 @, d2 U) u3 N7 J8 [/ [8 V+ U  Y        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ W1 Z& ]! Q5 P; Edy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
+ h. r( J9 s6 M# h1 Qnext;
# e' t4 z0 L0 T* b3 V3 \end;
0 [: \, c* j) e: ?* s