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

zooey

is
        mark:boolean;
: a4 w" J4 S' W+ `' I' z        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
4 p; m; f; \' H3 O0 \; q8 o    machine,buf:object;
) o# a. f3 i- Y$ w; Bdo
        current.eraselayer(1);
/ w5 r2 G, Y0 }. D3 ]; D       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ O, t/ J( A( c  r7 v                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
7 P/ N+ [4 @) J, ?2 W                        print"yes";
                when 32 then
) i! O1 E9 {1 ^5 l! w6 p1 }                        print"no";
                else
& p% i9 B  Z% l/ V4 l/ j* C                        print"cancel";
                end;
6 Z8 O* V; ]: D. ?" `                eventcontroller.stop;
        end;
       
: v+ ?* a' Z0 k1 l9 F        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
6 x6 `" m. f# @- u* F- ]% g9 m        if existsobject(machinename) then
* p; N. d; z1 z7 Y% J6 ~                machine:=str_to_obj(machinename);
4 S" v1 B( ?- I' i8 S0 g                machine.deleteobject;
" c2 s' a8 z) i5 t        end;
) P4 \% }" B" V- V: ]' g        bufname:=sprint("BF",i);
4 B, r$ J" u0 ^0 T        if existsobject(bufname) then
! c8 w1 _. v" y" g, d" g0 ]3 B                buf:=str_to_obj(bufname);
                buf.deleteobject;
7 q* G7 n$ {* ]  j4 k4 e- h) p        end;
) P, J( `" v4 {7 C7 I) T8 u0 z% j        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
* ]/ }3 v% L- b2 }. d" M& ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 ^& O* D6 Q  {& b% x4 M3 c4 u- ^* i* y                        and activityspace[1,rows]<(1.05*y_max) then
& k: t; l5 H' U                        print activityspace[1,rows],",",activityspace[2,rows];
4 }( m8 r9 {: G5 H; o& X- E                        ct:=activityspace[2,rows];
; d0 p+ u' G6 K+ K; }) W% c. ?                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- d% B( V6 n( k( p4 w" Q                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
4 [2 z' ~$ H9 ~6 Y8 y5 a                        dx:=0;
2 V% c9 v* L$ G( C1 v                dy:=0;
                        --end;
                end;
8 ~5 E+ ~) x2 D- G  B0 \                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ Z6 `1 o) e9 k0 D                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
. w% [& [% v, o4 y9 j' N            if activityspace[2,rows]>dy then
/ w* K) p, S8 _1 F  h$ B4 J- b                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
0 g; Y- ]: a* Z2 H' ?/ x) @                        activityspace[2,rows]:=activityspace[1,rows];
* L+ ^1 H  L3 s, s9 Q                        activityspace[1,rows]:=ct;
                        end;*/
        next;
$ e0 Z# X0 W  H& J1 b        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);
' a- _% _9 V! a' x6 t& v       
, r4 C5 M, c% S5 e' H9 g  f        rows:=0;
+ J# T4 t7 I$ f( Z9 u8 G1 i" e        lines:=0;
+ d$ m4 E( d/ |0 l/ c% Q        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
) y' E# b! `7 c9 r$ z  o) U                        if j=i then
( ]; d$ i7 L2 |# H                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% @! n% Z7 b; ^3 t                                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);
" i  R: Z9 m! b! y                        end;
                next;
        next;
       
        lines:=0;
! o6 o0 n6 `7 k+ Z. u        partstable.delete;
7 p! h5 s6 c# U2 J       
        for i:=1 to number_of_machine loop
$ H' W4 N1 S, r* y( L( _. p                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
# Y( Y: M8 e4 i1 a" P0 T                        lines:=lines+1;
" I( a" u8 V: l5 b' j                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 N3 ]$ v7 e% P% j                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( G) t0 V* M  h' q" t! Y6 [                        partstable[6,lines]:=j;
5 [# }$ S! c2 t  T% H, _/ F                end;
        next;
9 Y! X) P: H* I  w+ v: A' H        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 r( p# t( I: m+ t5 D        machine.name:=machinename;标识符未知
% R) G1 R8 o9 ~' l% y        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
$ `' Q( K! ]( G        machine.exitctrl:=ref(leave);
1 M. _/ o4 A1 q6 |       
, F1 C. D: R! m. G9 V$ t        bufname:=sprint("BF",rows);
; S; D  o$ S4 f1 K+ E( l! N# c        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]);
        buf.name:=bufname;
; x0 ]" ^8 J2 I1 |  N        buf.capacity:=5000;
5 x( k, ^: t; h; C% S+ M$ u  m        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
% Q$ p3 @, t  ^5 E& s2 @! ?       
( v& _/ ~3 C" z4 z: t        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" x+ |& I8 ]3 C- b7 M. `" z$ R" Hdy:=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);
next;
" V2 s+ w/ v1 ~4 u$ L9 g8 gend;
# f) ]+ h! P$ @, i$ C3 u' Y