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

zooey

is
. Z2 A1 Z8 G( o0 N: C, Q! M        mark:boolean;
        dx,dy,ct:real;
9 X7 X5 f) X+ t# a! n( I0 Z+ m6 i    i,j,rows,lines:integer;
    machinename,bufname:string;
$ z1 s. a& k* f. ?/ V    machine,buf:object;
# ]" V' z2 g7 Z( ^. G$ R; m: Ydo
4 a  M0 [. [) z, k        current.eraselayer(1);
       
1 R1 x2 I, P3 ^6 Y" N        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
# E: X- ~% [) J                when 16 then
8 k" N* z& D, w* h+ g5 u                        print"yes";
! P' m8 \' [6 w* O                when 32 then
8 ^9 E7 h& w4 p, ^# _4 B7 b                        print"no";
                else
3 L2 D2 j6 Y; q) \4 {! W4 {                        print"cancel";
: P0 m2 o$ R& j# `$ y( l0 A: U                end;
1 u  t! Q# V7 o: Z- P' D                eventcontroller.stop;
        end;
, S4 U7 i% G6 m# i1 ]; A       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 P/ W: t; r  @- k1 ^: O        if existsobject(machinename) then
7 l: M- D. l" q# o9 b, _5 ]1 U( E, i                machine:=str_to_obj(machinename);
: L6 D& b- {$ ]% \% G6 P                machine.deleteobject;
        end;
  |1 s4 z& D  _2 H8 j$ q        bufname:=sprint("BF",i);
        if existsobject(bufname) then
% V0 I  \6 S  L1 P. Q                buf:=str_to_obj(bufname);
                buf.deleteobject;
0 J& C) W7 z) r+ E: p, \        end;
: k1 f- L2 u& H% \* o0 N( i7 k        next;
8 C6 m: P: l) Y) M2 _% b8 `% }       
$ `9 ]9 |4 h; y! |- l" Q% d        dx:=0;
3 R) ^- \1 v' T- ]3 g- x/ }( U        dy:=0;
" F( Y6 l' G$ @- o9 a# o  z. a        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 a+ }: @" l7 X4 z1 e8 L                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 A6 G  i0 ^7 q. ]9 o. S( n- W                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 @/ v. ^" S/ F, q9 a                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
$ k- ^, I3 H2 J/ R2 T: [                        ct:=activityspace[2,rows];
- C- `+ q! K  P4 \1 B- O. c                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
0 e6 a/ j6 f8 X9 ?+ l8 f                        y_max:=y_max+dy;
  ~8 L2 v: a; g* ~- z                        dx:=0;
3 f: s; \: w+ ~9 a2 H7 p. [' M                dy:=0;
                        --end;
0 a1 b" B" e2 p) J/ y/ G                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 j3 S" t; I) I3 [% ~                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
% X! R% \! V3 V( S  ~# \            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
, J% w* w, \$ o3 a4 p& C                end;
; t3 A) r) m+ J$ `                dx:=dx+activityspace[1,rows];
3 i7 c3 _+ G/ @$ {2 z                /*if mark=true then
                ct:=activityspace[2,rows];
) |  \' y1 C' O# e; y                        activityspace[2,rows]:=activityspace[1,rows];
) n2 f5 `* U' L. @1 F( x+ Z                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
/ I8 F. V# K! ~5 w# z1 W$ l1 C" }/ C        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);
       
, v8 E- Q! j/ H6 O: q( M        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
$ T6 X$ S  W9 u& I% c                for j:=1 to number_of_machine loop
                        if j=i then
8 z: E% h. L% B0 \, G                                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];
7 G" H5 M  a8 K* l& S4 C8 A                                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;
4 f" @7 b! A5 @                next;
1 D' X+ x3 n- h        next;
. Q1 t% q) X( a6 v+ W  `1 s' {       
: P6 z# H4 E- ]6 {& p, a( x1 x        lines:=0;
9 a0 [4 P0 B8 R2 t3 J        partstable.delete;
% ~: n; p( B; e! z4 H1 t       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: f$ h" }% s# J+ r- p                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
# ^) c) g4 C2 h0 a  D) m0 _6 X5 s# F                        if w_from_to_chart[j,rows]>0 then
0 x6 m. l% g3 q8 g' N; e+ y$ N. E% j) J5 G                        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");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
# l5 R) ~5 G+ C                end;
9 T3 n" Z8 y" X3 l        next;
8 V1 M6 O5 n6 B        machinename:=sprint("M",rows);
; [% o4 @2 ?, O: s3 S- P0 _        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]);
8 s( e6 t2 [. r7 }        machine.name:=machinename;标识符未知
        machine.proctime:=5;
( o, P9 D* r# G5 L6 A  Q        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
7 ?+ C; w5 z6 p7 P' {- r' t       
) e, d7 _5 H$ O" d. E( ^        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
, I$ g- t( _0 n$ `4 x, h, ?        .materialflow.connector.connect(buf,machine);
: T. ?8 N8 p  a$ _5 r6 v       
/ }$ o! C9 _$ I/ n% u/ Z% W        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 D: P. e0 W: a- Wdy:=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);
, f7 e( {  G7 e0 b1 Z% m8 i3 Xnext;
end;
& A0 I$ Z- g+ F  K8 R7 G  Z! u$ E