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

zooey

is
        mark:boolean;
9 c$ T5 S0 u& V: L- p7 f        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
' R# O/ P% L2 Y' H0 u$ T       
) g6 i. b0 E1 _. |3 y& z0 U        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 u: e- H* A  O- D4 F; ~/ e                inspect messagebox("设施数目不对！请核查...,",50,13)
$ X5 j7 q$ N, J. Y8 S% i" k$ J                when 16 then
5 r: N% C4 N$ A: X! k# M                        print"yes";
! K: @& i& |1 ]5 v8 p: u$ v( G                when 32 then
8 {; o! H2 p6 _5 O% p/ s" _; x                        print"no";
                else
( I  w2 b8 |9 M* e                        print"cancel";
0 w1 s/ ]% a5 ^2 f                end;
                eventcontroller.stop;
& _6 _4 r- d& ?- h% _" y        end;
       
$ a9 F  A9 L+ }7 J9 E! f/ Y        for i:=1 to number_of_machine loop
$ Z, T5 b  c7 Q  x3 ~  |* T- [3 w        machinename:=sprint("M",i);
        if existsobject(machinename) then
0 @" T' W+ C$ F/ R3 t: v                machine:=str_to_obj(machinename);
- M* h8 X) `# h/ m7 H9 S                machine.deleteobject;
$ o/ E- h8 X- O! f8 a; [' U0 v        end;
9 i6 X' ]1 b* [  o! ], z        bufname:=sprint("BF",i);
( G7 m. y6 |2 b        if existsobject(bufname) then
. J) D) T2 E- E# [                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
; |2 I( V  d/ Z) a' G& N        next;
6 V: l) r1 l/ q       
        dx:=0;
        dy:=0;
7 S3 m! p) i2 P( f. A1 [  I        for i:=1 to number_of_machine loop
1 S! i% K# ^( o; ^& E: L/ ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
& j" ~( s3 U+ n# ~8 K                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
5 z9 J8 P* H+ C! U, P) B; ~                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 ~- e4 d9 g) `1 H5 ~' ~' _                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
' A6 i' d4 j6 B' s8 Z                        ct:=activityspace[2,rows];
4 @$ k! Y9 m, B% c5 P! T                        activityspace[2,rows]:=activityspace[1,rows];
6 w+ C" i4 v. |0 L3 b                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
, M0 z! z0 v; a2 C8 K/ P                        dx:=0;
% P1 Y9 a+ e) M% L                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( t3 Y. Q" k' x                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
7 N: _( [& c! O                        dy:=activityspace[2,rows];
# ~0 D& b5 ?" b7 R" F( j( ~                end;
- p/ O3 {' A; r% U3 @5 ?% |: T                dx:=dx+activityspace[1,rows];
  Z: q+ x7 x) }& E                /*if mark=true then
+ M! }7 p5 _. k+ ]6 X* l1 M                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  F( r& Y2 Q# \, e                        activityspace[1,rows]:=ct;
, p) A  h1 I$ `. v                        end;*/
: Q) d) i- m" B# L, Y- A# S2 o        next;
2 N# J5 ^2 t* W, w$ x" j  o        y_max:=y_max+dy;
# g- O9 ?! Y* W. W* O        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);
4 `. _3 e; A- j0 L; c        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);
  U7 x6 c0 D% ~1 T& i) X( T/ H2 w       
0 k, T3 F9 v+ w        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
! V/ p; E) A1 L  e                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                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];
6 y* _8 F5 s" x- G# _8 U                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
7 F4 K4 v, P/ T                next;
        next;
       
" R6 }( F- L7 e' ]& b  a( t        lines:=0;
        partstable.delete;
       
/ l6 D# B9 _$ k        for i:=1 to number_of_machine loop
: x7 z5 q7 t9 b! L! }9 d: @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
9 R; d1 o, e7 h+ m# ]9 t" D2 v9 u, s                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
9 M) Q# h5 i$ E# h3 m& T                        lines:=lines+1;
4 U5 m; T5 g* d                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
+ C! m9 `  l9 g/ j& L                        partstable[6,lines]:=j;
                end;
" x& \: R, E+ P  C        next;
* d& K: |  L0 m" S* i$ x9 K* g        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]);
5 X* |" o- m# [        machine.name:=machinename;标识符未知
& s+ R/ B2 {3 J5 p4 u3 K        machine.proctime:=5;
  u* T) z; A2 a3 F3 P        machine.label:=activityspace[0,rows];
& [% h" r( r" y9 ~8 d) p        machine.exitctrl:=ref(leave);
       
/ q* C- {' o0 b& Z. e/ @        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]);
# Q' U( ~  q* p% O* l        buf.name:=bufname;
        buf.capacity:=5000;
9 p* F, `, {/ R- F        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
% M1 k) E4 z' Q, w5 v        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 h9 p$ q8 i% n5 |! m8 t! Ady:=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;
7 A7 C7 i7 y; |1 L/ X7 Aend;