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

zooey

is
0 D, i! w' r3 q* o. r$ W$ r6 b        mark:boolean;
( {* a. l+ H  r; W1 I" O        dx,dy,ct:real;
    i,j,rows,lines:integer;
/ d- p2 d2 S$ w* Z" d% B    machinename,bufname:string;
7 H7 f3 B3 C! Q$ h+ U4 W    machine,buf:object;
do
        current.eraselayer(1);
       
5 |# Y% x; Z  H4 ^8 b        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 ~' ~# _9 }) J, G                inspect messagebox("设施数目不对！请核查...,",50,13)
& q1 Q7 h6 S3 Q4 N. x                when 16 then
# f) b$ v, J  _' i6 Y                        print"yes";
                when 32 then
/ y2 J& }) b( J( S5 x6 E                        print"no";
                else
                        print"cancel";
. q, i, P+ S" y% m                end;
                eventcontroller.stop;
        end;
       
$ u( o: ^9 n6 F. Z        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
* g" ~# x0 H6 B8 o, a: K                machine:=str_to_obj(machinename);
                machine.deleteobject;
1 h7 P6 H+ w: |# p# L" \/ p        end;
, |- T5 d$ O9 g: d6 _- t        bufname:=sprint("BF",i);
: q; U" h, M4 X1 ~3 X5 T! O! n( I        if existsobject(bufname) then
: g  A4 p" K6 Q/ t8 ~6 a                buf:=str_to_obj(bufname);
( e8 [) ?5 M8 T: o! r: u                buf.deleteobject;
0 R0 W- N: _# a9 k: _        end;
' [5 L3 f0 J' b' J: T; J        next;
       
        dx:=0;
        dy:=0;
5 T& ^# E& J) B( t        for i:=1 to number_of_machine loop
- w) ]7 f4 }8 e' k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ C$ i) ]( O/ K* k                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" S) H% f' M  c9 q1 v                then
9 [5 p7 x/ `" }9 g* v                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& O. l# g, L: L& i+ ^                        and activityspace[1,rows]<(1.05*y_max) then
, ?0 c. e$ P' t1 |. y+ ]& Y                        print activityspace[1,rows],",",activityspace[2,rows];
3 Y2 m' \2 j: s& U, h, J                        ct:=activityspace[2,rows];
# N& z; c3 D" G2 ]: L8 I! Q: Y                        activityspace[2,rows]:=activityspace[1,rows];
  B$ T' y  D) Z- W- ?2 d                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
- I$ j9 c' F' y0 n" Z8 _; l% z                        y_max:=y_max+dy;
                        dx:=0;
  T! G* A7 c. ?% ^: p                dy:=0;
5 H. K+ O/ w4 W6 H% @  o" f& v                        --end;
                end;
! h7 |/ b' F0 n* }( ]# q6 e7 \5 C                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! Q3 ]3 M! {3 i& @# C                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
! F9 i7 L5 B! j7 D. |* }                        dy:=activityspace[2,rows];
                end;
6 ?& |) h* Q8 @                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
6 C7 t* L) V. O# Z0 T                        activityspace[2,rows]:=activityspace[1,rows];
" G% `" s+ c; x                        activityspace[1,rows]:=ct;
' v# Z$ X, t; Z7 E& N/ |! G                        end;*/
        next;
, t3 t2 k1 D" P  F1 n9 y        y_max:=y_max+dy;
: ]" G% Z% f' a( Y        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
" g$ x- _3 w6 M                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
- m) |) e# Y/ c0 ]2 i7 Z# K* v: w, }                                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];
7 t. e- ~3 s4 `" y; Z7 I  H                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
4 P6 E, B- E; ^        next;
       
- g0 g' E' a/ Q9 B8 z        lines:=0;
& m& r# f6 F+ {: k# |        partstable.delete;
       
        for i:=1 to number_of_machine loop
8 B# S7 O7 E. k* z: `2 ]3 P- G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
3 Z! G2 v3 ?* Y                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 \5 T& w7 m' f* C# T5 k! E                        partstable[3,lines]:=sprint("parts");
. n' m! W* \1 m                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
. L$ H2 J) V. Z8 D& ~% {3 |% m        next;
- h  o9 m. n* k) i, E+ g' x        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
$ a0 O8 O" j1 F8 U$ [        machine.label:=activityspace[0,rows];
$ w4 \; V1 w: K' e        machine.exitctrl:=ref(leave);
       
" f5 @  o+ |( [& i        bufname:=sprint("BF",rows);
# |# x6 h) j+ L/ v        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]);
( Y! G7 |6 [* Q4 H( ]/ w( G2 R( O. p4 L        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
! a# l; Q, {+ `4 j4 }. U: R       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ w+ y" F) r3 ]7 R8 ]dy:=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);
next;
0 ^, y# k/ B/ r. @end;