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

zooey

is
$ \  l, e' b9 T8 A        mark:boolean;
3 c2 v" }! a' I- }, C        dx,dy,ct:real;
    i,j,rows,lines:integer;
$ K+ u* o8 j/ k" k- K' I    machinename,bufname:string;
6 a6 ?* r- d( h" h4 z    machine,buf:object;
! b4 B. b+ U( }' |/ Kdo
8 {) B, Z- C7 Q        current.eraselayer(1);
3 H' B6 |- W' @       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 |( a+ u9 H( m+ ^                inspect messagebox("设施数目不对！请核查...,",50,13)
" c2 I* D* n) N9 @                when 16 then
                        print"yes";
                when 32 then
7 Q" o# f& O, ?8 z; ^; Q& p$ o0 q                        print"no";
                else
                        print"cancel";
: I4 R6 K' z/ s5 G) `8 t. d$ z, o                end;
                eventcontroller.stop;
4 \, o" m- A# A, f( X# j( D        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
' M# G, l6 P/ K        if existsobject(machinename) then
0 P/ E* a9 B5 c) G( q2 k7 N                machine:=str_to_obj(machinename);
: G( I  ?& H3 i2 D+ J                machine.deleteobject;
0 L' O7 L/ T/ A9 b* C        end;
# I/ f6 c+ n* }4 S; j1 e        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
9 H# K. y1 X5 e0 T6 z, y/ g# Q9 t- |                buf.deleteobject;
. q* ~% d5 f4 o, @        end;
  l9 ^# W7 z% M* c* K5 Q        next;
( c# Y. u9 j1 {+ P       
        dx:=0;
4 }$ _2 [  k2 S6 J        dy:=0;
+ r* m7 }0 b( }% [5 e& T( T        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) @- R, f$ d- l: H                --mark:=false;
$ s. ^4 J9 }# e4 D& u4 O5 K" e                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
4 [& D8 M: l  }; A# ^$ I! ~                        /*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];
                        activityspace[2,rows]:=activityspace[1,rows];
5 P2 k% H4 w# j& A7 i  `                        activityspace[1,rows]:=ct;
0 X/ h9 H! ^  m$ [( G                        mark:=true;
                        else*/
/ J" x# m: c$ k% d6 Y' n                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
/ k, o" F# @* Z. e5 _0 a$ |                        --end;
% j) d! W) B$ w, o: r4 [                end;
: |' }% x4 h. h# ~0 V* ~                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 e1 q' F( a! {6 b  F                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
$ x2 @) s/ B- W: B! y            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
$ t( C" j- L5 f0 H% _- S- r8 C/ I8 _                /*if mark=true then
4 T3 ]. V/ G/ k7 ]5 a" R                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
3 [( L+ L4 ]9 q% N) r! m6 F        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);
, L& q& f! F& j2 q! G& q        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;
* M6 W7 Z2 M/ M1 K6 a5 y        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
" [. _1 U+ I9 C  t                        if j=i then
0 H! V  W/ x+ e6 ^& u+ `( O                                d_from_to_chart[j,i]:=0;
2 C+ J% ~  I9 u4 a9 s                        else
/ k/ x! O6 \; e# X9 u                                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);
6 }! A6 A6 B. F( J                        end;
                next;
& s0 C) h: x1 \        next;
       
        lines:=0;
        partstable.delete;
" L/ Z1 R, |' p# Y8 H       
9 D0 X8 U, N1 z* T" z8 s2 }( u        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
" e  A. n: K: ]. m7 C                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  T2 I* R, q4 x0 u                        lines:=lines+1;
9 \1 g' T% W5 [                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 \9 ]/ ]8 I  t$ V* x                        partstable[3,lines]:=sprint("parts");
$ X4 F5 s4 x, j  }  v0 A9 p- h9 x                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
$ X2 N0 d/ j$ y$ t                end;
7 {4 k0 _/ l  H$ L9 U; t# }0 m        next;
        machinename:=sprint("M",rows);
0 ?' J# x; \" h5 s        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;标识符未知
, Z: Z; B+ j( k! V3 I! Y* a( {        machine.proctime:=5;
+ ^8 a, B% s+ ?4 \/ B# C" F4 U        machine.label:=activityspace[0,rows];
8 l/ I5 a0 }7 k  p2 K8 ^        machine.exitctrl:=ref(leave);
       
5 m5 Q. \2 D2 C: k" z7 b! {        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;
% k6 i6 Z7 u0 a+ m        buf.capacity:=5000;
0 B2 x$ u4 |& E( B; G" V        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
2 y: s" K' z& r- t  r, f       
        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;
. u2 g$ a6 o6 D. Z- s* gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;