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

zooey

is
1 k1 ^- P; K2 k; n! N; N* L0 v        mark:boolean;
        dx,dy,ct:real;
1 ?6 O/ T3 J; j) h, A# \    i,j,rows,lines:integer;
    machinename,bufname:string;
6 F/ q2 S  Z& A1 `    machine,buf:object;
: p. w. V4 E! K* Q, hdo
: O0 C* C# p7 ^: F, `# T        current.eraselayer(1);
3 B" a% l" f8 L       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 |6 x4 v+ f; {3 X! p* B" O* T                inspect messagebox("设施数目不对！请核查...,",50,13)
% F0 U* f' u# i5 P# c" ^                when 16 then
1 I% T5 {! x4 Z8 z; f& I  n                        print"yes";
                when 32 then
                        print"no";
3 b" W5 _% [; d+ a5 [6 M0 \6 i* R9 V                else
' }+ z5 q8 n+ G1 w                        print"cancel";
  G; G; v# v) Z                end;
2 S: k9 S$ g0 }+ h% M                eventcontroller.stop;
        end;
       
# E9 I  ]& o% Y2 _2 _( h        for i:=1 to number_of_machine loop
( M% [3 M3 P/ T" ^        machinename:=sprint("M",i);
) r: Q5 O2 q! `, T+ c        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
* B/ u6 Y6 w+ Q, v) R* D        bufname:=sprint("BF",i);
# ?4 r) ?) L+ Y        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
& Q4 _- s8 X  K9 j' R) t# Y                buf.deleteobject;
        end;
* E- q) N$ Y( s/ ]$ n        next;
+ V% c$ ^7 O8 Z1 u  L( h" z       
        dx:=0;
8 D% H/ \/ j" e+ |/ i6 u9 J. A" i        dy:=0;
        for i:=1 to number_of_machine loop
7 L0 N* a6 D- W) f* y. I% z) ^! x1 G" D8 f! V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* ~  c  d! ?" p' I                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 b9 y- _; n9 Z8 f( @                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
/ G$ J0 e, D3 X                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
1 ?8 g* @9 P8 e. J1 l3 E' {                        y_max:=y_max+dy;
* j% y. [9 G; ?( x% R                        dx:=0;
                dy:=0;
- w: X7 a# P3 _                        --end;
) J( ^8 q& f( {; U( L7 e& K                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
* w# ?' K5 x& z) _& W                        dy:=activityspace[2,rows];
                end;
* [# O* a. W8 @* M                dx:=dx+activityspace[1,rows];
$ f' D9 X$ _0 c: D; @                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; r1 n/ s% r5 O+ q8 l' ~8 C                        end;*/
        next;
# I. k  V6 x! `1 J        y_max:=y_max+dy;
- K& e; c# E$ Z, N8 V# ?1 A0 h" o        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);
5 m, c! g  Z+ }& o' ]# y        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);
7 W! E* t6 z: w0 |/ O" r& P/ r       
/ u: n6 A/ v+ e  N( [        rows:=0;
        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;
: I" Y" ]0 ^1 j: n2 J                        else
6 }5 _& e1 }' o1 S4 M  v, L1 b6 V                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! d* y3 D8 P( ?& A4 ?                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
9 l( Z" \1 T" a4 `                                d_from_to_chart[j,i]:=abs(dx-dy);
4 _" F6 F  u* F$ o                        end;
( D! @) z& S4 K0 F' c                next;
" h* i. ]. N. u  C1 i* g# D        next;
       
        lines:=0;
- ^/ X* Q$ D* Q9 A5 S2 C        partstable.delete;
2 Q2 r: j/ h% ?2 B" T3 s0 G       
  B* L5 H0 ]; g5 Y: q  S' U; F        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( K0 Z6 n/ t  e! o) X# g# a                machinesequence[2,i]:=rows;
  q  L% c+ r, Q3 \$ Z/ T                for j:=1 to number_of_machine loop
8 ^9 ~6 O  H; d- r: V3 g                        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");
3 `+ M$ b( V9 a* ^, v; l                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; L9 W( _; H% e! ]- y  _# D& @' u. T                end;
        next;
        machinename:=sprint("M",rows);
- [& J; I8 F& a4 A4 a) S2 D4 b        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;
( C7 s: g3 m5 k        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
6 F) k1 P, g# A& S        bufname:=sprint("BF",rows);
; b" z* P! ?; w3 M" f        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;
% N  D% `3 `. X+ m+ u+ O  T        buf.capacity:=5000;
        buf.proctime:=0;
6 P4 u) G# z7 }4 l; }        .materialflow.connector.connect(buf,machine);
. D4 E$ z* t* [6 l       
( j: q: h- C. ~, T% {        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 x6 S- {( C# U: G; Sdy:=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);
+ P$ f, U$ h, z( S2 Rnext;
end;