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

zooey

is
        mark:boolean;
% \4 i; N6 V) \" s6 H! X* D, E5 S+ P        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
& X! V: Y% j; _* R1 r8 `8 p& c        current.eraselayer(1);
1 G, `1 B$ J! q3 D0 p$ I" n( m! ]       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. P7 F5 V9 L1 E, u" F5 Q3 M- Y                inspect messagebox("设施数目不对！请核查...,",50,13)
; V$ A0 \9 A* ~0 ~                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
- J1 P: O; ]( U/ m3 M                end;
                eventcontroller.stop;
        end;
  E. S/ G1 C' [9 S( M( B1 U       
        for i:=1 to number_of_machine loop
% k3 z  c! @5 Q% L( X        machinename:=sprint("M",i);
        if existsobject(machinename) then
- F' J- M! T  Y4 i& l                machine:=str_to_obj(machinename);
, y+ W; ^8 V/ D8 G  A0 E1 N                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
8 O5 F3 n# p$ N: u2 ]; s% x        dx:=0;
  U' [( i6 |6 Z        dy:=0;
        for i:=1 to number_of_machine loop
. [5 U+ `# i: w' [! |% d/ I3 R* U- e                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
6 {) u( ]) B; e$ n# S                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ R% N! p8 P5 b0 P                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
+ ]1 p  p# t7 Q  W1 ?                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
) u& p1 x2 v, X$ b& i) N                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                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];
; |  x- H9 r/ Z: |+ l                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 A0 V) G- H% }4 ^' M                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, K" Y' _$ Y7 q1 G                        activityspace[1,rows]:=ct;
$ P3 i+ d% M  K: k' G- L                        end;*/
3 X1 g! [$ W# L$ K) ]/ ~        next;
: s, e: |! Z$ ]0 w, j. n" F* c7 B        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);
9 e, |  x  f8 G) [       
        rows:=0;
        lines:=0;
4 N0 W; G" l2 x# x" T        for i:=1 to number_of_machine loop
& v4 e3 F! d2 c- S$ p5 U+ l% E                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
9 `; y- k' e6 h0 x3 z                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 {8 h) E% Q) k; o6 U                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& R4 T+ C. L& Q3 K: O0 R                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
9 n' t0 S) h4 L8 u. j0 A1 v0 m                next;
  {7 i  ?. p/ h+ q        next;
       
2 ?5 R4 O; c8 H" b8 {5 d        lines:=0;
        partstable.delete;
       
) E) K9 b. X! H4 a( R# c% J" A6 K% T' I        for i:=1 to number_of_machine loop
7 X; M* x  z. W4 k6 ]$ K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( F6 w5 |' }9 n! {                machinesequence[2,i]:=rows;
* W' ]0 q, a$ y3 C! k+ d; U0 i1 B                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
& [% H) ^/ g  d4 A8 x$ L6 r7 l                        lines:=lines+1;
  O7 M8 J2 h/ _  ~1 o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 d% K3 s  j. y  S5 F6 c( ?                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
4 g: V. i+ Z* D- d4 D                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 r! b1 V9 S7 S! l/ V" _                end;
        next;
        machinename:=sprint("M",rows);
7 I2 U  K- j. f        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;
9 |5 {4 i" O: O9 b1 {# l        machine.label:=activityspace[0,rows];
' i7 X/ ]. H, b$ y* A; ]4 c4 B        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
. E% M, x# C* Y# ~        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;
        buf.capacity:=5000;
* X( _  E# g* U- T% d- _  }        buf.proctime:=0;
# X1 ?" K5 x* [; Y        .materialflow.connector.connect(buf,machine);
       
3 U# [8 C% C% |: o        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;
! T  e, e1 x4 s! I( j* dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;