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

zooey

is
) H" r# S" s, l& x6 q# _! V" n        mark:boolean;
        dx,dy,ct:real;
) t1 u& h* u3 x' b/ I    i,j,rows,lines:integer;
    machinename,bufname:string;
* W; i+ T; B- K) e. N: k  l    machine,buf:object;
; G5 O: B* M2 D0 A; E# sdo
9 S1 z1 Y1 R0 q' k% f        current.eraselayer(1);
! g) B7 E$ ?( i8 E       
/ D7 q4 ^& L8 q6 V7 k        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, D) x9 b9 z; z9 _                when 16 then
  o+ Y2 w; h8 d# y                        print"yes";
                when 32 then
" k: ]0 m) v1 F9 m/ {/ S                        print"no";
6 e6 u# l7 l3 n9 _, Y( ^: x' m: _                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
$ B4 [) y5 o* M        for i:=1 to number_of_machine loop
- P  D. Z1 n5 M' c4 A% s3 R" B        machinename:=sprint("M",i);
        if existsobject(machinename) then
9 A& y( j: ^1 F2 c                machine:=str_to_obj(machinename);
5 d2 r6 G$ s$ K& K# @                machine.deleteobject;
; e2 |8 [  @3 k9 r" Z        end;
        bufname:=sprint("BF",i);
, B" X& E2 R/ c9 u        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
# B% ]6 |/ m. B        next;
7 H; Z! Z# s6 `: ^: d+ j       
        dx:=0;
, l/ M: v, X& j; [        dy:=0;
3 `; ?% L* A" |  t  W$ V        for i:=1 to number_of_machine loop
, @& a( G$ Y5 y+ B) }7 X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% Q' }& H  o0 }                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
! i3 _. g9 B) `# H" r+ O                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& c! U# o- C; {, m7 H                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
$ n/ L' t- \8 g+ W                        ct:=activityspace[2,rows];
7 U9 g( }1 W7 O7 _4 R0 |1 V5 y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 g  l( h3 d/ o8 c4 I. I, i                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
. }% y; R  X+ `  _! C% _( |: [                dy:=0;
- q* s9 ?; ^: f. Q9 z  S$ ?8 w. T                        --end;
                end;
3 d2 V& ^. h3 T! Z. u9 o                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;
8 L, z& G6 h* Y0 t* D            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
8 g2 L9 _9 z( d5 o1 O3 T) M                dx:=dx+activityspace[1,rows];
  `; a6 O9 [% {7 t                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  n5 Z/ r& Y* F4 `                        end;*/
        next;
        y_max:=y_max+dy;
, Q) O1 J3 B. [: N* `/ 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);
       
        rows:=0;
: W% l. n: `7 s4 W# l0 J: m        lines:=0;
        for i:=1 to number_of_machine loop
' {$ |7 v" F: Y' K! z                for j:=1 to number_of_machine loop
; R( ~4 @+ {7 @! L( y                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 O+ q4 Z+ S4 d                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* f* Y% l9 I4 M, G$ T                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
3 ^- k- q& M& ]7 K+ Z! t+ h0 X                                d_from_to_chart[j,i]:=abs(dx-dy);
) F9 r+ g1 u/ k6 U3 a+ k# d. {                        end;
                next;
& A7 P1 m' `7 b; ^, c% O( f0 r* K        next;
       
        lines:=0;
        partstable.delete;
) W# B/ N8 ^% l- ~       
        for i:=1 to number_of_machine loop
7 v, u, ~/ a/ ?( s' Z' L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
9 {+ S/ S% z0 D4 P1 D: r" j4 c                        lines:=lines+1;
3 x" L/ y8 i3 H                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. i3 m. l# u% X; K# C  k                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) }3 s$ @8 n( b! p- l; ]+ X1 V                end;
        next;
' V" L) m4 U2 o        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]);
2 t0 Y3 F$ L/ }, s. V2 O( Q        machine.name:=machinename;标识符未知
( k# D, I) {! D1 H        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
2 N5 h8 m0 ]2 b1 x4 I4 q        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
) v- L7 L' Q0 L0 o1 U        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]);
  I5 `% T8 \4 y        buf.name:=bufname;
* u& i* n6 D( Z7 T        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
" B4 z$ u  A6 o3 ~( {       
        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;
; Y' w  s. b/ e8 Bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& W- R, J4 l( G# C. K( Anext;
end;