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

zooey

is
/ _$ `/ V7 H8 n) j0 F        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
, x. }( w% @9 o1 J! f    machinename,bufname:string;
    machine,buf:object;
8 w4 v4 z" i* }0 Q. Wdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ |0 @, y) E( j$ s                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
) B) v" ]1 _% h% G$ l. j( A" h. E5 C0 [                        print"yes";
  K9 C: t. V% a5 F9 t0 C) u                when 32 then
9 H! @5 R* ^& R                        print"no";
                else
( {( [) {2 R! ]! \) l                        print"cancel";
                end;
6 C* c; n! R9 E1 n$ i0 m/ {                eventcontroller.stop;
& t  U9 M& I+ b: P, j. x2 W: ~        end;
       
4 z; M! K, J* t& T6 J/ E        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 R' f4 r4 V! b" K, t& ]( o7 P# ~                machine:=str_to_obj(machinename);
' N1 {: q. C" n$ d7 A                machine.deleteobject;
        end;
2 I; {. c% D# o0 s/ K  z        bufname:=sprint("BF",i);
8 T1 l& s  J+ M* f3 W        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
, h- f; `& O- s( U- ]/ [        next;
       
        dx:=0;
4 Z. ?- i7 M2 n0 M  k3 O6 J  l3 `7 v        dy:=0;
% ^1 x5 _# K3 E* i! y/ }, w% w        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% X8 k) M8 I: [( C$ K                --mark:=false;
. e+ M- \* @# P3 ^# X' \% J                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! v5 U; Y; q# P! ^' O4 ^; v                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
9 p+ @' G& \" Q# y0 [                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
7 N6 k  k* {* h) t2 F/ u+ R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
7 C, z1 O$ s2 z! v                        else*/
+ l, @1 k' v3 U9 b6 `                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
# G/ B* [# L  r: R' A) K& s                        --end;
- I. Y+ h2 B: a* S, d; `3 H                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 l  S  w# ~8 n$ w. }* }                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
/ B3 Z7 F& r; {, k' g4 S9 Z0 g1 {# I                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
6 r  ^7 u& W5 K; X                /*if mark=true then
) C  T& n. F5 g* `7 p% z0 L" k                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ f, @, f& h3 |2 Z( e                        activityspace[1,rows]:=ct;
& \% m# w  x1 j* R, {2 Y3 w3 y6 n                        end;*/
, ~* D- G6 R4 B# K* d7 v1 ~6 }5 p4 s        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);
' ?/ E6 U# a. m# Q+ M8 x& v& B        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);
       
* R+ e+ C4 m! R3 _' A        rows:=0;
        lines:=0;
( t6 s% w* ]* ?1 Z        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
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* h& }/ r+ B7 g6 }( b; a) R1 ?% T                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
8 D* k" }' R6 k9 A) R                                d_from_to_chart[j,i]:=abs(dx-dy);
2 B" i) S* p+ s: a1 y4 v" c8 k2 e                        end;
                next;
        next;
+ O+ [( o7 W' }- J/ Y       
        lines:=0;
& H/ i0 O: o! X9 ^" K        partstable.delete;
       
, f, I) @2 e6 Z# c( q: }        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
" \5 |. d* m7 q( i                for j:=1 to number_of_machine loop
" _  H$ F3 b0 Y- B" t9 ^                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
' V! y% F8 z; `  C                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ a/ R3 q' n6 o- V                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 e2 S' T  \' e& X& \/ g                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; }) @2 V" T* d; W( h7 E                        partstable[6,lines]:=j;
                end;
        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]);
8 S( l8 F; j; t- ]8 H        machine.name:=machinename;标识符未知
; A/ z! N  i. _; ?. O5 j; O        machine.proctime:=5;
0 S" g/ Q# B) {% c4 f        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]);
        buf.name:=bufname;
0 @8 ^: ^  C8 q- S        buf.capacity:=5000;
        buf.proctime:=0;
5 _& ]9 L* r8 ^- y8 Z        .materialflow.connector.connect(buf,machine);
7 K+ a6 R( |' C3 L' z       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( @) l7 V" _" E% ndy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
4 }1 S+ Q6 H( @5 |. ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
- z4 q2 O) G  u* Eend;