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

zooey

is
8 T4 n8 x3 t: N        mark:boolean;
6 [$ |5 x! M# c, U        dx,dy,ct:real;
1 }( s& `  y& H, O    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
2 N$ i, m; K& c0 @. Ddo
        current.eraselayer(1);
+ k% L$ U, ]8 q3 L; c       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
8 X, _" S1 E$ q" I/ o' D                when 16 then
; }; C+ \- g) t) V% M% s, u* a                        print"yes";
                when 32 then
                        print"no";
2 N0 N1 s: y. ^' r1 e& E                else
                        print"cancel";
                end;
6 W/ H) g% E; c                eventcontroller.stop;
        end;
9 \8 _- ^& v6 x, c       
" z5 P9 e9 G5 D        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 W+ F( j. t. G" X. n/ D4 @/ P                machine:=str_to_obj(machinename);
                machine.deleteobject;
+ t  G6 Y8 w9 W  T( N        end;
; L8 G$ [  u; b8 T* D3 @* `        bufname:=sprint("BF",i);
        if existsobject(bufname) then
! d' @/ x2 K. o1 n/ l( n                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
8 A4 J7 g4 s" }" J        dx:=0;
# m' Y* u# L$ t        dy:=0;
        for i:=1 to number_of_machine loop
. `% T5 d8 f5 A9 ^% l4 [1 Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
" R; ?5 L, A6 `7 `$ I                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) P1 u' Z4 l9 j! n5 m, r) T+ V                then
) l* b. c! }5 @, I7 j                        /*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];
4 d& \  d0 F4 K                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. y  P9 C9 m2 Q                        mark:=true;
6 T7 Q& o% y" m1 N: W$ _/ C                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
6 @& k' A) a5 k                dy:=0;
% ~8 g+ w* l2 D& t1 N) ~                        --end;
( q2 s, O+ h7 V1 H4 ?* H. C5 Y, }                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" a! E# O' Q" |. c3 K                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
; s3 ^' R; H# j# ~+ m7 q+ s                        dy:=activityspace[2,rows];
                end;
6 H/ \/ ?! k1 n. ~* R4 t                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
1 z' Y4 P3 r$ u- p. l" J                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# M8 I" [8 ~9 n                        end;*/
        next;
        y_max:=y_max+dy;
        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);
% x& I1 H1 C  O4 J0 n       
9 U! l0 D3 X0 m' s- \7 ^% }8 W        rows:=0;
- t0 l$ a1 j) Y3 y! }+ |( `        lines:=0;
& h' ^$ G; m1 q. m- d  p( S# j        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
- D7 v! C: ]1 r                                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;
3 T( m& U$ [& L+ k0 L6 K                next;
        next;
: ]( b6 {1 N# }       
        lines:=0;
+ H( t/ @5 f. u        partstable.delete;
       
/ P; j  i4 r4 W' w        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
9 I6 Z$ d9 v. S2 d  Q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
3 E& u" T* P- k5 i                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 j' p4 |6 b0 Y' i! Z. O* r+ u* J                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; a( O5 s' Q) `; C                        partstable[5,lines]:=rows;
+ p: L$ f' R+ ~4 O' }+ u: V- z                        partstable[6,lines]:=j;
+ ~' y1 m( O% T3 l$ ~                end;
' v7 [  _6 b3 m' }- g        next;
2 t9 I3 ~7 {- b% r1 n, I        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]);
& P7 j: h; [' m. h- |" S- h/ L        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
        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]);
& D5 M. F1 W" c1 u        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
* j' N5 M9 K8 @        .materialflow.connector.connect(buf,machine);
       
& q4 R* I. R/ z/ y        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- \9 i! _& o' A$ r* b9 I5 edy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
6 L# t, p2 w+ v( s0 E' {current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
1 a/ M: i( Z: g# k2 |7 X: bnext;
: f1 |. H- H/ Y( y: l- j& r( \end;