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

zooey

is
        mark:boolean;
& n/ k+ v/ Q$ a. Z* J: q        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
2 ^, K! M# z$ U) ^3 t; g7 F0 ?                when 32 then
$ a) @1 k' B# o: U5 X, c: p                        print"no";
/ l8 y7 k. a& `# X8 q) m4 y                else
                        print"cancel";
& h, C' E. ~, e& [                end;
: a3 j% b9 ]4 S& G6 G2 s                eventcontroller.stop;
0 T) ^; u3 X' e9 n# g( t        end;
+ \: r4 P1 l. Y% s9 m! J% W       
        for i:=1 to number_of_machine loop
. j6 k9 R  l0 D7 ]3 {# y        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 z6 G/ M3 E8 J                machine.deleteobject;
7 O; ~  M  c& n. x' |& H        end;
        bufname:=sprint("BF",i);
6 k% v. [! n1 [1 X. W" a1 x        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
; ?. `# w, I6 }5 T                buf.deleteobject;
        end;
# H) ?( s; s  \  Y+ k( ?$ R" {4 |        next;
- E, V  i* Y. u5 V8 g  A       
        dx:=0;
, y7 v5 h5 H9 V        dy:=0;
        for i:=1 to number_of_machine loop
* K; [$ Q2 s0 f$ D! u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% G( q3 t6 Y. r: H/ ?                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ K6 w; G- [9 R' H                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 }" r4 g7 L6 O$ _  j1 M                        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];
' }, ?0 }% }, G  c) p9 e                        activityspace[1,rows]:=ct;
, K) C$ z* F, q' h5 C$ |                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
' `8 h" B8 d! u9 Y( {                        --end;
                end;
6 {+ m' [3 e7 N, D                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, a; ]' D: u  `" x* J                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];
7 G: N) \$ U6 q2 {                /*if mark=true then
                ct:=activityspace[2,rows];
+ y4 t! Q; S9 I9 x3 `4 t, k) Q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
6 M* o1 d- c( ?, i. ~) d                        end;*/
2 |1 z0 U  {& r* I5 E        next;
( U% |: R* J" k0 ^3 @        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);
/ o, F8 r6 K) x9 Q4 a  R# j        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);
# r. |% J7 M5 D( B7 Y6 P       
        rows:=0;
        lines:=0;
) {  T) g% H. V% v) n; `        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
/ Y( @% @' [+ G) w                        else
' f7 Y1 m8 u5 P) K                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 O* o! z% _8 y                                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);
9 U2 ]$ k. I5 B                        end;
! L1 x. j1 Q) h/ Q) a" i                next;
        next;
       
+ ^, E# H& t- {+ x        lines:=0;
        partstable.delete;
- f0 N( A# h6 }       
* R( i6 L8 O* g, T- u- j, z0 I; I: t* w        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# z/ k9 p& S+ Z4 i; J/ T( i                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
: e/ K& O, V2 }; W8 M                        if w_from_to_chart[j,rows]>0 then
) A: b3 Z& T" E3 i. o+ b                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; x. {/ `) e# w                        partstable[2,lines]:=w_from_to_chart[j,rows];
- ]/ H3 J. q: i# _                        partstable[3,lines]:=sprint("parts");
" l1 f) t9 O1 E1 S0 ?  w7 k9 h                        partstable[5,lines]:=rows;
4 E( e& E1 F) Z1 W' q                        partstable[6,lines]:=j;
                end;
        next;
        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]);
2 f- }/ V7 S) G1 T6 V0 a( F        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
5 e9 S: a, s& Y" Q2 Z- r        machine.exitctrl:=ref(leave);
9 g5 T6 o) d9 V$ b! y3 X3 H: j7 a       
  W% f3 d8 z# a+ ^        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;
# y& s- o4 v6 U- e0 D        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
; [6 F" o2 F; F3 m) C        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;
  c8 N8 G  B" d# _8 l+ vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
6 @% m9 p5 S) G* g$ I5 t0 _next;
end;