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

zooey

is
" U7 L- b9 q8 T8 I7 O# E        mark:boolean;
$ e$ S. A( ~( Q        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
: u9 M" f7 ?3 n5 r& \- I    machine,buf:object;
do
$ N, y  k3 e! N; f  y) E        current.eraselayer(1);
1 [, p+ M5 N6 c9 z       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; d, z2 n1 f5 e2 I. Q7 n0 d                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
+ w, O1 u, |& o" ~5 i8 ^4 ^+ A                end;
                eventcontroller.stop;
        end;
1 c/ C  b% I9 F2 x2 l3 [2 X       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
7 R( _' M' v, _9 O6 Z9 c                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
2 D' ]' [! b, d) ]& N5 i        if existsobject(bufname) then
) M+ E3 ~, d3 _/ l# F                buf:=str_to_obj(bufname);
                buf.deleteobject;
; j* f. i! L4 F        end;
4 V$ |$ v: N" A' B        next;
! Q7 y; }( _; E" u" N+ F' v       
        dx:=0;
        dy:=0;
! G8 o5 h9 k, o2 Q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% T4 s% W8 W/ O9 k2 p* v                --mark:=false;
2 U! F' [& A6 l! U& g                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
/ K0 w1 }1 ^  g% {" t                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
" i4 L8 \8 r( e                        ct:=activityspace[2,rows];
* L7 N1 q1 C1 T- }                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
/ u  Y; D6 i1 Y2 _" C                        y_max:=y_max+dy;
* z" x3 V: g: U! T                        dx:=0;
6 _8 g% g1 w& ]% l  A9 H                dy:=0;
                        --end;
                end;
; j+ L& R/ \  M7 h' L' H$ c1 _                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 X* W4 |# {* C7 I# i( a+ L1 r                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
  P* Y9 g1 s0 K7 Y            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
0 p7 h+ A. R2 }' t9 }$ A9 x                end;
8 O0 S2 H6 I, C* r2 x7 K                dx:=dx+activityspace[1,rows];
9 B7 f, v$ K6 M. T0 t* l3 M                /*if mark=true then
3 I: c* X$ v2 P+ L  h                ct:=activityspace[2,rows];
, l: t/ f$ M" h: \                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
2 g/ |- f$ `4 {+ D$ G: k        next;
        y_max:=y_max+dy;
3 ?( D9 `  P- G* K* _        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);
. I, l" m! E. N9 D& ]; ]6 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);
: _+ Y8 Y; \% e9 g- e1 i       
% x" E4 p0 T! R) t: r1 {        rows:=0;
5 H* W3 B% e8 q4 H' }, l        lines:=0;
) Q0 a. K+ I& i- c7 g# c5 d2 c        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
9 h' W1 z! r) k5 c# N                        if j=i then
& n: r5 l$ F, Q7 T+ z                                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];
) e5 O4 z/ }0 `* C                                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;
                next;
+ D: S# j( N6 }% h  t9 m" Y        next;
0 h( Z+ _$ o3 B/ m2 r       
6 c+ J7 \- R0 @: ~* F+ [9 k1 \& E        lines:=0;
- X6 H# _& r6 x5 ~9 F" ~/ V! b, j        partstable.delete;
% l6 W* U3 S; L) a: C4 N7 r  y% @       
        for i:=1 to number_of_machine loop
: u- F* d+ q/ Y  c2 S# g4 ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: P6 \- L+ a$ e+ I$ [0 r  r                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
7 Q) `4 H3 `$ B4 U                        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");
( J0 o6 ?  i2 l" u" Y" l% i                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
7 F! @. v% E6 H6 S) u$ e        next;
        machinename:=sprint("M",rows);
$ m/ i: b1 u  k) s& \& R        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) @4 e( y: T2 }        machine.proctime:=5;
( Y4 B- }- F6 M# ^( W3 o        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
9 j- F" {" o6 N  ?8 m        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
0 q9 W* X3 x5 K# r        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;
6 z1 z* O, h! {, N2 Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
+ ?/ q6 i( J# Xend;