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

zooey

is
3 r  Z6 ?& k# v+ o, |' {- R# @7 N        mark:boolean;
        dx,dy,ct:real;
1 D+ Z. b% q- [% z* O( B* f    i,j,rows,lines:integer;
! h, G7 m! E2 m, B* B: i    machinename,bufname:string;
    machine,buf:object;
* p3 n( K  R& C! Gdo
$ P8 ~6 l2 N1 ?- f" G1 x        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# v! l0 k  C1 K- e* `                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
0 p* T5 k6 E% c! W# |/ \0 h- y6 x                        print"no";
0 ?. I# \2 i! V9 b+ t- X                else
: T, A8 ~3 x7 K& A1 J                        print"cancel";
                end;
3 a- L, U, a( d. C4 `                eventcontroller.stop;
7 C: X6 ~0 S1 e# V6 j        end;
       
        for i:=1 to number_of_machine loop
8 b- q1 w& o; E% |" ~* c+ W2 W        machinename:=sprint("M",i);
        if existsobject(machinename) then
% W1 I3 |" f8 Y2 Z( T                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
1 A* [/ ~7 w9 ^                buf.deleteobject;
        end;
8 k9 W2 `+ k, S$ }5 {# r& n& p3 E2 X        next;
, R& t1 X; f2 E! m, p+ z( ]       
        dx:=0;
$ S1 r: v' n! N3 T, ~( K        dy:=0;
6 F8 Z, Y- G7 [& ^2 H) q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) i, a" N. m  J6 V8 M0 ~( @4 W+ H                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
5 L" J& E" z: w4 O3 Q                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: W8 G6 x  l8 N& @& K& G- p' v                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
# G8 z5 J  o) R9 y: O1 s' r                        activityspace[2,rows]:=activityspace[1,rows];
0 I' `( ?! G2 G                        activityspace[1,rows]:=ct;
; E5 H3 r$ d( u4 _, \+ N6 l; O                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
7 y. X( I" Q6 [8 Q! g5 A+ ~                        dx:=0;
                dy:=0;
& f9 F/ ^6 ^9 Z                        --end;
                end;
( y$ P8 a7 M$ q                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 ^% o  _3 u3 I" \) }                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
/ a9 N+ E' N% W% g! l7 j; N7 K                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
7 J9 F3 Y5 E( `! c  G9 R                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# n4 O6 K; e2 y. L                        end;*/
$ [" y' L/ z0 r        next;
3 f2 N3 N4 m$ N; U        y_max:=y_max+dy;
6 j9 m& p  M  s+ z/ X        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);
3 t  K! D+ n& S/ t        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;
& z/ b4 L3 |* e        lines:=0;
6 ?) c# P6 k8 S8 u5 T0 w9 B        for i:=1 to number_of_machine loop
' H2 r5 S! ?& H: P                for j:=1 to number_of_machine loop
" Y# r3 a5 y& U9 O( L6 J3 x: D                        if j=i then
1 l( G0 w! u& V  }, t) \                                d_from_to_chart[j,i]:=0;
                        else
5 l) ]. X8 u; G; N7 ~                                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];
1 Y% `  M$ r& @$ @% v2 R                                d_from_to_chart[j,i]:=abs(dx-dy);
- K) w& L6 U0 g                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
8 w- H9 g  Y+ A. X7 ]% x% S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
5 I1 r! C2 J+ P! l5 |4 g                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
7 a! f9 l4 d, H/ N                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
/ {3 C2 J2 ^& H0 }# R2 t                        partstable[5,lines]:=rows;
- m( O' j& w+ A, p7 Q6 @# v  r) i                        partstable[6,lines]:=j;
                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]);
( Z7 i0 h! p6 |5 z$ @        machine.name:=machinename;标识符未知
0 Q6 C2 Z/ U' Z* r        machine.proctime:=5;
' X0 J, F5 H: y; `' F# S        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
1 e, W  r5 K& r9 f' j. U. Q: d) i        bufname:=sprint("BF",rows);
$ t8 X  ~6 S. 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;
8 x9 u. \2 B0 T, s( _" j! M5 }        buf.capacity:=5000;
3 B4 z1 p5 U/ d8 v+ D" s& Y! Q: C* D        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
1 p4 N+ w* P8 n2 r        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% b' s% A( `% g; L0 cdy:=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);
6 K- X. R3 Y2 c  D- x2 ]; |4 Inext;
end;
3 i9 z/ `+ z; W1 k0 T& G