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

zooey

is
; s5 q7 F: q' t- Y- D9 f0 C) J        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
3 D  Q" v+ `6 H" M    machinename,bufname:string;
    machine,buf:object;
3 A9 F+ T0 }9 S  xdo
        current.eraselayer(1);
( V& ~+ @0 I! T' W, o5 ~% d* o8 l       
' S, z" A! O3 m4 F; e. ?        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" A5 h* a, ?- o5 o; G                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
% E! M! r$ n% X/ s$ L" G                        print"yes";
                when 32 then
                        print"no";
: [% x# O% d) g2 f( y) u                else
9 G) n0 e7 J2 Z                        print"cancel";
: R# W7 }( A' X+ g2 {3 N                end;
6 Y( F$ L( z* Y/ f                eventcontroller.stop;
8 p# e7 F$ d8 l) k# r1 N3 G( H$ t# r        end;
       
        for i:=1 to number_of_machine loop
- F' G4 u  B- E9 S0 E* H% {        machinename:=sprint("M",i);
        if existsobject(machinename) then
/ I2 S& b4 u" o# C; _% g9 M9 A! S4 u8 b                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
2 A2 ^/ }6 [/ G# [/ H& F6 `                buf:=str_to_obj(bufname);
0 ?) l6 F" d/ ]) t+ H( |3 M3 Q                buf.deleteobject;
" E+ R( f& B( S, d5 I% O2 v        end;
( d; r$ W$ n" p$ {        next;
5 S( q5 t5 u9 ]4 S       
! k' c1 K, Q* t! Q' d2 ]8 I        dx:=0;
2 s7 F3 i3 m" L5 }8 R        dy:=0;
0 P, V) x6 W( J- f8 t2 V+ L  s. l- P        for i:=1 to number_of_machine loop
& s9 Y$ A1 z1 V, c  H) r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
2 V" z, Q$ A5 m" K1 ]& J( u                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
( S1 F8 A% d( r3 C; Y) p, l+ Z                        else*/
( A+ B2 \, n8 c6 \& c7 w  h                        y_max:=y_max+dy;
0 N# e7 j# v# p% H9 C5 E) T                        dx:=0;
                dy:=0;
  l4 o/ o* {* C, K                        --end;
( [. d2 N# x& x* ?6 u                end;
+ ?0 |) w/ a; s* J2 m. D: W: _                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 b8 [7 X# ?" w                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
9 K: _3 Z8 c# o                        dy:=activityspace[2,rows];
                end;
* v9 x; N4 u  t) T8 `2 j                dx:=dx+activityspace[1,rows];
9 n% U8 Y0 @0 a- N$ v                /*if mark=true then
' B  {/ c: e" E# `+ A* b                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
' g, W4 j% F' z$ i  Y        next;
        y_max:=y_max+dy;
- ]- H3 y$ C/ G9 }7 Q$ j        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);
1 }( x" ]1 @- R/ u8 J8 k) X       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' U, \& ?# q. {) L" ?2 f6 ]8 z- \5 y* @& @                        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];
8 s9 N" n( c* P( U" y3 q                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 t, G8 b0 I: r' K& W8 k                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
' P+ [, o. |8 r. }        next;
6 o9 A6 C+ p! E7 C( p0 D9 u! X4 g       
: ^% f2 }- Y/ x% v        lines:=0;
        partstable.delete;
! R8 [' p! W4 ?) E) [; s; i* F       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
8 P0 F& y2 j+ `                for j:=1 to number_of_machine loop
# x, K& O5 ^% i2 Z7 a2 C# K3 B                        if w_from_to_chart[j,rows]>0 then
$ e* C9 [. q) M! b7 `                        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;
0 q0 A9 u" m1 P. f% y" O                        partstable[6,lines]:=j;
' A1 z- k6 m: Y+ l                end;
$ X! ~, \2 ^5 C1 A& ]5 u. c4 H6 a        next;
        machinename:=sprint("M",rows);
" q4 c* V( T3 p3 P7 j5 t        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;
( v' v& _# T9 Y2 I: X; L; @/ H        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
) F* E, E, c0 N9 k# S       
1 j) n  j. {3 h        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]);
( p' D; {" J9 ~) X9 ^! @1 [* ~- _6 ^* `        buf.name:=bufname;
) g3 r+ K# F; @* a, T' E  a, Z8 }        buf.capacity:=5000;
        buf.proctime:=0;
1 m# W4 t% q; F$ {0 W/ B/ x1 m' C        .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;
; b) d' f$ t) P- h) Ycurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
# F. V; q% F. b) M* y, Tnext;
end;
7 t( q0 X1 f2 T; z. t