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

zooey

is
        mark:boolean;
) c! Z2 T- q( T5 G# [        dx,dy,ct:real;
! a8 {( ~( B7 L5 B3 p5 l    i,j,rows,lines:integer;
    machinename,bufname:string;
+ y2 h% ?  Y* ~# ~    machine,buf:object;
8 V: i0 K4 _1 K) ~do
# c* P$ x, S, C- @: }5 I        current.eraselayer(1);
       
  l" A: u) s$ f* t  c( {' l        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 }" ]; C& ]9 \& O8 s3 h                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
" i- K, u  \% U5 c                        print"no";
                else
0 O. u! s- P0 }" K4 k0 o/ O- P4 q                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
: I' @- ]2 H4 ]/ c, x" O+ C                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
9 [8 z  f) \; G3 I        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
0 t# W" t$ B3 K- J9 S        next;
       
        dx:=0;
( f2 ~7 G$ B$ Y" Q        dy:=0;
4 [. B. p9 {$ ?0 g: ^        for i:=1 to number_of_machine loop
) {- x0 b; z: _) m+ B1 F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --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
                        print activityspace[1,rows],",",activityspace[2,rows];
! b7 r8 ?4 K  O. g) a                        ct:=activityspace[2,rows];
3 W7 Q: q% Z% ]. s                        activityspace[2,rows]:=activityspace[1,rows];
7 n2 i/ U4 g  ~8 I                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
8 j& L# H! T5 L# f                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
  Z/ ^# o( J, ?) w1 {8 o6 L                end;
$ A6 Y  b# y5 D: f                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& D, C& s; S' l) T& b                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
' n3 R6 ?- Q9 L3 g, Q                dx:=dx+activityspace[1,rows];
  K; q0 F+ O2 E; m/ [4 ^5 ?0 p7 n" p                /*if mark=true then
/ f$ Q! B$ C/ r5 w% B5 j                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ e! P( R  B' R3 l$ s                        activityspace[1,rows]:=ct;
: C& x0 I/ `" |+ |5 H1 Y                        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);
        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;
        for i:=1 to number_of_machine loop
8 P) T: ~& N/ y, g. _. m- U7 R                for j:=1 to number_of_machine loop
5 ?% Z+ }8 B" f5 t                        if j=i then
                                d_from_to_chart[j,i]:=0;
! A" Y/ @% w1 d/ l3 ~) o                        else
) C, Q% d+ N: T$ d, j: W! t3 I                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                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);
                        end;
* M1 K5 N( ?3 M6 L4 e+ T                next;
        next;
5 E/ i/ o5 r6 K- J       
        lines:=0;
) _. B7 o$ T9 g- K' _' @3 E3 S2 r0 f" {        partstable.delete;
. C% N6 f; Y% l7 R       
0 {- g  r% C0 t, W        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
7 L, [3 Z: g% J+ H* Q                        lines:=lines+1;
! L5 d  }/ Z* ^( X* E( b; z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ o) O: L$ r; }$ i                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 I2 r* `$ X% l( W9 j                        partstable[3,lines]:=sprint("parts");
5 g% v6 d* n/ E' F  D+ p2 o                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
' P# \' N* h& q0 S! Y6 D3 M! e7 I                end;
/ Z1 D6 s. r3 Q! B        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]);
. \* _# h; U( p6 S        machine.name:=machinename;标识符未知
; x. q% ^) H2 |5 a: c  L" y        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
' D/ h8 k# _  M5 j! @( [        machine.exitctrl:=ref(leave);
       
        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;
' w$ M, z4 |7 A+ x        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! A0 \! t) E  R" Wdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
0 R2 K" _" L+ m0 h8 kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- k7 d+ D$ g: ^) U  T7 V  @+ Nnext;
$ Y6 W3 I  q3 A8 lend;