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

zooey

is
        mark:boolean;
7 X9 M2 U0 h  V& V- n        dx,dy,ct:real;
    i,j,rows,lines:integer;
) t% h( W0 B4 \. ?8 q    machinename,bufname:string;
" S5 g2 W/ Y2 H9 H1 f    machine,buf:object;
3 J( r3 j7 B4 E3 D: ]) l2 I) Y5 @do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 }6 X2 r5 X; a- |                inspect messagebox("设施数目不对！请核查...,",50,13)
. x8 f' z" a0 u# L  f                when 16 then
                        print"yes";
                when 32 then
1 E( _, m& q( ~+ T$ t+ f                        print"no";
" N0 @$ `  w# r3 S8 U7 ~                else
0 x! U+ \5 A0 ?2 m' a. ]0 H% i( @                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
! d% F3 h2 J  U$ k' C7 ~. u        machinename:=sprint("M",i);
        if existsobject(machinename) then
  O! w* L" [) @# ~0 C! h- d                machine:=str_to_obj(machinename);
; D+ O$ i4 ?6 e6 |$ p+ t                machine.deleteobject;
6 |- b/ W9 T7 U+ {' Z4 _8 w: P        end;
" M  b$ u$ r) d# r        bufname:=sprint("BF",i);
        if existsobject(bufname) then
; i$ b9 X$ ]5 F                buf:=str_to_obj(bufname);
* L+ H/ x) H; s                buf.deleteobject;
- D; f0 B- j& C. ~        end;
        next;
       
        dx:=0;
4 V# A9 l% {$ p& }3 t& Y# d5 T        dy:=0;
8 w3 N: p6 u$ x        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( b1 A  L. _* c! z9 y0 T/ N                --mark:=false;
* R% g. \; {8 ]. x& }1 k                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
' p5 |# p2 F7 ]/ |0 C  z                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& w* k4 I7 e( l0 y                        activityspace[1,rows]:=ct;
  Y& ^$ f- j9 {  {) u' j                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
; ?2 w7 g/ s3 p) |. g# ?                        dx:=0;
- I4 |) |; F+ |& @                dy:=0;
                        --end;
9 p* F- y3 |1 w2 O                end;
; g4 Q4 x( S1 a9 N. i. z! h                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) D2 Y- b1 z# ]# h0 q" _$ S                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: l  z. A( o! b2 v            if activityspace[2,rows]>dy then
+ {& @0 W/ w4 q4 g7 g4 t; T                        dy:=activityspace[2,rows];
, i& y& \8 K; q: J                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
, \& b  j6 K+ l7 @$ H                        activityspace[2,rows]:=activityspace[1,rows];
! ^+ J+ [% e) |: r                        activityspace[1,rows]:=ct;
& S' s  I% k1 |" Y& c' h7 r+ s( o                        end;*/
; Y# x# ?! V2 X/ y; \        next;
( m4 v3 ~% C5 q# u; I$ D        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);
+ d6 q. }5 z6 a" S7 D$ K        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;
! O7 L( y) \7 Y5 G        lines:=0;
8 \. W8 X  |- g& h  C" ^4 [% }1 y9 A        for i:=1 to number_of_machine loop
$ }' ?: d4 Q* Q! ]; f                for j:=1 to number_of_machine loop
. ?' l# k6 Y" h: g                        if j=i then
                                d_from_to_chart[j,i]:=0;
' ^; s5 ]) b% P) k3 [                        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];
, M6 Q0 [: M4 F0 |4 ~                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
2 ~$ L* N9 A2 t$ I7 s' w        next;
' p. H! f: I' e4 y$ U0 b/ @" `) D       
        lines:=0;
  X; }' B! e% w6 R        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
+ Z9 ]% o7 a. l6 m2 b5 M& U$ V                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];
8 V: X' p1 V) J1 v! ?" {                        partstable[3,lines]:=sprint("parts");
  m0 U4 G7 W+ n0 y9 U                        partstable[5,lines]:=rows;
, j! x0 G# A; j) }                        partstable[6,lines]:=j;
5 \% t2 ]" u; o7 k" O" v                end;
        next;
        machinename:=sprint("M",rows);
7 p$ k% X# w# r7 k/ c& i& M        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;
1 S  G3 g- G; ]- |7 Q        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
; r0 B$ W9 P9 ?        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;
# j. x! N' Y2 O2 O! E7 y        buf.capacity:=5000;
7 @: \: p5 \* F. t5 z% ?        buf.proctime:=0;
- \  X7 c! S5 ?' t        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) V0 ]1 N& x. }dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# o3 ]4 C, Y8 a% N; A4 d# vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
/ d) T8 \# k4 s  H" n" lend;
% S' m+ l. q* ~0 O3 X& D+ j