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

zooey

is
( ^+ c8 {4 r. p& y# q8 Q        mark:boolean;
$ P' B6 x- ]8 l, o  k! ?" e0 P: A        dx,dy,ct:real;
$ U6 R3 V7 J  Y( R, o2 y, l: `, t    i,j,rows,lines:integer;
    machinename,bufname:string;
; d, l+ m- g3 r! P5 }    machine,buf:object;
! ?  t' Z( o3 j7 }do
; I0 r- [# r& D        current.eraselayer(1);
       
+ e$ l. t- S+ W$ ?0 O  f, R, h        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# Y- Q- Q( H6 e5 }5 r                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
  c9 b& D1 {  N& B2 H; b                        print"no";
                else
6 N6 s* b8 w! _3 V: l' s! u: k                        print"cancel";
                end;
3 q3 W' j: e+ k  X# M- f                eventcontroller.stop;
        end;
       
, y0 N) E6 k: e' y7 f7 [        for i:=1 to number_of_machine loop
+ z/ G, C9 b; V        machinename:=sprint("M",i);
; p4 f2 `7 w- ]  s0 v$ R( r        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
) |$ f! E! }- y) E, B3 C, t        end;
( z( Q4 e2 n: x% |+ ?        bufname:=sprint("BF",i);
9 g# l0 A+ `' u$ `6 p2 l) |        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
# d+ z. @$ a( h6 d! R: ^) w. [/ r                buf.deleteobject;
/ |" E8 ~3 p% W+ G5 e        end;
2 v" U7 I/ U' C! p0 a( A        next;
. p( ~9 e- P% @+ Q       
        dx:=0;
9 l0 Q( M# W% A6 J$ y        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; A5 _% K3 P6 W! X# _: i                --mark:=false;
7 @; p) E, [2 k  ?3 N1 w6 X                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 d7 Q4 q) R+ y7 i- g                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
0 t/ u4 [: C8 A9 F                        print activityspace[1,rows],",",activityspace[2,rows];
7 J6 h& _. Y5 b) x! x                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 `$ x. I+ g+ O" y                        activityspace[1,rows]:=ct;
  P$ U1 v( q% \: q: v  Y4 |                        mark:=true;
                        else*/
+ C5 c, V' i3 R" K# ^                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
6 N& {( t3 Y& }                        --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;
  H4 K4 k5 A/ L" m            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
) [3 P0 C% o; s3 K+ H) q  l                /*if mark=true then
, s& z( k( ~% q+ ]' \* H                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) Z* m3 y  {! M                        activityspace[1,rows]:=ct;
1 `3 |, ~1 P" D$ K4 Q0 h+ `* ], c                        end;*/
* J* m. g+ c- a& N: n, H8 ?  Z9 `        next;
/ `. s& F' ?) Q) E        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);
- u0 M& a% @3 A; b0 c0 e        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);
6 K5 R  k, s. c( Y       
        rows:=0;
        lines:=0;
+ @) K* {4 v) _+ x  ?& D3 c        for i:=1 to number_of_machine loop
6 |) d0 _5 V4 B6 j& n( m6 x                for j:=1 to number_of_machine loop
# U% S4 u( w* m                        if j=i then
6 C" H! O( u3 p, _) Y9 F; n9 f                                d_from_to_chart[j,i]:=0;
                        else
1 D5 Y! k6 [. L/ g9 W* s. e5 i                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 b& V( C5 i0 N- W1 D- J7 w6 y& O                                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);
, ^4 k# T. W; r1 G) h: R* x                        end;
                next;
        next;
2 V+ O! y6 o5 e       
4 o6 a; a# a/ V        lines:=0;
        partstable.delete;
       
* M% T9 N0 \' j4 x& o9 U) o6 o        for i:=1 to number_of_machine loop
6 h5 g. Z8 Y6 J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
; J% i; U- I. t9 d. X* }9 f                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
3 v7 m4 G" W0 i. {7 z                        lines:=lines+1;
3 e7 u- b: g' X4 u2 I$ F" `                        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;
' J6 L0 q8 s& i! Y$ ^( N9 D7 w1 h                end;
        next;
        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]);
6 s, {% }: E! H  r! ~" N3 U8 J1 {        machine.name:=machinename;标识符未知
, L: t8 v1 P9 K9 L& d        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 h! \2 h: ~$ c* ]* x, M        machine.exitctrl:=ref(leave);
# |7 Q, r* Y. C) v& v& Y4 N; ?% G, [/ N       
        bufname:=sprint("BF",rows);
9 S" T$ P! y& S  i$ T  z# `- @/ X        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]);
* ^9 e- b- O1 ^+ |( t        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
$ G; W9 S8 z9 W' _3 A9 X2 _/ B; ?5 m       
        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;
5 F( [- ^+ u* M4 E8 ncurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
9 g' U1 E* A* ]end;