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

zooey

is
        mark:boolean;
7 [2 @, o. ~3 j. x, v8 r        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
( O1 `" \4 O/ T/ ^5 y! f        current.eraselayer(1);
0 e! Z6 W5 b% O1 f       
% I* Y) e1 t, \. J5 }& S) w' d        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
1 d4 e8 t9 o% [                when 16 then
; c4 v' W' H: ^6 L                        print"yes";
( r6 z9 A' T- {1 D                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
, T5 p* u1 X8 o' ?        end;
3 Q, S( e$ s& I2 T       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; p, d# h( y2 s$ e8 p, e% t                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 H( X5 o; D( F7 w                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
* |" i; I% Y) d+ u        next;
3 U  F( f# c9 k- H. l0 G0 f8 I       
2 y5 H6 V4 B0 V1 H8 c% B        dx:=0;
        dy:=0;
( K3 z0 X1 }! R; T        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 |( [) t" _* c5 ?9 C& E' R+ [                --mark:=false;
                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: O  `, k- n/ P! T) F                        print activityspace[1,rows],",",activityspace[2,rows];
, {2 x0 P) n- y' \) w                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ y7 p+ u. h# n; }! ?                        mark:=true;
                        else*/
( K' H5 s: x; N' Y+ _, X# d                        y_max:=y_max+dy;
; E7 L" v4 p0 M; e4 S: @; h5 [                        dx:=0;
0 ~9 d/ J  ~9 d6 |# r                dy:=0;
, A) U' s4 l+ O                        --end;
: s5 ]" O. y9 ]. R                end;
                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;
3 ~% L' {% T: ]9 w. J            if activityspace[2,rows]>dy then
  T' }* O9 q& F5 j4 z+ p. {                        dy:=activityspace[2,rows];
8 u! y/ f' h1 t                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
( H) W& ^' y8 A; b- I+ S5 S6 t                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ z) I, x+ H' K                        activityspace[1,rows]:=ct;
                        end;*/
- x+ B) t4 W- N        next;
5 ^- Z: L2 g, ^! B+ D        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);
       
        rows:=0;
: u2 _; D. k, h, C        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
: N0 z+ {! V  u( y6 C# J                        if j=i then
' ]/ M. C- K6 f! m2 b3 A0 A                                d_from_to_chart[j,i]:=0;
3 o% J- J& P8 K8 u; b- i                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) v- Y0 x. F) {6 `4 R: [5 j                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& ^5 R1 P7 \* B' Y1 D                                d_from_to_chart[j,i]:=abs(dx-dy);
) P5 k: \6 _- n2 S                        end;
, o1 g5 b$ [. p, |: ~                next;
        next;
       
# o/ K: |8 a: a- }        lines:=0;
" ?! U4 f; N8 L        partstable.delete;
9 E+ x. ^/ u8 s! Y0 l5 s       
) q3 g& H: D2 n' r$ G3 j+ D        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
2 X* D) V/ {" e! q                for j:=1 to number_of_machine loop
# G/ W/ ?# Y, |9 [" k                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
1 S" ]' e1 I0 e! [# N2 Y0 M                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
! v9 a: Z" ^, e5 x* l        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;标识符未知
, K- `- x* d6 c        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
: t1 |& R# K, t# K        bufname:=sprint("BF",rows);
, r1 ]) M3 v+ W$ U/ q( k" u        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]);
! t# Z" b1 m4 T, B        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' b  @4 d2 T. z       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! s' p5 d/ J' [3 A4 Fdy:=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;
& S3 S( d" c; Oend;