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

zooey

is
$ B' ^% S& m% i! Q5 T/ B3 \, i        mark:boolean;
        dx,dy,ct:real;
9 e8 u, p( N  D) v    i,j,rows,lines:integer;
    machinename,bufname:string;
# |; o: `; S9 \- c$ l8 y    machine,buf:object;
# D; B$ m+ k' m% C$ Ldo
$ g; e% X1 @( B# R        current.eraselayer(1);
       
+ b! g3 z1 c# S# B0 |9 R        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
5 S, t8 N! Q6 ~# {; c1 }3 W                        print"no";
5 B( {0 s* Y* Q! C  D& `                else
                        print"cancel";
                end;
                eventcontroller.stop;
- O$ W8 u# P% T9 F0 i# f        end;
       
3 g! b3 Z4 S6 F1 u' d2 l2 j        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
( f( _1 n* f+ ]& R) ~, j4 _5 f        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
7 r6 v" t$ b8 x/ M" h# U                machine.deleteobject;
, w( m0 J" h( O' ?  D# u        end;
        bufname:=sprint("BF",i);
9 _% o. C' T; x- H/ |! y        if existsobject(bufname) then
, i- q5 U7 ^' g* q; B                buf:=str_to_obj(bufname);
, u) K  @8 `5 G  Q+ A, w                buf.deleteobject;
2 I& m2 U7 Z& v7 k+ [! P        end;
/ S3 W; t1 p8 d" |        next;
- q6 T9 R" J3 [, N$ y5 D       
! l2 b+ J* q3 u$ k        dx:=0;
* y! I9 Y( T6 p2 c1 j  L- y7 V        dy:=0;
/ o& C+ x  W2 ^6 A) m( R, V1 t5 \        for i:=1 to number_of_machine loop
, u8 q( L; T7 `9 W+ z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 ]5 ~- g  w/ Z, w                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 V  o( ]8 d- A4 w. h                then
$ Z( w0 U' I; B/ N4 Z" n8 R) o                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 m3 g* }* x& r, s, X0 X                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
! }8 S2 u; _6 P% L; F( H+ F+ l- f                        ct:=activityspace[2,rows];
" |3 u7 w  i  s9 a8 D8 M                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
& e- }, b# L8 {# ?2 S/ m& X) W                        else*/
0 M% K) O( W% A5 }* Y8 o9 r0 i                        y_max:=y_max+dy;
/ ~& @! L. @6 W9 J                        dx:=0;
                dy:=0;
                        --end;
, s9 k3 o& K1 m                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;
% X; o1 ]. W, y- E+ T$ m            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
) O3 ^. U# [/ ?) Z. a8 \) f4 M" T                /*if mark=true then
! E% J' D( l. b* Q9 ?9 T0 S9 x                ct:=activityspace[2,rows];
* ^; D, \- |- S# _( S& t+ j                        activityspace[2,rows]:=activityspace[1,rows];
6 q1 c$ a# b% {" z                        activityspace[1,rows]:=ct;
) m$ O9 V7 x! H+ g' Y                        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;
        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;
                        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];
2 x  O, q  }( s$ W5 G                                d_from_to_chart[j,i]:=abs(dx-dy);
$ ^3 e1 h0 [$ y- `- f* {' _, W) h                        end;
3 a9 h7 t, v, f5 j% B) }                next;
" I6 B4 g6 @" Y        next;
       
) F( `. c# P+ y        lines:=0;
        partstable.delete;
       
  e3 P: B1 y3 s3 z- E        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
                        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];
                        partstable[3,lines]:=sprint("parts");
2 R& f, L6 \2 n# Q                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
/ f& i- g) A( ^0 {% s7 [                end;
6 f- q% S) ^. S) x  h        next;
4 h8 ^- S9 K9 ]8 J; ^2 V        machinename:=sprint("M",rows);
2 `$ ~% u4 J) j6 r4 J# 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]);
        machine.name:=machinename;标识符未知
0 [, \6 a4 `4 [2 g4 C( e        machine.proctime:=5;
7 G- t$ m& e6 J5 m' b        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  g6 p8 v9 R- z1 X       
        bufname:=sprint("BF",rows);
5 U7 x. G- d0 Q: L, h, h        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;
. k4 Z+ a) P7 q; ^4 M/ \        buf.capacity:=5000;
3 t' H, @/ S. ~! d% T        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
8 A( O+ I3 P1 D) V+ s; C3 g# e       
" J, V$ D( x/ D2 c5 U        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ ^8 p7 |) z- R  N: _+ tdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
  g' e3 n8 b# E% {; ]& Fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, C- L! N% y& k* z1 _2 dnext;
end;