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

zooey

is
9 b  i$ X9 F3 E/ H, r        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
. D9 e7 ~4 q' `# x+ t: |+ Y( E        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 c5 R( l" P. B                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
* B3 ^/ ^) F% O                end;
2 ~  L. _6 \, G1 p( x                eventcontroller.stop;
        end;
) P" z; U7 T6 W9 r: d. T       
; i' ^' c( b1 }! R3 @% c! ]        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
/ s# w! r  @6 H' i9 L                machine.deleteobject;
        end;
1 l" k  M- M" i& |        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) N) y# q' b0 A                buf.deleteobject;
        end;
1 ~9 ~; H: o9 `' W) c3 U        next;
  W* L( M  E2 t3 j+ H  }# H       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
* l# J( [+ ]: M' ^$ v4 G, d' ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 q* y2 j; B" }# V% }3 M                --mark:=false;
' V/ a3 l; ]' ^6 J6 l# K                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 R" L' E5 d( f1 {1 x& i                        and activityspace[1,rows]<(1.05*y_max) then
; w( J% K$ [* H2 ]6 x4 Y9 V! Q  @                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
' W1 t/ \) T* m                        dx:=0;
                dy:=0;
                        --end;
                end;
& h- K; C5 E" @* O: B                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& X$ ?5 z& e. R                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
" U1 T7 B3 c$ X                        dy:=activityspace[2,rows];
                end;
& K3 Y: y  P8 {$ H% T9 j3 |                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        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);
" h- [, N9 H$ {$ d4 ^( a4 K        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);
       
        rows:=0;
        lines:=0;
6 |3 y  y- [7 n- i! D- q" D2 d/ Q        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
0 D5 A7 e2 M$ c5 A- E4 n: _                        if j=i then
) ]( q! \5 l  }+ d0 Q9 K; ~1 S6 P                                d_from_to_chart[j,i]:=0;
6 Q- G7 J7 @$ X* s                        else
) X4 s  d, G8 ~3 X- |                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% L( F; D' o6 t                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
! N; P/ {1 ?3 C, A( |                                d_from_to_chart[j,i]:=abs(dx-dy);
! C6 L2 f6 V' L! _2 B                        end;
                next;
) E# Z" J4 }  p; V* P0 `" v        next;
       
' S2 k- e, v3 ?& }3 p( v% D! j        lines:=0;
        partstable.delete;
5 ?2 r1 V' G# @/ B7 X4 _0 ]       
& ~3 U* k/ z' _/ X, E        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' T( ~9 D2 [" A( ]' T8 E; V+ M                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
: w5 B. N, [8 c% Z( G                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 x# r* V; P; H+ W+ v5 k+ R                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
4 r6 D' ~  ]& U" r" c) Q! M                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
3 f# r1 b4 k+ I' D( W; Z: f  V) }        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]);
        machine.name:=machinename;标识符未知
; ^& t- Z6 E/ E* A        machine.proctime:=5;
. W. R9 V$ W$ Y& v& f        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
7 y1 V, H/ }3 Y& x0 @( y- u       
8 V6 a5 O% |1 N( ^. J2 u% s        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]);
        buf.name:=bufname;
% _( L% w- k6 R9 Q        buf.capacity:=5000;
2 O! Z9 v2 r7 w: O- M% ~" H        buf.proctime:=0;
3 G% P& `# m/ h( v) X        .materialflow.connector.connect(buf,machine);
7 ?( x4 `$ P9 Q# h* J9 k$ O6 V3 J6 Y       
' \: T/ h* }' w: `! \& ~3 p        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 S4 y5 y6 r" f6 `7 ~dy:=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);
+ [- i( R' J5 U1 J9 Rnext;
end;