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

zooey

is
) |0 F% O% e; `8 J3 n0 b& s8 z, M        mark:boolean;
        dx,dy,ct:real;
' z, i: i% c) [* R& ^' v1 {    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
/ h9 p1 }1 T" l8 N       
+ J7 P8 U$ U& b) Y/ Z" t2 Y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 o0 ~" }) w- Z# `: c' {                inspect messagebox("设施数目不对！请核查...,",50,13)
1 a" g5 H. V7 |* a* U+ s( c, U- h                when 16 then
                        print"yes";
                when 32 then
                        print"no";
! r/ ]3 ~) u0 x                else
' e7 h8 Q0 a' i7 \                        print"cancel";
/ L, X4 Q7 h: y4 r                end;
6 d" G1 o% i# @% }9 H                eventcontroller.stop;
        end;
9 V) d; F0 ^6 a* A9 t       
4 v* ^+ n% e0 T, v  q* l        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
9 y# E4 E  A4 @$ f        if existsobject(machinename) then
2 y  V, y! k* R% S8 t                machine:=str_to_obj(machinename);
                machine.deleteobject;
+ L9 w0 d' @" [+ o8 H1 B        end;
        bufname:=sprint("BF",i);
7 V2 E! G& ?7 i. D0 U& O        if existsobject(bufname) then
3 m. w5 D" G& l( ]- `                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
) \- N$ |3 C% u        next;
       
        dx:=0;
0 V& i+ R' U5 u2 i2 y! P        dy:=0;
* Q; h9 ?5 ^" m, X- y* y        for i:=1 to number_of_machine loop
! x5 @" z( ~& \  @" Q# {6 V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) J( Z  J6 }- ^9 ?9 z6 k                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
  z. s  V4 I0 b. O                        /*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];
) W& y: T% v! e6 Z  @5 p1 H- N                        activityspace[2,rows]:=activityspace[1,rows];
" V- ]+ b0 x, V$ p+ V1 M- \, [                        activityspace[1,rows]:=ct;
                        mark:=true;
5 W4 v  g$ o; ^2 p6 O0 C- I: P                        else*/
  H  e3 J5 _9 R                        y_max:=y_max+dy;
( B* T# P) p. F6 {9 R7 j7 |- t  f                        dx:=0;
/ ]3 S/ z! m7 W0 O% h6 y                dy:=0;
                        --end;
                end;
( E+ i0 ^0 a8 _% o$ D3 n$ \                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 L0 y8 ^# i9 d3 A! ~0 A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
, R5 k3 f9 c$ T* `6 b            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# p! ^( f7 q' k& g                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  d; A- G4 n3 c! v( j                        activityspace[1,rows]:=ct;
3 U" A! ^% T9 V: g) `  }( ]                        end;*/
1 F6 y' y# a4 `3 ^5 t" N& k        next;
* O! {% ]; L, M# F& K        y_max:=y_max+dy;
( r& O9 [- c- B        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);
' }# T6 B% j# l1 Z) {7 [        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);
       
, x7 f9 ?2 k  a8 B3 ~# r% @& C        rows:=0;
' w& V3 n, |9 G  Q" s  u8 g        lines:=0;
        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;
% G3 x2 X5 A4 j, N: g9 F1 H1 ^9 I                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: H- k, y3 W( B7 v! ]) X+ I                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
8 E; s8 e  p5 }8 q! G0 i                                d_from_to_chart[j,i]:=abs(dx-dy);
9 b: G2 n6 }8 f7 w                        end;
                next;
& v  Y" J* ]) m        next;
       
/ m' v( g  h* C! m- Q        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
& X2 i6 U" {( B( A6 @3 L7 H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
4 A" F+ ]( Z0 C4 ~% i                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, H$ }( B; l& ]: |  v" ?7 }0 h                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 m/ J( ]* C$ V0 q/ n                        partstable[3,lines]:=sprint("parts");
/ B* Z4 {9 W/ w# J- J                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
9 c. c! I# R- P3 l6 S* J( {        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];
8 }) [* ~5 K$ z5 d) S9 K        machine.exitctrl:=ref(leave);
/ l$ ~6 Y& G7 Z2 q! G* T       
: M: A  l. h. l% \0 @1 r5 G( ^1 X2 S0 G        bufname:=sprint("BF",rows);
! C+ ?4 p( f. G4 U6 K8 E        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
% Y& [4 F4 a: \* w: e       
3 \( L# \& o% X        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);
5 q3 ~* S" h, X1 c2 ~1 ]2 u+ K1 n- Cnext;
end;