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

zooey

is
        mark:boolean;
+ I9 E# Z, a' a  S* S0 ~        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 X. F" P* S4 T2 M+ P  Y    machinename,bufname:string;
    machine,buf:object;
! j+ z, e/ S0 V+ [do
# C0 C) s' t: B+ e        current.eraselayer(1);
: I- Z( N! @* {' y( X; i! {       
+ `- M6 W; T3 k# \& m        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 B+ R4 `6 V8 U                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
/ Q/ C1 j* \$ D, G) x                        print"yes";
% q# N( ?* g* V5 w                when 32 then
                        print"no";
9 @' v& Q8 e3 u$ G( [" D                else
* l9 X0 y$ T4 A* h+ o( S+ S& j- Y                        print"cancel";
                end;
                eventcontroller.stop;
2 Q; [6 c' A. w, I: f' H2 z! ~        end;
: y! {9 f/ z" U& m: v& `6 a       
" I$ U4 k% Q5 [: @        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 Q; V: ~  @; H6 j- f! z4 P        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
8 z3 U5 ~$ q8 H; h( C& `. e; W5 I. [        bufname:=sprint("BF",i);
' w% o3 F4 p  x        if existsobject(bufname) then
! v# h7 e' H. i5 {$ E0 m$ J                buf:=str_to_obj(bufname);
1 v: Q. J" K0 a+ j) M                buf.deleteobject;
) Q# q9 M4 Z. m, n( e        end;
# \1 }) g- a0 K. F        next;
       
        dx:=0;
2 }, h5 i5 I2 O! ~( M/ g        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ y3 t$ x/ |5 i+ U# g7 H                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 J: I, R& O- t2 q8 J0 Z$ a' n                        and activityspace[1,rows]<(1.05*y_max) then
7 x& M5 @+ S4 L                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 G& y% D6 ^% C* ]2 O2 ~7 @+ a                        activityspace[1,rows]:=ct;
) d* \* }: U8 C$ n. l% {                        mark:=true;
4 s' j2 d' H4 e! [' F/ M6 s                        else*/
0 s: G/ M- m% F- r" k: V5 l                        y_max:=y_max+dy;
7 i$ ~( f# G4 }9 Q: a( X9 s                        dx:=0;
                dy:=0;
! }9 A5 f' i; {" {) j  v                        --end;
                end;
" E: f1 |& T( T, g                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
# k7 t% g# F( {4 A- p- T2 Y+ N                dx:=dx+activityspace[1,rows];
                /*if mark=true then
2 x2 b) ]$ q6 T/ ]                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
8 p, F+ @5 p0 a        next;
) n6 E4 j: S6 ?' s9 @  f$ Y- k        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);
+ Z5 K2 k3 b7 L. f9 Y& F        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);
. R; k/ ^& G! f1 N! I       
. _  D- H% c0 L& X! m        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
6 w$ t- n/ }9 g8 _* {- v; B                                d_from_to_chart[j,i]:=0;
: R& w8 }9 F6 a3 A* E9 @                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
  b4 \* r- O/ a                        end;
                next;
3 w0 E2 n9 C3 g1 g5 P! Q        next;
+ y9 X" h+ D% W1 G" Y       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
& s. Q8 L; O( ^* S6 n. `6 O& m) b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 k$ u$ N  `/ j) ^, t                machinesequence[2,i]:=rows;
) h5 Q; O- v; u$ `                for j:=1 to number_of_machine loop
3 C% _3 X% u. y/ R/ W                        if w_from_to_chart[j,rows]>0 then
( ?$ Z; j  F. z" _0 E( n                        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");
0 g! ~0 `! L/ D- j% h                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
+ q, V! p9 D  W4 J* z, S                end;
        next;
& @& [! k3 j% D* A  G0 c6 H        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]);
        machine.name:=machinename;标识符未知
/ b* u) w- A: Q' i& R4 N) \  e" m        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
# V: X* H7 d- K1 `6 ^        machine.exitctrl:=ref(leave);
# X8 D6 K# J, X; X9 [1 [- ~% z  m       
7 l& Z8 L* \) L0 |# [        bufname:=sprint("BF",rows);
, }, B+ i9 M, N: B, J        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;
4 l* H' I& A( [5 ?2 \        buf.proctime:=0;
        .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;
+ V: N  `9 H' t3 }: }& Scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
) l  d: D( P- s* X  Y1 a$ wnext;
end;