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

zooey

is
! {, `* Y- ?, |* Q7 ?+ ^        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
9 l* F' Z* ]5 p    machinename,bufname:string;
) ?! O. E6 \" i7 k6 d  G2 e0 o+ x    machine,buf:object;
! N9 x+ n, ?9 Y# f! F: H: q9 _do
% X4 t+ W, o5 x6 A9 o        current.eraselayer(1);
       
, P, a% Z+ P5 E/ t; f        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
- W8 N7 L' P, x; o) C$ f& B% c                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
/ J  U% e3 w0 a) @+ \* H                eventcontroller.stop;
5 z- r# B& U( e; p4 ^* |% O9 N        end;
       
        for i:=1 to number_of_machine loop
& o+ Z5 M6 i& Q/ S+ Y( {        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
, }$ Y$ L' H* `, k0 \; i: F                buf.deleteobject;
% l! z5 ?* \  L! ?6 \        end;
% X, T. j6 ?: N" B6 t+ V        next;
7 [; m/ M* T& O" `2 Q; B7 W       
' ^3 E- y# m; U( }0 t% I- @- J6 b        dx:=0;
1 d- f* q( H1 q9 Z        dy:=0;
        for i:=1 to number_of_machine loop
/ Z- a$ M$ H; a; A' ~4 o! Z- f; j- U7 L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 w2 A* S) q  p                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' I" {0 A- V2 ~$ Y                then
2 _% g( u3 N0 @8 P; d1 H* J" Q  f                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
, g1 G4 U5 H2 y& _7 J                        print activityspace[1,rows],",",activityspace[2,rows];
* R/ }  ^! O, `2 _8 u2 a                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) K8 v; ^5 h9 N! ?6 x                        activityspace[1,rows]:=ct;
7 ^( q: Q2 t# C6 v' p7 D                        mark:=true;
' L7 ~/ O0 j8 I8 D9 N+ d& z' `                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
. F1 N) m$ A7 W5 O$ B" O  q                        --end;
                end;
  j: T  E6 p& l  v                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;
4 [% D9 m  D, h& w: n4 R            if activityspace[2,rows]>dy then
$ k* i  s) X+ J' R7 m7 U6 N                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
6 a2 J4 s  b1 g- u9 W5 y3 f                /*if mark=true then
$ H9 i  ^" v* b. q2 t                ct:=activityspace[2,rows];
5 G0 `/ p6 G( k% U, f                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
, }* F. ^) A+ N  a, t        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);
9 W4 C1 v+ l2 k) Q/ u        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;
5 u& Y4 ^: ^7 y$ U: U6 J& \        lines:=0;
        for i:=1 to number_of_machine loop
; _0 p/ C  t6 M# m$ e                for j:=1 to number_of_machine loop
                        if j=i then
* N# L8 D# z5 q% P9 E. ?+ f$ g& x                                d_from_to_chart[j,i]:=0;
                        else
8 p+ k4 [( i- ?0 p) _$ g# Y                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& X" ~* M6 Y! o+ e2 w5 K                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 b) I! U7 x! t2 N: M/ }                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
- L$ `: [! S7 G1 f  {        next;
       
, A0 m5 F1 Y: l3 I6 Z( j* V        lines:=0;
8 r# P% b8 L# s' _/ a; M# ~        partstable.delete;
- q; T. O5 A, s5 A6 @/ D" Z4 @       
: _* V  F. ~! B$ f% X        for i:=1 to number_of_machine loop
/ [: y6 \, z, P, G. F: r8 [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ m2 W/ l3 a& l& o                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- i8 E& i6 `  j- h0 D                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
3 w2 H' H0 q* H3 g; H6 m: d                        partstable[6,lines]:=j;
/ I% P, R$ ^' @, U                end;
* c2 l* u& A5 v+ G9 M% Z' [+ M        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]);
        machine.name:=machinename;标识符未知
, j+ D1 e! U, N        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
9 V* ]& L  ]/ h3 q7 c* H5 s) |       
) [+ y/ ?6 B) P2 {6 G        bufname:=sprint("BF",rows);
+ t2 e; ?) s) U7 i        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]);
! \* P6 f; }* h' K& R; J        buf.name:=bufname;
        buf.capacity:=5000;
# g  @/ j8 r" s2 ~$ r# U        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
) W0 g: X! ~. y) |1 }# q" y+ L# i1 l        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" c. |9 n& H; zdy:=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;
end;
# k' c. K: ]4 Z! I% G  v