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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
4 m0 S5 _. s, V0 R. a( r+ Y    i,j,rows,lines:integer;
& X( Q" j5 v! s) }# j# }    machinename,bufname:string;
, ]+ I$ c$ q. s    machine,buf:object;
do
/ R$ R- H5 k* U2 t1 E        current.eraselayer(1);
       
. V4 C* T8 ?$ q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  n: d! D3 U/ s3 k( i: }                when 16 then
                        print"yes";
                when 32 then
2 p( ^" c2 q6 O$ p: }                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
) ]% L* o$ t5 L, _/ |( Y4 Q        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* M* J* u! t1 x5 @$ L  t        if existsobject(machinename) then
2 a" n% d: ~. S, u) z0 f, q- i                machine:=str_to_obj(machinename);
: \; }9 z' ^/ T& @" }/ `9 u                machine.deleteobject;
        end;
: e# z2 E. O- [4 Q. u+ K  f        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
9 d( T/ W5 W9 O' e8 W        next;
/ Q1 I- h  I" e$ T       
: P3 C& |  }. o6 }( b) A        dx:=0;
        dy:=0;
5 Z3 g! Y' W  w, \        for i:=1 to number_of_machine loop
8 x: z% }& A+ x& x, S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' c0 _4 s! Z" j) A" ~3 p                --mark:=false;
3 c  @9 z0 s8 Z2 i% n9 I                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
4 l  V6 I0 c$ i3 |1 K' L                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 H4 r; e5 r9 H9 N                        activityspace[1,rows]:=ct;
$ z/ T: g% I9 X# h2 h5 l& u                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
* d1 h5 X5 y$ E1 Y                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! X1 V7 Y( s. ^% G. {9 T                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
  Z" M6 R5 P" r3 \            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
+ z+ q3 z' C9 c# U5 i$ R( |- M  a                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 y9 e; k7 E5 K- t# \                        activityspace[1,rows]:=ct;
                        end;*/
( r; k3 x. B( n# y        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);
5 T9 t  R. T3 m4 j4 Y( @( j       
5 Z4 \4 }9 c% }        rows:=0;
4 z, ^$ d/ `' [        lines:=0;
7 n! E) V1 v3 d6 q/ N6 C" v        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
" x/ [; J% |8 H                        if j=i then
0 @1 A0 T* P. y% W8 f                                d_from_to_chart[j,i]:=0;
( m. B; H& D* y& y                        else
" Z- O, y4 M! I9 v3 f                                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);
( B3 N# e# @# I* K2 w                        end;
, d) y- Y% e# @2 {8 S: Y                next;
7 U4 r* A+ i" j) `# K  f. N        next;
: d# |7 Y* `* u4 [+ |$ u' t       
1 K1 o8 v& d( b4 n        lines:=0;
        partstable.delete;
& b" n; f, H' v+ D- n5 I6 V8 m% G- d       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 P" d" w; n& L                machinesequence[2,i]:=rows;
' I* E. a+ M# X3 i: ?1 D                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
0 v5 Z' i6 o8 Z9 A1 T& e5 e                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
! N) v, b1 ~! N2 E# L! `! i& Q* z' U                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( B8 ^7 c- C6 f+ _( x8 P7 L                        partstable[6,lines]:=j;
) h. d- n* _5 K1 |                end;
( D2 P; w, D. E& f        next;
7 r9 g" e$ h7 g) J& U        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]);
4 _! x0 ]2 O' D7 F& E1 D        machine.name:=machinename;标识符未知
" N' y# k* D( j$ [- X& c+ l" u# k        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
- x1 I% o* Q6 K, W0 z  Q: O# f        machine.exitctrl:=ref(leave);
7 g; b" o, y, G% E7 j       
7 n) r3 D; q+ O& }0 G- C        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;
        buf.capacity:=5000;
; P2 S* J2 E, v9 u        buf.proctime:=0;
% u2 S: d- J& X3 t& w+ W        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
7 p8 l2 u6 @% l& y# [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 H7 h  U' W: ^& y1 xnext;
end;