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

zooey

is
- k! d# n1 u' ~: q  o' }1 {        mark:boolean;
+ Q; n' ~1 [* i' {/ b7 _7 x        dx,dy,ct:real;
    i,j,rows,lines:integer;
7 t5 ]# c; A& w& E; S' @- [    machinename,bufname:string;
- b5 K) y7 G( N7 R/ F/ [    machine,buf:object;
do
# J8 l" U# i, U5 i2 ^% t        current.eraselayer(1);
! l: W. k4 n+ B: D) L. f1 G       
# Z7 s* y& w5 j% O$ X        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" \5 i$ @! u! A: A& `                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
" k+ D; W# {8 N/ D' o- ?' I' M' K                        print"yes";
- F: B( w: Z+ I3 y/ R% K, ^6 N' u2 Q                when 32 then
3 K/ k1 G  Q# L# ]2 R3 w                        print"no";
: I/ L3 P" `  I                else
1 M0 V# O% u" g( }& a( @: O                        print"cancel";
                end;
                eventcontroller.stop;
        end;
0 t# C  H0 c4 d9 r       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 b, B& t, n( @+ Y6 w/ ~" C        if existsobject(machinename) then
) n* n8 t! L9 c  J: _                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
$ u6 N5 {. S6 i0 t0 G        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
& o0 h9 S( E5 V3 j  G                buf.deleteobject;
$ d, ]9 d" B" }9 ~. ~        end;
5 O2 {! S% H% A3 z) o        next;
       
        dx:=0;
/ v( ?9 Y$ o$ C- K0 X$ B        dy:=0;
# Y# ~1 Q- \# O7 x& }        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* y7 M) s3 d9 l5 a                --mark:=false;
0 W# z& _0 K7 C* f                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 _) Y! D& \5 }; v* G; }) I                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
8 j# S- j- u) W2 v" U+ l. L                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
4 w& z& G: D# T) O3 c" n( c                        dx:=0;
                dy:=0;
7 d' s- l- n3 w# B                        --end;
; T1 E5 R, j% F+ B                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ r1 y; Z' U4 B. T: Q8 ]3 Z9 w                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];
3 \5 I) j1 H7 C" H4 l- P                end;
                dx:=dx+activityspace[1,rows];
8 B+ G0 T( d8 s8 n. Y, Q                /*if mark=true then
                ct:=activityspace[2,rows];
8 m8 \+ }. j% K7 D                        activityspace[2,rows]:=activityspace[1,rows];
& H1 O$ A8 H2 F' c                        activityspace[1,rows]:=ct;
& I- {$ s% Z! e) N" ]2 ^                        end;*/
        next;
/ o! d% D$ a4 y: A+ m% {        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);
, x" Y& m9 O, q        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);
, O% C5 ]$ R1 n& S       
6 @7 n0 t& D6 \; u4 `% T        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
* x' h  A9 J+ S+ M                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
$ s0 P& G2 j( ]) e                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 a/ G1 f! \7 T8 [                                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;
) }. l$ J0 I1 N                next;
        next;
4 C( l9 F8 A# T       
        lines:=0;
        partstable.delete;
       
% l: K- c& O& _  P; S/ i, e        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' ?! q4 `4 ?3 D% q9 o0 f4 L                machinesequence[2,i]:=rows;
, n6 }- ^4 _5 _9 H5 P9 u                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" [* D. [; l) C2 H" \2 B/ [                        partstable[2,lines]:=w_from_to_chart[j,rows];
: x0 G5 ~; ~* L( d                        partstable[3,lines]:=sprint("parts");
6 X# ]2 T4 t, z4 _% C% V% W                        partstable[5,lines]:=rows;
$ e' Q% A, S, f6 [/ r+ ?% a0 i                        partstable[6,lines]:=j;
" a, Z' u4 s1 b9 J$ Q  _                end;
        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;标识符未知
+ A) z1 B# |( {2 b        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        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]);
8 t5 n% P/ p+ S; i6 X  J/ \        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
+ r2 i) H$ j7 F$ U/ |- O* L. j        .materialflow.connector.connect(buf,machine);
       
; T& e. f0 `/ w. i! Q        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
3 G. E" n7 _7 K# q* G( `end;
- {4 v! b: U) u6 V