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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
" _* g( T1 X- |: V& j' g; I    i,j,rows,lines:integer;
1 ?+ J( G. v7 N    machinename,bufname:string;
    machine,buf:object;
: r& v# S, ^! x5 p0 G9 Pdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) s+ U! Q6 M+ n9 Q# w; D                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
( u5 b  _. n7 j% @% b. Q/ W6 F                        print"yes";
1 W7 ?# b1 T: r) Z                when 32 then
. \4 U9 T5 u! g. {* r; |                        print"no";
                else
3 j! ?# J1 e7 {- ~                        print"cancel";
                end;
4 ]: e+ m8 h0 g% j* a1 e                eventcontroller.stop;
        end;
       
; z3 M* G8 W: U9 N8 }- U! w+ E% `        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 M5 I- [$ t% \        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
  y/ m7 B# m$ g        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) F+ u5 M' [( i; \" K                buf:=str_to_obj(bufname);
                buf.deleteobject;
" U& I7 ]; c) v0 _7 g% i8 e        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
$ `0 ]) h2 |2 R  v  U* _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
0 h8 x* @" R; K" v4 j                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ q( Z! N5 s% Q5 r+ p" p6 |) W- W                then
: c* W% D0 Y2 j7 B                        /*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];
9 ~7 ~4 y; A2 C3 R: R                        ct:=activityspace[2,rows];
6 N$ X; m4 u, a' Z/ r) F0 y9 U                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 ~. s3 k( f7 t! x4 G                        mark:=true;
2 f+ G1 i' a; W                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
2 h4 c" E0 k% b, K3 U1 E; t1 t  s                        --end;
- n4 M* ]9 K2 K6 A" U& U' G& `                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) d: J( P0 D8 ]) s! U                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
' K) ]  N9 h0 X* R            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
9 y8 ?" X1 l4 ]+ X# I                end;
4 i) z  U) l+ l/ F! u  ~/ t                dx:=dx+activityspace[1,rows];
& ]" F: E1 l6 `0 d$ e, P5 z6 f                /*if mark=true then
% h% Q, z. p( E) T3 \                ct:=activityspace[2,rows];
1 ~: J# Y' g9 z: w3 {                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
9 b' v5 {- e5 c5 u3 y* m/ D( p        y_max:=y_max+dy;
$ v# W' k$ n! J. h( q& J6 x( E- d        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);
( |3 S" ^5 J& S2 U       
        rows:=0;
        lines:=0;
8 F& _/ T: N* ]        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
3 M2 |! h+ i* n- x                        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);
) m) s( O1 t2 Q7 ?& Q! \, l+ M                        end;
: c: h4 u& z8 X3 v. ~                next;
5 K" C3 A8 C7 T2 K& b, ]. |  S        next;
8 b& d: w/ F# h& c       
# ?$ ^- d/ `3 C7 o8 Z. H        lines:=0;
( H: L$ k2 _  ^/ Z5 ?        partstable.delete;
( c( R1 F$ G7 w- n( ~/ X' H       
9 W! e: x4 @; e6 ]/ N+ M+ T$ ~        for i:=1 to number_of_machine loop
# Y8 Z+ e- n1 a  _. h8 J2 ?  B                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ {' ~9 o: S- {3 i6 ]                machinesequence[2,i]:=rows;
0 q, ^( M. o( ~& a* }7 G* H                for j:=1 to number_of_machine loop
1 m3 k: O# |* F9 ^                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
6 X" O4 x/ i1 U: u3 {                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; K' d: B0 J7 N2 |5 v  i  m                        partstable[2,lines]:=w_from_to_chart[j,rows];
, `8 A+ \5 h4 N9 J3 P& d0 H* p* H                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 H" [: I( h( P                end;
        next;
# X- `7 J- N$ ?' K7 K+ \        machinename:=sprint("M",rows);
: J" i; |7 }# l! z% ]1 o! b        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;
        machine.label:=activityspace[0,rows];
3 G5 @, G) x2 F$ S  ~1 i        machine.exitctrl:=ref(leave);
       
) n6 V# d8 f. C* c6 D7 B7 Z        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;
, f5 T4 J) e! s        buf.capacity:=5000;
; `7 ~1 U( n3 t. Y. k) P3 _        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
) Z. o2 R$ }$ A4 @       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 v  O% S# P0 c  y7 Pdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
: P  E6 R# q& L( p* j9 Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
3 R, L" ^$ {+ ~( a/ S2 Z6 P. Ynext;
end;