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

zooey

is
, G0 U  N. T0 X' i$ a        mark:boolean;
        dx,dy,ct:real;
/ H6 s) R3 e4 z  B0 w    i,j,rows,lines:integer;
    machinename,bufname:string;
1 L% I$ K! u- z" _    machine,buf:object;
do
0 s+ j6 [+ j4 o4 k1 X5 o        current.eraselayer(1);
/ L6 v9 Q- d+ B0 v4 N       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% y+ e9 r. r4 V' Z/ U                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
- X5 E2 A/ E3 L) ^                        print"yes";
' E* ]9 O" `1 k6 q5 \& N0 O                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
( ]% G& T8 ~8 ^% Y( a                eventcontroller.stop;
/ G, ]1 o  Y/ r+ `' a        end;
       
5 w# \( e8 K, ~! z' F0 U        for i:=1 to number_of_machine loop
) V: w( v! D" |        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 A+ @6 k" q" A$ \                machine:=str_to_obj(machinename);
0 a8 m5 D0 A8 o* u/ G( A! X                machine.deleteobject;
3 C$ r$ n: P2 j# c- K# {        end;
        bufname:=sprint("BF",i);
) W; P0 i2 g. y4 d        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
& T1 F9 v0 K% b( O        end;
2 x/ X: h! I) Q$ c" o/ }        next;
       
/ v+ n& B  ^/ c7 F4 D# ^0 P" S        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
! h2 z) H9 n: p) g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, Q2 o# l! R! J0 O                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 V7 d/ U& H( G& ]                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' s- P! _  o  T$ c& O  `                        and activityspace[1,rows]<(1.05*y_max) then
% G% n* r# J$ j* X; N6 W7 P" o                        print activityspace[1,rows],",",activityspace[2,rows];
$ D/ J6 g' G' S/ F                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" W: p! T: S' K  k5 P! t/ n                        activityspace[1,rows]:=ct;
3 K6 @" h! H* Z                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
- I8 B; M6 ^" i. O                dy:=0;
5 H$ W) R4 A8 v# D                        --end;
                end;
! r7 q, D# A4 E8 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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 Y( @& o0 Y( H' E; E. q# p                ct:=activityspace[2,rows];
( n  R3 G( ^3 C( F# I7 }                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        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);
. T! n6 X" j+ Q8 l) D& I        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);
: O- \; e" u; N# x  V  s       
# X. d/ W1 q# ~5 t        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
5 n5 p0 R5 H' i) G  d: B" L                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
, j- T9 U; w3 q, [; I! d1 g       
        for i:=1 to number_of_machine loop
& ]. ~. g' w8 Q' J4 B6 h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
2 W0 Y/ x% |1 B7 r                        if w_from_to_chart[j,rows]>0 then
6 |7 _2 G4 ]4 r' P7 p/ ?                        lines:=lines+1;
* Z4 \  E  E* @. `                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
  K- G7 [% f7 w% n& s7 e6 y( ^                        partstable[3,lines]:=sprint("parts");
* \/ J1 Q* J% ]. D1 z                        partstable[5,lines]:=rows;
- }" L' f7 N8 w( D                        partstable[6,lines]:=j;
                end;
! D- |/ d. }; \6 b        next;
) G/ Z; H/ M" l; w9 V        machinename:=sprint("M",rows);
& Q) ?0 q/ W; t+ w+ R        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;标识符未知
        machine.proctime:=5;
$ `# X* E2 b" N. G3 k2 M. I; \2 P        machine.label:=activityspace[0,rows];
2 X- H6 x: O6 W3 C7 s  h        machine.exitctrl:=ref(leave);
- g5 w8 l' q" L" E9 t       
. M0 c0 Y' Q# |! }0 e$ i        bufname:=sprint("BF",rows);
7 \; ]5 \. u# d( N& j! h        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;
8 ]' X. S( R6 `) E- V( E        buf.proctime:=0;
) F/ ]* B( W: u& s$ c9 s        .materialflow.connector.connect(buf,machine);
4 k5 T" m4 W8 X% j. `5 l       
- Y5 X# {$ M4 T# W! U' `& m+ B        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* c4 |) X) J" Q# sdy:=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);
  D5 r% l8 a; S* Bnext;
) s6 v9 P8 n; J4 yend;