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

zooey

is
        mark:boolean;
  q; c. R( z- \- l( w0 B        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 J: T. a/ `) ]9 Y9 x$ ]    machinename,bufname:string;
+ E! }# j$ q. L5 O- s/ l7 t    machine,buf:object;
do
1 e, a% n, {6 L* ?% Z        current.eraselayer(1);
       
8 }- @8 m" v" `) h* ^% m3 @        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
2 p" J) h. M* F: {# G. o! I  ~3 F+ ]                        print"yes";
, u) R& c  g; ]* S, d1 z                when 32 then
                        print"no";
1 G4 P% A2 O7 u                else
* a1 t: j* Q6 B7 Y" B                        print"cancel";
9 m( P. E1 ^) b3 @8 A0 U, d( {* i& I                end;
- d7 ?0 C! t; [& j2 J% S+ V, e                eventcontroller.stop;
- C) s! d" @( r9 K. `& v        end;
/ l# w) S+ b9 o2 a       
. g5 V5 m* B, T' Y) }( S        for i:=1 to number_of_machine loop
+ A7 ]" `5 M& g2 K- C( x1 U0 G+ s- I  V        machinename:=sprint("M",i);
  z6 v$ P: m& [: i' ?( g1 k* L- R        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
8 a& c; ]% v" Z        bufname:=sprint("BF",i);
& @. n. l+ ^1 H# h& f( W3 j        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
/ n. {: o0 J% u; C0 S       
& x# ^/ X7 q0 D; Y        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: v3 y1 B* a3 A3 G                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) L4 F: o$ k& }. z                        and activityspace[1,rows]<(1.05*y_max) then
  W- C$ X. s" F% z                        print activityspace[1,rows],",",activityspace[2,rows];
9 t; j$ z8 Y0 A# A0 N                        ct:=activityspace[2,rows];
/ ^8 Y) ~- j5 Q2 @  a* Q2 M                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ R/ j6 ~$ N* D, e: \                        mark:=true;
' v$ k( [7 F. m! x6 e0 @                        else*/
" q% N& F% v: x' |; O                        y_max:=y_max+dy;
' Q3 g" R1 r% z0 V                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* I* g: A4 h' B) v: H5 v                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];
6 X# I( G  A0 t, F0 ]                /*if mark=true then
) I1 R- j% R. s0 f& D                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; }8 `  t# _5 E- _8 W                        activityspace[1,rows]:=ct;
# m; \2 b3 h/ O- R1 m8 ^                        end;*/
        next;
7 f2 V  H3 s) @3 L+ H* i        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);
( B1 |2 V0 K& ^' j# C" K2 T        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;
$ h% N+ A5 i1 ^! H        lines:=0;
4 a& l8 X2 w% h        for i:=1 to number_of_machine loop
7 J7 y% D1 E% Z                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
2 _5 g4 g5 X5 u7 h, c; p                        else
) Y2 W6 x# e7 O                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ I3 A# ^5 V' s: z3 c& J4 a3 f                                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);
: T2 ]! A9 e, ]- k' w                        end;
                next;
        next;
0 i& l  t) t; B9 N4 E       
        lines:=0;
        partstable.delete;
6 b: y0 F! s: Z       
        for i:=1 to number_of_machine loop
) y* t) n. m7 V* G; {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
% [  O' N7 x3 C- F% C& i& T' d  G                        if w_from_to_chart[j,rows]>0 then
9 \1 u7 W! Z; M( i                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
  F' C9 K/ }* b: \7 M1 ?4 v                        partstable[6,lines]:=j;
                end;
, W9 q- ~$ a( f' Z8 t2 `% `        next;
        machinename:=sprint("M",rows);
' V. j$ y9 O, t; @( q: |! r4 K        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];
7 c/ g# D' ]# i; R- W$ ^        machine.exitctrl:=ref(leave);
6 C% W" e+ A% ~* t  X; W! U       
0 `4 l8 r# L* d4 u7 a& Y        bufname:=sprint("BF",rows);
5 [" i8 V5 A) L( O3 }+ \        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]);
& E. w9 u# p) R7 L        buf.name:=bufname;
7 }4 R+ W3 y7 @( @        buf.capacity:=5000;
5 ?! @. \; b; I7 x/ Z        buf.proctime:=0;
; U6 G6 i$ j+ K' F  |        .materialflow.connector.connect(buf,machine);
( y, Z5 W: x: f       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( L2 e- }. r0 N) A4 [( |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);
next;
end;
' \7 W5 b, t4 k4 Z& B