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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
7 J. X4 V7 l, ~/ J    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
# _. O+ e  i9 g! ldo
        current.eraselayer(1);
: L5 ~. O1 Z. V       
- O8 F8 I$ S2 }& L' O  M        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
) E2 I8 T2 I+ S: r                when 16 then
- i& ^. K0 r( z. y: G/ g( h                        print"yes";
2 a/ a2 M, k* G+ T6 O7 Y6 L                when 32 then
                        print"no";
                else
                        print"cancel";
/ }* M3 o. m2 ^! T% R                end;
                eventcontroller.stop;
) ^# _1 r- ?6 q        end;
       
! R, u8 G4 G( c        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
% A& [- _) W9 I# z        if existsobject(machinename) then
& E; U7 ]4 f0 i5 {# x                machine:=str_to_obj(machinename);
                machine.deleteobject;
6 }; f+ D/ v, C        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
* A# N& ~  S* |# u' Z, F# t        end;
        next;
       
0 b& s7 O* k: a  o        dx:=0;
( L. p5 i: ]4 e0 K        dy:=0;
        for i:=1 to number_of_machine loop
0 b( ~# x, H. a* I3 e                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 d8 ?, y1 K; K  I, k4 X3 h1 S                --mark:=false;
$ C; h* n& c% J                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 H! E8 H$ J# z, x4 X                then
7 u* m, g8 M0 R                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
: {6 z- i2 J6 s* B. D                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
0 u8 _/ o; u1 J" h2 N4 l                        activityspace[2,rows]:=activityspace[1,rows];
  L) B/ v8 [5 S+ A. K7 m  y                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
1 D% Q# m# M9 E0 \. V7 f                        y_max:=y_max+dy;
/ u! z) l/ A* J) p  ^/ f* Y                        dx:=0;
5 R* f! C5 A" |9 R" ^" l; u* ~& g# d                dy:=0;
) T3 @7 Y* ~4 i4 [4 `6 B$ F% O                        --end;
9 D/ b& G, d( \4 {8 h3 Z+ x- R                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! b$ S' t3 @# A( r# x6 h                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
1 w: m& H* D+ C            if activityspace[2,rows]>dy then
# j$ J# L8 F  l( m- R4 N, l                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
: t( z0 I  l$ i/ p                /*if mark=true then
' g1 ~* o% V1 Q2 B# O' N+ {                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 E+ ]; k+ X9 _  e! @  W& E/ C) A                        activityspace[1,rows]:=ct;
                        end;*/
( ?6 G# o$ Y- l- c% y! A* ]3 a        next;
        y_max:=y_max+dy;
* {- B/ D1 T! e3 z4 g, I        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);
" `' [  W- V& @+ 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);
       
0 A5 K9 ^0 t; D3 f        rows:=0;
) i0 x3 B0 O. B; G! e        lines:=0;
( u2 B, b  z6 P0 R8 t        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
+ L# y; l" u& U                        if j=i then
/ F! X/ U% ?1 ~" V7 K& U- Y0 ]                                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];
; N& _' u9 ^; f! C( E( W4 f$ p  B; P                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
  p% q2 M; f0 {* }9 f" T                                d_from_to_chart[j,i]:=abs(dx-dy);
5 O! N% g; P2 ~* j) y8 D2 E                        end;
5 P4 ]- V& d5 \& e1 `                next;
8 f; c. l8 z& k* U, j        next;
, q! g4 l  u0 a" A0 G" j       
        lines:=0;
        partstable.delete;
0 L5 H. L5 ~7 i# {# X       
* w8 C) {3 U, N& Y$ Z8 v  |* @6 d        for i:=1 to number_of_machine loop
# U! a9 d* M( \: ]% k+ d7 E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: I' F$ y. r' j( _/ Y7 M. x: k" p                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
; v* \$ k% T+ {& L! I# L8 t                        if w_from_to_chart[j,rows]>0 then
8 Y' o8 k$ O& y. H                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 Z% b8 ]6 _; ?. P3 G) C                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
$ [8 c8 D  h8 p                        partstable[5,lines]:=rows;
" }1 W* O4 I) P& y4 u  e$ [                        partstable[6,lines]:=j;
; j- K9 z  S. D) ]1 F- }' a                end;
        next;
( l6 d, M2 A5 s- F6 \0 L        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]);
        machine.name:=machinename;标识符未知
4 C9 ?1 F% {* A( j1 ?, \. \. y        machine.proctime:=5;
9 N: x' h7 D  ^7 K+ d        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
9 _* R$ ^; l, W+ y0 p        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]);
2 i$ u' o7 F& K5 {- h2 r# A        buf.name:=bufname;
5 ~8 f: D3 N  @; d" T% |        buf.capacity:=5000;
7 D8 I5 L. O( [4 O+ [  S/ ?        buf.proctime:=0;
3 ^/ M1 k1 O7 J% C+ ~+ C, _- y, Q        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& C. ?( k4 w" @0 bdy:=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);
' ^% ^: {  h" B- y5 Y, G# `next;
end;
9 i5 v  j2 \' S# Q9 f9 G