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

zooey

is
9 |0 x, E9 n* o5 T        mark:boolean;
        dx,dy,ct:real;
4 W/ `8 p: D5 [    i,j,rows,lines:integer;
' G3 V( t) ?9 a- |: Y/ h    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
2 B) E1 g# V0 ]) Y6 U/ C8 ~* K* E                        print"yes";
5 U" K3 C5 _' [# u. Q  u7 m4 T                when 32 then
2 @2 _+ i. G& x3 S3 N5 Y' B                        print"no";
                else
4 u3 I1 }' q- Q, `/ ^                        print"cancel";
                end;
: }: m9 V6 q- v' `                eventcontroller.stop;
        end;
1 L" j* ]9 l" O3 J% _       
5 L& u, l$ Q. ]$ f: L        for i:=1 to number_of_machine loop
' P9 _" l6 X8 Y4 u9 L$ l. B2 a4 u        machinename:=sprint("M",i);
        if existsobject(machinename) then
( `: X7 \8 z/ _% Z, C5 D                machine:=str_to_obj(machinename);
) r- \8 l+ }9 x1 g                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
1 I5 d  W9 I0 \0 @8 X* s" Q                buf.deleteobject;
        end;
        next;
: f1 a* y$ T+ U+ h, v, i       
        dx:=0;
        dy:=0;
  R* ^9 c- R9 c        for i:=1 to number_of_machine loop
8 i8 A* V4 ?) g7 \+ y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
% m) |8 y+ l7 J" o9 V6 m; u2 c( t                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 P9 S' M- V9 Q$ E                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
. Y! ~' Y# w6 l* L1 `2 E                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
, |5 r- I$ h5 m& p                        --end;
                end;
2 ?2 ?) y+ `1 u                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
2 \! N; l7 K) y6 B. H9 j. a) U: i                end;
6 ^$ ?3 }$ E0 J( Z                dx:=dx+activityspace[1,rows];
1 u  U: i' N7 G; A3 G                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) }6 f3 x7 w- s$ Z                        activityspace[1,rows]:=ct;
" }: `+ H1 O- j' d$ ~                        end;*/
, k+ r6 ^9 T% w1 e' |) Q/ `        next;
9 ]+ T  M2 {0 a5 A. v4 j8 ?3 l        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);
  j/ o# u8 `( v, O& _( o$ k: o/ z        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);
       
. G5 K7 v3 L! w" y! Z) P        rows:=0;
7 }, R% u7 S- I! r% C+ j        lines:=0;
        for i:=1 to number_of_machine loop
2 y1 P% X$ f2 c' `) L5 ]9 {4 A                for j:=1 to number_of_machine loop
6 P6 D) `7 m8 j+ l" O: @                        if j=i then
- N! H) b$ c" M7 T7 b                                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];
- s  u9 Y2 N! e$ y, |                                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);
5 g; a2 X; n4 C/ X( p5 F0 a/ C" g                        end;
                next;
        next;
" a2 x$ j  J0 v: L  `( A/ d       
: c6 A# x0 L. P        lines:=0;
+ Y5 Z( F- s2 x" P        partstable.delete;
       
        for i:=1 to number_of_machine loop
' ?& B. Z8 [  H% I2 N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
4 W! D. r+ `4 f& l% X% `                        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];
/ N6 p6 j8 M, {5 Z2 H: u) S$ B                        partstable[3,lines]:=sprint("parts");
* w4 W. [$ J8 J  j5 |# G                        partstable[5,lines]:=rows;
, ?: r' Q& H! \% W: @# n2 R# w                        partstable[6,lines]:=j;
- [( K( P" d7 z0 y                end;
0 J1 b5 V: d( h1 E$ ~: M6 d8 x4 K& t        next;
& L) ~& ]+ O2 X* H5 k5 A0 k        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]);
( V* t4 v0 h7 b$ z% i3 K' e: l        machine.name:=machinename;标识符未知
3 P1 u) m% E3 N        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
- J. o, \! O8 N$ t" M        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;
# C/ `' R& s0 u) T        buf.capacity:=5000;
        buf.proctime:=0;
, B" b) J6 Z6 S0 t* \6 W( L        .materialflow.connector.connect(buf,machine);
       
* q7 D9 h! J% l0 @        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- M1 r8 |. C( B# G' V6 }4 o+ sdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
2 G. C  Z; o/ Y+ ]$ E' U. V5 @& D2 \current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
' j, p+ n" F+ T, Rnext;
) y; c: ]5 T" D2 M' W* y7 Dend;