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

zooey

is
9 E- }7 W8 D6 n# b        mark:boolean;
- j( S& ]( J$ u  i* T. c* U        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
& D, D, v9 V3 K& Y       
/ f, ~+ @8 j) ^8 L5 Z2 O3 |. e6 q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
8 B  d2 s4 b# q                end;
                eventcontroller.stop;
, w% }$ ]$ J" ]* F2 Q. K        end;
2 t# Q% h/ `. Z& W% E       
. G( i* V; P$ g, ?8 m# `        for i:=1 to number_of_machine loop
, h5 j1 h5 r, F  u' v: I        machinename:=sprint("M",i);
7 s9 [- |" d' D7 E        if existsobject(machinename) then
7 e0 B" \2 w( c& u1 C) Y                machine:=str_to_obj(machinename);
- u9 H- z: j0 v                machine.deleteobject;
        end;
1 l) y& I  g4 m5 R9 t" N1 d        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
# J  R- i% N3 A$ H        next;
       
/ j. O( _6 H7 ]- W3 w$ w! W        dx:=0;
8 J1 ]* H% [, r, ?- j: j        dy:=0;
( I3 q( D: g( ?, C& D        for i:=1 to number_of_machine loop
6 m/ b" v* [' P; u0 _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 e; j+ B6 h# G0 o" o                --mark:=false;
( N3 Q8 s1 ?( x- z0 p9 _9 p, r' _                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
6 ~5 @( S7 x$ p" F  J7 [                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" ]/ g6 ?( P/ E, D* O; O                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
! ?1 z5 N1 D) B; ?$ ?                        ct:=activityspace[2,rows];
3 H& ~' r3 N) }5 m, {* E( T                        activityspace[2,rows]:=activityspace[1,rows];
4 s2 c  q7 f2 Y, X7 }                        activityspace[1,rows]:=ct;
; k- I( E7 i/ V( v) c8 X                        mark:=true;
6 C4 K1 p8 Y+ ^0 k1 C                        else*/
! R$ e/ |0 b0 M: T  e) y                        y_max:=y_max+dy;
+ Y9 G, r0 P& ]3 t$ c3 @( m- Y* `                        dx:=0;
                dy:=0;
                        --end;
                end;
* j4 P3 n2 m: ^) \5 S                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 r. A, H& R1 @3 d/ v) b  T2 I                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
8 Z$ ~% i- G/ @1 L3 K# p                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
/ a8 \% f; ]/ P# k+ S                /*if mark=true then
                ct:=activityspace[2,rows];
0 z3 e+ w2 Z2 I3 L                        activityspace[2,rows]:=activityspace[1,rows];
3 Z' }3 ?7 K! @( t  R  r  k                        activityspace[1,rows]:=ct;
& m1 _3 X3 F' X* Z                        end;*/
- |1 E) O/ U% D$ _" F# k        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
7 [! c3 P4 Q7 \% Z0 Y. g6 p                        if j=i then
                                d_from_to_chart[j,i]:=0;
+ I+ n7 \9 L! u8 J. [                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
. t1 L0 k; n$ p- t% B3 Y: V" X                                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;
: C) c8 y2 T! |# D; q/ r) x/ J% y        next;
$ B" i- ^1 C4 j) J7 i8 X0 o! e       
        lines:=0;
- I6 v4 j; Y8 r3 j& k        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) O4 Z$ D7 z, e  I( R                machinesequence[2,i]:=rows;
$ [) |1 B2 s, z/ m                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
0 E/ e, B' U4 P" G/ U. J' O                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
( d& c  \& S9 J3 E; ~  F( c                        partstable[3,lines]:=sprint("parts");
  v7 b% @" j0 d; c5 N0 e" r                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
' A3 X, \1 z" l' |" X$ g4 X/ [        next;
2 ]9 E8 V. n& u        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]);
) s' g3 i+ x$ ]        machine.name:=machinename;标识符未知
4 G9 C1 M* Y! B* N; ~% f- z        machine.proctime:=5;
/ f& g2 @0 E8 S! g/ t        machine.label:=activityspace[0,rows];
% o1 ?8 P; D2 x( T( C        machine.exitctrl:=ref(leave);
! |* F% X% d- `, F5 ~* e       
; A; i0 L+ \! z        bufname:=sprint("BF",rows);
( R2 O$ W1 c5 }7 [7 [; o        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;
! ?" B3 h: K8 d' x" z! A        buf.proctime:=0;
1 O& [% }6 e- W& `5 K+ d        .materialflow.connector.connect(buf,machine);
7 Z; z0 ]  K& `1 ^, T* Y       
3 R" `- ~3 Y2 Y* @/ i1 k1 u, }& @        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" i- ^# {/ ]4 W( N* h, N2 [. Fdy:=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);
( h4 p! _( [) J+ z8 G: dnext;
/ M% V  t/ P& g3 Y  R- G0 Kend;