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

zooey

is
$ p- d; }  \4 e4 p        mark:boolean;
$ x) ]1 v, {0 W- b5 p        dx,dy,ct:real;
) s7 Q* O: h; U0 ?9 a8 ?0 a4 u% ?    i,j,rows,lines:integer;
# s; U5 ?. C3 u: i    machinename,bufname:string;
7 i# L# A4 h. r/ V- v    machine,buf:object;
1 ]9 c3 U) |* a' w* q( c2 y0 x1 [( kdo
        current.eraselayer(1);
$ F! j* S1 U& T. J9 @# ]% ^       
/ V2 [, q4 z& n. j8 A+ \# g0 K3 _        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; L, D8 |0 \" j. u5 `( h3 R. X                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
3 U7 k4 G% W3 @+ N- U% U                        print"yes";
                when 32 then
7 C2 L/ t! q* o  x  l3 l7 X4 ]                        print"no";
                else
; c: H+ j& y  A                        print"cancel";
                end;
3 `! z' j* K8 w" x, S$ E) N1 }                eventcontroller.stop;
        end;
/ p0 E7 k) y0 W- w. }       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
# i  S# r: ]3 ^        if existsobject(machinename) then
( h, n- l6 {; u: ?: u: G' Z                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 R; k2 S. P1 A9 S        end;
        bufname:=sprint("BF",i);
$ X5 t( l$ ~7 {. F6 u2 x3 d7 _! |        if existsobject(bufname) then
3 u; I' N# ~0 i$ G- }8 y# h                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
7 Q/ }$ J1 ?7 A( J) n4 ~4 v       
        dx:=0;
! N% R7 B$ s/ m) ^- [- I        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 o* C" J( }) T5 v                --mark:=false;
0 k$ S; W9 J+ J+ S# j6 j" R3 P: N                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
/ k- E9 ^5 m- _/ a3 S  z                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
/ W6 L9 y, r* @- l5 H                        activityspace[2,rows]:=activityspace[1,rows];
1 R1 G: e8 b2 ^5 k1 p6 S                        activityspace[1,rows]:=ct;
                        mark:=true;
- q5 l1 x3 w" c3 K1 a# u                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
7 V: z/ i: k- j0 a. d; `                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: _- q, U. u* \: t                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
1 Y+ D+ k) e& L9 i# s8 n2 X# g# x0 [; v4 c            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
; |, r+ _2 X2 P. j5 n+ Q                end;
8 N" w4 f9 l' U. E6 h                dx:=dx+activityspace[1,rows];
                /*if mark=true then
0 p6 [; n& C1 x: d5 F7 ?                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
6 A( U2 W& o* H' |/ h8 q        next;
7 R" l; W' {" v        y_max:=y_max+dy;
9 Y# b7 @' @5 d& L! @6 W7 U        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);
/ p! K: v! H$ Q5 E: e! I6 l  H        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;
5 a% Q# ~) r5 f; p        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;
! a, j+ `  J. O7 I$ i. R7 q                        else
- I5 Y2 d+ e/ I) |! C                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" h& ~, k7 \1 U9 i- Z7 y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
3 ~9 ~: O. w# k                                d_from_to_chart[j,i]:=abs(dx-dy);
9 [* c) g  X6 r                        end;
0 \9 _3 u/ [- [' F; O5 F                next;
0 z9 h/ q. F1 p, A! N        next;
       
' u" R) q, v) L" T: h/ ?        lines:=0;
) L: z- \/ s1 J' U# {: {        partstable.delete;
# V+ b1 X  L5 k) M& D0 a       
. d) @6 y% v% a  q7 c' @: r        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
. _  d) V3 L- E                        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");
                        partstable[5,lines]:=rows;
: J4 h* Z3 ^( e1 U% w                        partstable[6,lines]:=j;
                end;
        next;
3 S6 k& V1 C: m0 R2 B        machinename:=sprint("M",rows);
. ?5 R% i% t6 ?2 d9 }2 ?        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]);
5 W; n# [8 |1 X8 y; Z6 y% g        machine.name:=machinename;标识符未知
# z7 E+ g3 t) a: O4 F8 B        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
9 y" Y, a1 M) E2 A! c) W# w        machine.exitctrl:=ref(leave);
       
, m' F/ R* t: [. z        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;
) K" ^- Z* f- d0 U5 V        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
! n* c3 T$ U4 h7 T5 S        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. \6 i4 j; R; [3 t$ G: C! Bdy:=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);
next;
end;
5 g3 n/ K1 s* g8 P3 ^% o$ b: @0 c