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

zooey

is
8 [+ D, I. i/ W2 K9 H, R        mark:boolean;
# V) o. O( _& [+ q/ Q1 c        dx,dy,ct:real;
    i,j,rows,lines:integer;
0 g/ c5 U% l2 @0 Q2 {    machinename,bufname:string;
& U# X5 n' X5 V+ h) t( \+ z* i3 k    machine,buf:object;
0 Q# u  F6 h: p6 Ddo
        current.eraselayer(1);
2 E5 Q! D  G0 Z( k( c7 j2 J6 ]       
" l* r( s; @' J; i  {        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 H- I7 f2 _% s# q' v8 q                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
6 R5 J- q7 n+ V                else
& d& P; ^$ u/ p" H/ p  T. C6 i                        print"cancel";
0 e- L# u* T) c8 _6 o, s4 X1 l                end;
, e# f; L0 n7 [1 ^3 _- t                eventcontroller.stop;
        end;
' A) D0 c, v0 F. w7 W6 }       
1 A% L6 q$ _9 G0 V        for i:=1 to number_of_machine loop
" R  e  S2 D" m  J- w' v        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 {+ {: {4 ~) ^, Y' e                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
) d- f& k; I$ V1 q' L        bufname:=sprint("BF",i);
0 L- Z  q8 G0 X/ M- E        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
0 p7 y6 p* v# \                buf.deleteobject;
- k1 X8 o. ]$ R4 i+ M: J        end;
( f( L! p" G: j6 Q* y        next;
       
        dx:=0;
/ j1 H& b9 k. H. v; G; {        dy:=0;
4 p" G# I3 u4 \% T$ ^) D& u        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 y' J& F7 b5 a. m% ?, ]                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) }+ r( }* e+ _4 W                then
                        /*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];
1 b; h' H3 {! K0 U. `                        activityspace[2,rows]:=activityspace[1,rows];
, C$ K! S9 m: P. r$ A8 k  \; Q                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
0 u$ d6 K# _* L% T$ a. q                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
2 q9 _' S* e0 m9 J4 R3 m                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 P3 [. ?- r# l6 T2 j4 J0 U                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
& c$ U, A- w- Y$ C1 p# i- s                        dy:=activityspace[2,rows];
                end;
8 f7 {, W1 L8 J) `# M" T                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 t+ X1 }8 V2 m% K                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. i3 Y' A0 D# r5 k. F# {+ B                        activityspace[1,rows]:=ct;
. g! s9 \5 b/ j& C6 Y( N                        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);
        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);
4 N) q. O2 ~, [  \) V       
0 m0 m9 b+ k5 z7 D* b- M        rows:=0;
        lines:=0;
0 {4 ^$ P1 e" B! B: S2 F0 P5 `. j        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                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);
                        end;
                next;
2 {! c2 O/ g* \/ y( [+ X$ O        next;
       
        lines:=0;
) s; ^" l) \: t4 F7 \: A        partstable.delete;
       
        for i:=1 to number_of_machine loop
" I& z% A/ a/ E4 u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
/ i6 I  @5 @' ~                        lines:=lines+1;
7 n8 [7 P- {7 k                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! m4 Z* r4 l* }. s                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
& `- i& M3 i) r# F3 y1 A4 l                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
( [( z& l) U6 f' E8 U0 ]3 n5 N                end;
7 c& V% k1 f  }5 o8 V# J( N7 N' }2 k        next;
        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;
        machine.label:=activityspace[0,rows];
/ }; `* q, e1 Z+ h  W/ Q        machine.exitctrl:=ref(leave);
       
        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;
, m' W+ I7 I! y& R8 @) e        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
3 q  ]7 I2 W0 \3 v6 x; S. L       
        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;
. Q4 Y1 P$ W1 M4 B" b- Fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
# A0 ]% }9 b: p4 i( N8 {$ r, ^next;
end;
  v  L: |& r2 U& f% K