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

zooey

is
: Y  d& f: ?2 E* W+ S5 q5 Z. f        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
! D# D8 n: S% R* M" H* q    machinename,bufname:string;
    machine,buf:object;
$ }, `- S" h1 A- B* i) Zdo
0 z- J1 |% Q% F4 D        current.eraselayer(1);
9 n$ D% ]' U, t8 J3 X! R       
" `0 i% k! z9 T8 X. a  F        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* D7 O5 ~% Q% u$ P4 C                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
' @' S, [) T0 \, \1 P) `                        print"yes";
$ U; _! I5 E# p                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
& _; e: n5 f2 N                eventcontroller.stop;
8 W1 ?/ q. u/ w; T        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
8 g# C  T; |0 N) q3 b! ^+ e' v- }        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
4 L6 H9 C% H0 L9 D/ Z7 T                buf.deleteobject;
        end;
, @0 f2 z* j& v% z( Z6 u        next;
       
' b0 I( z( F) _- m: Y0 [        dx:=0;
- ?, Z1 }3 v  v) F. M        dy:=0;
( D0 F, u8 s5 D        for i:=1 to number_of_machine loop
  J0 j7 R, }2 c1 p/ ]                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 [# D# F8 y: y+ d' o! b  b' {                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
$ w; x) w# e& l/ e3 O                        /*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];
) p# I  l7 r1 X2 M                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 R) m6 J  v" T9 G                        activityspace[1,rows]:=ct;
9 n" c% S+ E/ ?3 ^" o4 O: i" C8 D                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
$ ?$ a" C# W* s- U                        dx:=0;
                dy:=0;
                        --end;
& @6 r. a/ m/ B/ n                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 f2 r2 z+ L9 @% u& o8 I                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
$ ?9 R! r9 E) I9 @                        dy:=activityspace[2,rows];
* e$ F2 G( Q( }                end;
                dx:=dx+activityspace[1,rows];
) S) r1 @; X: |$ ]8 B5 k( _                /*if mark=true then
  F6 Q0 N6 O+ e% \: L  h! T                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* S% U3 @+ B3 ~% ~                        end;*/
# B# I% I& k6 i* o" b        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);
) K, I# y* g0 w       
% r( s' H4 s" a' M1 V8 S        rows:=0;
6 r9 ~4 _# A. y+ Q        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
4 ~; N" x" @* o8 N                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
# m8 ^2 W, L# b% \                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# o0 x9 d% H5 Y! H: L                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
" C- T, `. M7 v. g" G! R6 e2 ]0 |                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
# a! r+ h0 B% l3 @- K3 m        next;
       
2 ?$ S& y1 I9 i  m        lines:=0;
        partstable.delete;
' h, u! ^5 H7 ~* D' w! V1 i* Z& g       
        for i:=1 to number_of_machine loop
6 Q+ L- B4 ^7 z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 w6 x  X2 a. L0 n  }$ Z2 M) a% i                machinesequence[2,i]:=rows;
/ c  e+ C" t8 v  m" g3 C                for j:=1 to number_of_machine loop
! v0 S- `4 K# ?$ O                        if w_from_to_chart[j,rows]>0 then
$ p2 D9 m7 L7 W                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* x5 R/ F! _3 l9 T# [                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
5 d1 c# ?) q1 ~0 d" j! F                end;
. Y) G- p5 a6 v7 \        next;
7 s' s/ Q& j$ Z! W! A! y        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]);
$ P) l' {5 ?* D: A. d        machine.name:=machinename;标识符未知
        machine.proctime:=5;
7 l( p/ D: _2 ?! U( {7 X9 j) z        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
1 |' ^; W% \& p% H7 M       
" g9 @4 x. y. i3 M6 f" O9 e        bufname:=sprint("BF",rows);
' h1 i" G4 K5 [7 |% }( M7 _) 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]);
% B2 X, z1 c) U! w        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
4 w4 n+ S. \, f) u# u; z       
        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;
% p' o5 [! D5 C8 h$ C$ ncurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
& l+ ]" v5 T8 Bend;
$ t! G6 z, ~4 `7 T/ k