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

zooey

is
" @2 g; a; w' v9 c; Q) T8 L        mark:boolean;
        dx,dy,ct:real;
0 ^* e# h4 M* {6 S! _    i,j,rows,lines:integer;
  n) C/ a8 Q0 g1 _4 a5 A  e% @    machinename,bufname:string;
% P# w( D0 t: R) J4 \* B    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";
                when 32 then
* M' W8 o9 ~1 w$ ~                        print"no";
: V1 z7 o$ J0 a% f( S- s  S' A8 k                else
1 }: Y6 ?! c- ?                        print"cancel";
                end;
3 b4 K% p4 k2 U5 `8 G" Y) p                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
6 ]+ S  m- h7 m2 ~( d        machinename:=sprint("M",i);
9 k( b( H1 s( @3 P" [2 ^, Q        if existsobject(machinename) then
6 T. z! U6 }9 l- X3 l                machine:=str_to_obj(machinename);
                machine.deleteobject;
% D' X8 K& H# e7 y# K4 W6 `/ f        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
8 N: ~- s2 M' M$ H3 Q                buf.deleteobject;
6 K% h/ r: }- t' W! ^        end;
3 t6 F. B4 W! t, S        next;
       
        dx:=0;
        dy:=0;
) |4 ~5 q" B9 ~/ y) z        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
4 `8 a7 g8 v9 q0 T                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
9 R1 n% \, i- O1 C$ L) G                        print activityspace[1,rows],",",activityspace[2,rows];
  |1 ^5 Q% B) e6 q* o  k, ]                        ct:=activityspace[2,rows];
6 a: ^( S) V4 N* W                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- i; O8 y& ]3 t                        mark:=true;
; F( v9 N5 D! r# Q5 h2 X' x. p                        else*/
) _0 }5 \8 {2 ]( ^3 Y/ g                        y_max:=y_max+dy;
/ K7 R3 H. k9 s8 ^* H( {/ b* \                        dx:=0;
                dy:=0;
                        --end;
% }3 a  h! {1 y                end;
4 X8 a% K7 J, Z! S1 O7 i7 N/ z6 B                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
; Q- D% P/ i$ t0 ?1 X            if activityspace[2,rows]>dy then
5 i1 Q+ p5 i; g                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
7 g9 S/ n) w  N                /*if mark=true then
# u8 A  w7 E" r# ?  b6 \1 D" W& q                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% |; ?/ G# f6 @& }# i5 a6 T                        activityspace[1,rows]:=ct;
; j4 X( l3 J" e9 N                        end;*/
        next;
: a5 G, m1 O( F        y_max:=y_max+dy;
: Q5 j) m1 y  X* t4 k( g% {+ V4 g  `        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);
$ s! M3 ]. C; H. o! o: i6 n) k+ Y0 P       
        rows:=0;
% q' S: R1 V6 p8 s5 [+ j        lines:=0;
  A# g0 R, {# C  o        for i:=1 to number_of_machine loop
4 n1 t0 w: T" M  T+ E                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
8 A( z2 e9 ~4 _/ f4 M$ l                        else
# ?5 Q! H$ A- a                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 i9 e) v- _$ F' D/ G6 Q% b                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
5 S0 e8 u5 ^( y9 h                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
  g$ A5 `5 v, R% e- b2 O$ @        next;
* j8 H+ F: _5 q! f       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
5 V/ a& o& w& M' [+ h' Z) d) X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 V9 M. l1 k) B5 D                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
8 a1 B, J! r) j0 d                        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;
                        partstable[6,lines]:=j;
                end;
        next;
1 ^2 j' w1 ^& f! B4 {- L3 |4 N" t        machinename:=sprint("M",rows);
  L$ x& S. ~/ ^        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;标识符未知
* O% x5 g/ ~% c- V2 R: c( N        machine.proctime:=5;
+ ?/ Q& P8 F+ E! Q8 m6 f        machine.label:=activityspace[0,rows];
. }, r% x9 m, I8 y3 ~        machine.exitctrl:=ref(leave);
) D) W( }8 T" ?$ _& i       
  S0 M; @( U& z5 l# W        bufname:=sprint("BF",rows);
- T* D& H1 {5 B& 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]);
        buf.name:=bufname;
        buf.capacity:=5000;
: G# R3 n' Y( a7 y2 U        buf.proctime:=0;
1 ^# y4 ?* U% n" y7 v        .materialflow.connector.connect(buf,machine);
       
9 b; U( x( i; r; R% v4 L% j        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;
+ i1 y- r! l* |) fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
" L4 c6 u# n% L" c  T( ^