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

zooey

is
4 N+ e/ l7 j9 B% I        mark:boolean;
        dx,dy,ct:real;
" J6 o# p0 r$ U& j) `, z: A    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
# R9 X- Q. g. B  o( U6 g8 _/ Z- Udo
        current.eraselayer(1);
6 c9 t2 S0 R* T. C       
; F) ?9 O2 V/ [7 e4 t        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 c2 F! L) O, s& c9 ~                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
3 s0 L& w, m3 W                else
                        print"cancel";
; C1 I  q7 v& H0 [                end;
; W$ h  E- n: K+ Z) g, |                eventcontroller.stop;
+ k0 b* I' a6 Q: Q, N& F        end;
       
        for i:=1 to number_of_machine loop
. f* o. V. W9 [5 o" r, [        machinename:=sprint("M",i);
        if existsobject(machinename) then
4 c3 F" u0 F0 o, w/ ^                machine:=str_to_obj(machinename);
7 ~) f% b) c( `  ?                machine.deleteobject;
        end;
6 u. a, p! g! @* E4 C        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
8 m' w2 j* l& A  J1 T                buf.deleteobject;
& I- [' M# o. S. P4 I        end;
2 T+ L# Y" x! }, w        next;
       
6 s3 M3 @  i1 |9 i        dx:=0;
) ^5 G, N# R  a6 u* D! R        dy:=0;
  ?9 o: ?5 f3 E9 u  J# g        for i:=1 to number_of_machine loop
+ d8 s" C" w/ g9 g" ?0 X& x5 s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
0 Y: m: o2 e# ]' w0 _                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  k( {* G( I  n                then
3 h) D# y6 N9 \& w; A6 c, s$ R                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 O" x! d4 v  L" i( Q: g                        and activityspace[1,rows]<(1.05*y_max) then
* y% w" L/ u8 }; x* j) u( m                        print activityspace[1,rows],",",activityspace[2,rows];
5 l5 U- A6 {/ U- B* q                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 }9 Z" _+ K5 _# g, K: @                        activityspace[1,rows]:=ct;
                        mark:=true;
7 \, P; z. k; u3 i( k  P! Z; y3 g                        else*/
                        y_max:=y_max+dy;
" L- s8 ^% }# y! u/ m                        dx:=0;
                dy:=0;
2 V* I6 T; o- {4 j                        --end;
8 W$ G  e4 U0 \, `4 O( E' F+ `! a  m# o. V                end;
                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;
            if activityspace[2,rows]>dy then
% j4 D  e5 U, Y8 F$ E  u                        dy:=activityspace[2,rows];
5 ?, d' k* A1 M; j* y+ n- f                end;
% }' K) u$ N5 H8 e# |" g                dx:=dx+activityspace[1,rows];
                /*if mark=true then
+ t  _# ]- G8 `3 V& [3 ~3 S/ F                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 f0 j( L& H3 Y8 ?+ \                        end;*/
        next;
3 S! L* ~8 e$ O( _3 Y) C! b        y_max:=y_max+dy;
9 V& }6 U! U# |% D  q- z        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);
; n" s* u# I- _) x       
        rows:=0;
        lines:=0;
* C6 U3 W& p" g9 @- r; d        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
: Y6 s( g" \2 b$ u                                d_from_to_chart[j,i]:=0;
% o3 b% u6 K. G' {) e5 G6 c* v2 J! Z                        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);
                        end;
                next;
) `7 w2 _8 R3 A        next;
! k- c! c+ A8 ~* Z2 x       
% P( ]/ Z& N( k7 v) Y        lines:=0;
$ @! ]1 m0 q# w6 M  @) [6 U        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
! V( j/ e' j5 u$ ]% _8 J0 e1 ]                for j:=1 to number_of_machine loop
' {8 \& c0 k0 l- r7 J- N" _                        if w_from_to_chart[j,rows]>0 then
                        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;
                        partstable[6,lines]:=j;
0 f: a5 T4 w2 b) }                end;
        next;
& G3 E* a! D5 g; r        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: N! |" r0 }: _. U, U        machine.exitctrl:=ref(leave);
       
- C& _7 d& c# r7 |! K        bufname:=sprint("BF",rows);
/ ?( V# r  D. b, p* x        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]);
& ~% c  r) g3 r        buf.name:=bufname;
        buf.capacity:=5000;
: |: @# e5 l- P  t* f, g3 f: Y' j        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
% I4 g: [( {% O9 [1 L4 i& M       
  @3 }( {, Y4 W        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;
8 U2 T/ |% y, D) x! c% zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;