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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
5 D  u9 R" K* k# k! a    i,j,rows,lines:integer;
    machinename,bufname:string;
6 A5 y3 D4 ?, ^1 U9 W7 q. m    machine,buf:object;
do
% r# Y9 o9 }9 v6 E, f        current.eraselayer(1);
$ W& W2 N' O* o: b9 a( d       
. }- T' O7 w* u" i# I* _2 X6 f3 k        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
3 k# m, A2 g9 w$ P                when 16 then
                        print"yes";
                when 32 then
                        print"no";
& v8 Y0 Q, D3 `) T' C" Z                else
7 ~. U- H9 K2 B" J8 u9 e3 D) u                        print"cancel";
# I6 m! S# q* W& b                end;
                eventcontroller.stop;
        end;
- l  c) D" g& M) t* A8 z8 b, W" Z- A       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
$ d5 `; A9 p# s5 C" f                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
3 |* c& s0 K0 G$ m8 `3 F2 W        if existsobject(bufname) then
" x4 e" o# y1 e0 }6 D# Z4 i                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
- z& x& W8 v' J; _        next;
+ H2 t: M. ]! B1 D( v* n. b       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
& {" K9 y3 R9 c  |5 R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& V8 v9 F& k' I. {+ f                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 O4 e+ N6 |) K                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( v  L, A8 U) K- Q1 s# u  a# Z                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
' ~0 h+ |$ R7 ]( t5 g- I; m4 C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 @+ `0 l+ K, j/ d$ G                        mark:=true;
                        else*/
6 F) z4 \" @3 X! t  o! N5 i+ [                        y_max:=y_max+dy;
                        dx:=0;
0 p  D6 b4 z2 `2 B! F$ A' |                dy:=0;
! A* P9 `8 z% f0 H0 j% q" F; W                        --end;
# t. M, q; `2 u1 W+ S                end;
' r7 T4 D! X( R- D( `" F                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 Z: u  B0 c5 q; L                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
5 L- [6 y9 \' o6 _: c4 b4 \6 y. }                        dy:=activityspace[2,rows];
                end;
2 l: K+ Q2 f# W3 W                dx:=dx+activityspace[1,rows];
                /*if mark=true then
  b0 Z+ |9 X! B$ l1 q! K; W1 M                ct:=activityspace[2,rows];
+ e. {3 q2 i7 v3 Z' a- ~8 G, q                        activityspace[2,rows]:=activityspace[1,rows];
7 _+ C+ H' ~! X( S- Z                        activityspace[1,rows]:=ct;
3 G1 \" `5 C& p# c6 U                        end;*/
        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);
$ d6 q+ {) V3 }% F: J1 f6 b% [- G3 }        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* Z# r6 s# J: V        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
1 ^- ?5 ?$ N$ t1 v' B) G% j; q                                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];
                                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);
3 n$ c  f7 Y7 {/ r' A5 h6 P                        end;
  q0 H5 @: w' N1 j  U                next;
# w/ J. o& l+ l% n! T- K2 o5 R        next;
0 @. e. F$ @# _) F. B       
0 Q$ V0 W' O7 h5 ~2 G4 I        lines:=0;
        partstable.delete;
& P  S# K6 K4 r8 d; C6 o' ]       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: `& R% W0 s: b% V; t) G, f8 y; N' q                machinesequence[2,i]:=rows;
% I8 v8 M4 a$ O$ g' B' b                for j:=1 to number_of_machine loop
1 G( W" M# u  i& ?! i0 |- z2 H: i; Y! i, S                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! h2 S+ C& k6 W. b7 \$ ^                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
( R1 `4 j9 i5 [4 C: D+ c                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 n, R+ G, X8 p3 x                        partstable[3,lines]:=sprint("parts");
* v$ t& V) G6 x2 o* f0 n                        partstable[5,lines]:=rows;
) p1 D6 ^3 [) K! f, \, r# \                        partstable[6,lines]:=j;
3 B; n$ V( R( o+ O                end;
        next;
4 F! Z3 l0 u0 v        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]);
1 H3 P" I3 s9 u6 z0 J% R9 |        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
" }% S/ ~! S5 B. W$ ~) \        machine.exitctrl:=ref(leave);
7 ?- z& w; w! X$ N2 K5 l. }       
        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]);
8 W. p! w3 ?# j' R7 w1 r8 C: U        buf.name:=bufname;
        buf.capacity:=5000;
0 b/ N* o8 c8 Z" S7 ?: C/ ]        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
3 R/ p; p3 ~* z9 K$ h       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 F) i  c! j  S: e$ ^% J( y2 S- zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. m9 p/ D) T+ A+ C4 |current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
" R5 [9 ?  G& {& p' E1 |: znext;
4 f+ ]5 v3 L1 ~/ [9 zend;