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

zooey

is
' q" q+ Z- D: T        mark:boolean;
        dx,dy,ct:real;
; R+ l( r; a* h! J1 j7 C0 R, p    i,j,rows,lines:integer;
    machinename,bufname:string;
# X; L( q- U! H1 a4 v8 l* G    machine,buf:object;
9 ]) O5 R3 E, ]2 V& {do
        current.eraselayer(1);
6 ]6 r: {; M) r% j2 {+ d3 R       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
$ y. u+ i( P8 |3 L- l                when 16 then
                        print"yes";
                when 32 then
                        print"no";
" Z1 M1 }8 U" D$ F                else
                        print"cancel";
: ]1 `7 k: L. X1 Z                end;
" G- Q8 `/ n* h! e                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
+ p, Z! n$ V8 e$ ?+ `1 j        machinename:=sprint("M",i);
1 R" x& m+ E' e$ y3 r( V        if existsobject(machinename) then
8 v1 S2 c7 D  S; {+ R. B                machine:=str_to_obj(machinename);
                machine.deleteobject;
+ [0 }5 h8 _9 k3 J! `        end;
' a, _! }$ I+ e2 z, `( p+ i4 X, t        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
" T) p" }- y' T8 f  n: C$ e        next;
- E1 p2 k; E% A9 y' l) r: w       
- O2 a; y8 K  m. |2 i+ O+ T        dx:=0;
2 R; L6 Y9 L8 Q2 _  }3 S% U$ I        dy:=0;
, f  w3 o1 b  t  X  A7 a        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( ]$ I8 D! F& H7 f# {0 _                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 M0 e- |/ I# [9 h+ F. k                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
0 U; x/ {6 c& c% J2 j6 S  c                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
* P  ]) m9 {; E& F                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
0 `* z+ u* R5 a6 w) N                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
% m3 m: @3 ~" g- i                /*if mark=true then
                ct:=activityspace[2,rows];
4 R6 U$ ]' @1 ~# h4 K3 S" P0 C# v                        activityspace[2,rows]:=activityspace[1,rows];
# i, l  x* ]1 ~4 t9 _1 J- a                        activityspace[1,rows]:=ct;
1 `' z- g9 v( R. T) Q                        end;*/
7 W. C9 x; \4 e0 J4 @; y# ?        next;
, {$ D5 q: N9 r/ t        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);
+ O8 T' J5 l* {1 j- 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);
       
% ^) D1 {2 c/ R& a/ _0 w+ |. m        rows:=0;
        lines:=0;
! m1 j, C  r& O        for i:=1 to number_of_machine loop
  Y9 {2 P6 A* x" M2 E4 K3 C* b" i" I                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
% m, y5 t' @' ^/ i                        else
9 ^9 J' ?) W! [5 y0 D                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
1 V8 z6 C% R% C( A, z+ B( Z: K                                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);
" b7 L, C* f- @% t. P( s                        end;
! ]+ {) [7 s+ }% K0 ?7 C6 x4 C                next;
        next;
       
        lines:=0;
        partstable.delete;
       
7 z! k, m. [) ]' G3 o: x        for i:=1 to number_of_machine loop
4 d: Q% Y" g/ F4 e6 a' l3 m5 B; {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 {3 @( P6 U7 O                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
% k/ ?2 U# w6 t1 q) Z. t' p                        partstable[3,lines]:=sprint("parts");
3 W7 y# c" R" A                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
7 A( u8 a9 h3 a- D: n* S        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]);
) O% A3 m' \& g. E" d3 c        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
; d4 j3 R4 u3 i) L9 w        machine.exitctrl:=ref(leave);
' N' s4 I; p( g- J: _. X       
2 c" [% Q  g/ b/ _        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]);
0 @3 q- K( l  y4 g6 E        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
7 v7 s, i) k9 R5 v6 {  {        .materialflow.connector.connect(buf,machine);
0 g3 h$ o  V; g: Z5 _9 C       
( y0 ^# Y3 T8 q9 y+ Q) v8 J8 R& X7 u        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 P/ q6 t/ f6 i* `4 `% j0 _dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
" q7 S  n0 W" {8 \/ lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;