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

zooey

is
! x9 q  H0 k2 o& u& A+ S        mark:boolean;
$ g& C$ }% w, B3 S        dx,dy,ct:real;
    i,j,rows,lines:integer;
$ \8 s  T* l  J3 x    machinename,bufname:string;
    machine,buf:object;
" @+ X2 ?) j8 K& ^3 |4 Q* B1 gdo
2 e# h$ o& P: {$ C5 W4 P, ^        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 V2 s2 A  y/ H& v5 H" C                inspect messagebox("设施数目不对！请核查...,",50,13)
6 p  k2 ]2 G# `6 `                when 16 then
5 _% a( _9 G" d9 w                        print"yes";
2 c9 g6 L# m! s! I+ K9 Q. q( r! l/ G                when 32 then
6 h' v( ^- l: `                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
4 k3 Q& Q4 V/ H; o! J: S        machinename:=sprint("M",i);
; f: [( f4 W. p* M  @8 r: Z$ R7 l$ T        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
* ]+ s4 g1 _) b& j/ U        bufname:=sprint("BF",i);
7 u. P" F8 I3 a5 ^/ W4 P        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
6 I2 }8 Z/ p' i+ \% }% u                buf.deleteobject;
        end;
/ f6 P, p) h; W# `9 x$ i        next;
3 L$ Z# \! k  ~! m       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
; ]1 F# F5 s) B  n. x# G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ l8 L  O2 ]* g# |1 o                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% c* d9 Y7 ^1 S/ F                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
$ E+ @4 G3 \! a  Z' ^" y+ R                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
# ]# u2 f# r# v+ N: w! A! o                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
2 \' d! G4 ^1 K: h                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 ^+ \% N5 _$ V- _2 H* |/ [                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];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
( a* G0 Y, y. Y" C4 C, G                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 F( v1 V1 n6 T) x                        activityspace[1,rows]:=ct;
' t. R2 z7 d* d/ O9 F% r  ~                        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);
       
        rows:=0;
( c; m% g4 A; U, u6 P& D/ o        lines:=0;
        for i:=1 to number_of_machine loop
4 c0 b) a; P4 B7 }$ A/ M                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
' \# Y8 {  t4 k1 ^+ c                        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;
& k. C5 I& ]* [5 h                next;
        next;
       
! q& q' f* e0 Z        lines:=0;
; i# M2 X* ^, E# m; |( ^        partstable.delete;
       
        for i:=1 to number_of_machine loop
* m* x+ w+ l! z6 v# k0 _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% }( m/ T+ A2 v' r                machinesequence[2,i]:=rows;
$ V6 e% y, p& |                for j:=1 to number_of_machine loop
4 ]4 u) C' ^' s# l6 W                        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];
: Z1 g" @% e" o6 V9 ]9 ^+ K3 ^                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
1 Y1 Y5 k! ]9 l2 h) x7 ~        machinename:=sprint("M",rows);
- s5 u2 o" j2 L4 m' ~9 D        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;标识符未知
; l* C% O, M( N6 e* t2 @  M, Z$ L- B        machine.proctime:=5;
) |9 e+ R- v( G+ S" r. {) y        machine.label:=activityspace[0,rows];
/ @+ a& V% H  Q" x; a0 ~' X        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
# ~5 u! J  N6 Z) Z& c' X        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]);
: m2 t4 J" e9 f, M. F        buf.name:=bufname;
' l( G1 F/ W, o" Z" i( m7 W' `        buf.capacity:=5000;
5 O8 [- D/ O3 J        buf.proctime:=0;
2 U. a' l+ A! c1 _- J        .materialflow.connector.connect(buf,machine);
* @. x+ L4 l# p; U% R$ j, }; g. m       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ [3 q( u( ~/ ~0 B' Cdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
; b7 W! f) t3 j, G) Hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
9 y3 ?. e- R4 ~