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

zooey

is
9 M$ i6 M/ T7 a$ \% n        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
8 {6 T/ N& O$ I    machine,buf:object;
do
2 X9 D  j: @+ W3 Y# l! }        current.eraselayer(1);
! Z( m* B' B9 C1 P" ?       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. E: y; {" c7 n                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
8 j6 i6 t5 J' M* p- @" J) X4 |8 w                        print"yes";
4 t5 |3 X# f3 ?4 |/ p5 B                when 32 then
" K( P% \, L0 `2 L3 W                        print"no";
$ X( Q* h) ?; \3 x# m8 i; w1 S                else
                        print"cancel";
/ V" u1 w. K8 t& A% G2 x                end;
* P; |0 n' U; D0 Y1 s. L/ n                eventcontroller.stop;
# [) H) D( A2 [# K9 z  X; p( I        end;
2 V7 _' U! y0 L" t7 D6 l       
6 C6 h8 p- w. |/ h  x% F: t        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
1 f! ~" f# E. p8 P4 w0 v                machine.deleteobject;
4 M" x# O  p, z( C6 G, `8 f        end;
        bufname:=sprint("BF",i);
' U+ |5 Z7 o7 e0 u        if existsobject(bufname) then
5 p; M8 ?' e0 i% o; S                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
2 s" ~, D. ]/ B2 Y        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
$ ]8 x1 s" f& W( E- \# n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: i1 I( p! @0 Q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
6 z) d0 o0 w% s( q5 \) S  L1 p                        else*/
/ v2 \  v3 D' u: F/ q                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
, d& z( ?- s0 \2 Y* Q! J/ @                        --end;
                end;
/ J  ?* ?5 c% f6 Y7 q1 ~  w                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 X2 [" u! j: u$ Y; e6 J7 y) n                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;
+ {2 m: m4 M2 M- }# L8 ]                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 V$ U8 W; Z4 i" k( @: }2 t                        activityspace[1,rows]:=ct;
, E7 F  R, W# G" {( O                        end;*/
# n& H$ M9 i0 t5 v$ J9 [- l+ v        next;
% w( S- T7 q4 }5 X        y_max:=y_max+dy;
- z* B% N9 U: `$ g3 \5 k        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 g4 j% p0 G6 y; ?- X0 P       
        rows:=0;
, p9 w) Y" r8 r) d) ^        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
% u% i* @5 N- ^% U! h- _- R( d                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
. _9 J$ f0 Y" J' R4 x9 M3 u                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
0 z' j# v% n9 N( |3 [8 k" n                                d_from_to_chart[j,i]:=abs(dx-dy);
  w$ B* V# A) A4 U3 \0 l3 |                        end;
                next;
' O: c! W2 L+ p        next;
" A: N  W3 K6 }1 c+ q6 V. l       
        lines:=0;
2 ]! c' P3 U9 l$ m( d9 O3 `) N$ B3 B        partstable.delete;
       
        for i:=1 to number_of_machine loop
7 ?% U: O" ~( g; q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
  l( x5 d5 |# \+ D+ i# q& p$ u5 A                        if w_from_to_chart[j,rows]>0 then
) ]8 K9 Y; P; Z' Q                        lines:=lines+1;
# c1 P4 e& u! _! u6 o  y4 x                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 g4 X7 u, j  C8 F4 G. y                        partstable[2,lines]:=w_from_to_chart[j,rows];
# C0 o  F# a' |" E: t& S! J4 |( A! s                        partstable[3,lines]:=sprint("parts");
5 i' [1 E% v# r, Q5 o& x                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
2 M7 ]' K: K4 n7 B. a+ Z        next;
        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;
4 P* a0 v* L5 I        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
+ ]9 p9 C4 k/ V( {' a       
        bufname:=sprint("BF",rows);
* l; i" A  Q+ {2 {* J        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;
: R! l- y% t, Y$ G) }) F        buf.proctime:=0;
# L' H2 t# N9 v% q8 j        .materialflow.connector.connect(buf,machine);
! ]3 m. q: T! L, P       
  H" c5 p: a, [  B% V8 s        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. }! E* ^+ R- ]/ gdy:=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);
/ }0 b+ }- X- w3 Pnext;
end;
$ T/ y& N9 `8 i+ V: x! l( F