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

zooey

is
" Y" Z" N" U* H8 s! i: l, a/ f        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
, d3 D+ D5 ?) n7 G" \, A    machinename,bufname:string;
    machine,buf:object;
3 D9 K0 V/ n+ L9 y! Vdo
& o# x2 r+ X( t! t  O& b        current.eraselayer(1);
: T8 q( P/ o' R) a9 U       
7 f7 {8 a# }* d( A0 P+ h        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  A7 s5 B3 t: n2 z- a: H                when 16 then
" v- [1 A7 v% R1 f8 }                        print"yes";
                when 32 then
8 ^. i8 ?: _" M+ K                        print"no";
" J9 m6 Z8 n- I8 D5 r1 ~                else
                        print"cancel";
7 S! E. n  @) r: w; l" u, F                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 N7 h7 ?& S+ S4 b- l        if existsobject(machinename) then
6 X% u1 o$ ]% @                machine:=str_to_obj(machinename);
6 t$ j2 z- v" P$ H) g0 N                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
$ N: r" x$ i8 W, q/ T3 S3 C                buf.deleteobject;
        end;
        next;
9 `$ t- g! F4 T4 a& M( J( C       
" N. K0 K7 `9 D$ g& d        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" Y$ [$ Y, j) e                --mark:=false;
: O" b& ]1 t6 v                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
! {$ k# {; v- [                        print activityspace[1,rows],",",activityspace[2,rows];
. x6 ^8 z: d3 n1 s1 l- r                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  `! L0 I0 @8 j) H                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
8 ^1 {# m: y% c1 L3 u1 s                        y_max:=y_max+dy;
                        dx:=0;
) h! S" M, L% P, \, q                dy:=0;
                        --end;
                end;
5 ?7 p5 g% a8 U2 l                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
! z( M, Z" }- L6 b+ K4 e5 B( k) i            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
- n  ^* d( @3 p+ U# z3 T0 r                        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);
5 w9 r3 b) j; C+ O; _- {9 @  P        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;
3 g" `- }: Z5 Q8 c3 ?, B- ?/ }0 G: @        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
/ Q! r; x# M1 w# {# g* ^& q/ Y2 c                                d_from_to_chart[j,i]:=0;
6 I8 e2 T. t# h( q                        else
6 D9 W% j, Z; t* O, x2 C                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ r# G3 Y/ k. T# u                                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);
2 ~( n3 U. i3 ~4 }% O) K7 F$ p                        end;
# R  e4 ^+ ?" _) W                next;
        next;
       
5 ~6 X8 I) d8 \" t( {! L4 t4 x0 [        lines:=0;
        partstable.delete;
9 R$ z$ G1 G( T4 S0 m) s       
        for i:=1 to number_of_machine loop
                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
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 w7 z- _3 ^* J7 v1 B                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
/ M- C0 a9 A  n" {5 e                        partstable[6,lines]:=j;
" `0 m8 ^  B2 l9 M  z                end;
        next;
( m1 O+ S+ R0 i  b* \/ \2 Y        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]);
        machine.name:=machinename;标识符未知
$ Q/ l& r8 c0 W1 O        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
7 P4 N& x+ \, l$ g! U0 J$ y; g        machine.exitctrl:=ref(leave);
       
/ d: d& W7 L0 d        bufname:=sprint("BF",rows);
& F% B: e1 }4 L- r        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]);
# E2 ?$ a+ f4 t$ Q; i        buf.name:=bufname;
4 N0 x0 X  v1 _! W4 Q) M        buf.capacity:=5000;
# C& v% R9 S* s        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
, C+ W& Q+ Z4 q. @       
+ d7 P: c, H  Q5 ?! M        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
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);
next;
9 |1 I8 [+ s8 Q7 g3 Q6 f/ |end;
8 d6 }. m5 ]. c% m+ k* ?+ E