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

zooey

is
$ x- M/ T$ X8 C1 {( a2 q0 a4 R, N        mark:boolean;
! t3 N" E) b: ~. y5 c! R1 P  X        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 I* b+ u6 N% |8 H2 a    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
: j: F, p& n6 W) `& t  s# Y       
9 Q* N; V% A& ^2 T7 I        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 t, |: q  g! E( G; O                inspect messagebox("设施数目不对！请核查...,",50,13)
2 V; K# Y% ]2 K5 A                when 16 then
                        print"yes";
) f7 M9 _5 u; R7 {9 C5 s6 ^4 B6 Y. h                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
& G0 F' X- S# v0 F        machinename:=sprint("M",i);
* t+ t) M* F( @  ~5 X3 k1 e2 G        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
' X9 \$ }  ^8 X- V# y' b* I0 a        end;
/ M8 K- i, o1 y0 o# `4 R        bufname:=sprint("BF",i);
2 E4 ]- u: z% @) D        if existsobject(bufname) then
% E: _- o" I1 T0 D+ R                buf:=str_to_obj(bufname);
                buf.deleteobject;
4 y; W! K6 ?5 u+ _        end;
        next;
' q' g% u" I! Q; S9 J       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. Q& [' p1 d# A1 j) }8 C  B, T                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 G7 c8 b+ @1 O                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
0 n7 V9 `6 s1 p! @6 A; ?  r$ {                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
' a9 P0 @3 P. o+ Y2 |* ~# C" e                        dx:=0;
                dy:=0;
+ G2 @/ Q  X$ c$ o8 T' o4 x$ D& _; `                        --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];
  c1 I2 l! s) {/ j& j                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
3 y4 n% C  _; ]: I3 m                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
& m  H9 O! [/ w3 F( I        y_max:=y_max+dy;
6 J8 x- k2 e  @" y# |1 [% ]& @9 s8 H        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;
1 W4 H8 R" {% s; i        lines:=0;
; f/ x# L& a: Z5 ]        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;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" @* b- v" y! j4 M% Z# ^  `                                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;
                next;
( Y% e# T. E# h        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
& `) A' o3 o) h2 h% Z! U                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; w; c" k+ }2 B$ D& \                        partstable[2,lines]:=w_from_to_chart[j,rows];
. b- h+ h' d" o$ b# O, B                        partstable[3,lines]:=sprint("parts");
  G, S( a* v( ]                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
; n5 E; f  n7 a3 u        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]);
$ v- q6 `/ I8 V" k; e' Y" P        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
  o) e: A) x, j0 W- s        machine.exitctrl:=ref(leave);
" ?1 _7 p9 H$ K% a. z# L       
        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]);
7 x# B, z: x, P4 J        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
2 x$ _% d% r5 z/ ?; W' Ycurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
: c7 \5 g! c/ Q% c7 w8 |% Z1 \0 b7 ]end;
. D6 M; S3 y2 Z& c