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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
& a; l7 Z$ O. l/ _# f( S    machinename,bufname:string;
" @6 M1 y; Z2 _* b, D  h    machine,buf:object;
/ J* {7 f2 d* kdo
        current.eraselayer(1);
) h& q7 V" J: u3 }% N       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
, ?3 ?& C, a# a3 @                        print"yes";
                when 32 then
' \1 _! K+ X: Y4 O: }                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
8 c; U; {+ a: i6 j9 A& ~) K7 f        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
/ H1 p$ {& E8 F                machine:=str_to_obj(machinename);
                machine.deleteobject;
' ^9 k: ~% C- K+ c        end;
        bufname:=sprint("BF",i);
: j  A% B) P) a1 f        if existsobject(bufname) then
. e) o8 \; F% i# q2 ^+ J; x                buf:=str_to_obj(bufname);
$ S) c2 ?" [" Z3 `8 j$ }                buf.deleteobject;
        end;
1 g4 o1 H! _2 R* S( x5 V; a4 [        next;
. n) H% p; m) Q$ c1 w. x  t       
        dx:=0;
        dy:=0;
. d5 D. t: o- o        for i:=1 to number_of_machine loop
7 Q4 {3 v& n1 k2 W. F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 i0 ~, @9 I- w0 ^$ F' n                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 i0 N' K1 S1 s  F+ H$ M                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
! ~+ \4 ~) g/ h; A                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 o3 _, H; P7 O+ k1 d                        activityspace[1,rows]:=ct;
" p9 X- }' @: q0 b/ q' P4 G                        mark:=true;
+ a$ O- n7 o" G5 S4 l! ~                        else*/
/ T# J: J* v! ?( m) _$ y9 G8 V8 I8 S                        y_max:=y_max+dy;
                        dx:=0;
9 B8 k5 ~+ q0 }) ]+ P                dy:=0;
4 v& n1 d9 ?7 w- S: E5 |                        --end;
$ B6 b+ Q$ }' W" _                end;
  X/ O: l' @0 m                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 }2 B/ e) }9 K4 ~/ h0 C% o4 ^                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
) H$ K1 P+ J& H9 E* l' W. |& B) S                        dy:=activityspace[2,rows];
/ J, f7 m7 J; Z3 H8 N1 a                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
        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);
. g) A9 F0 x8 L       
1 |" ]2 n# i# Z# V: l. r        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
! i* E) Z- y: t% {% i9 k: t                        if j=i then
# P* D7 H/ u2 d% B                                d_from_to_chart[j,i]:=0;
                        else
3 O% b: v5 O& i                                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];
6 Q" k8 _( l1 E, W                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
# z  n" z1 r  ]6 l5 A                next;
1 `% h( u- l8 I: F7 W        next;
3 M) ]- ?7 B1 E7 p       
        lines:=0;
) E, s6 R) Q  V6 f        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
8 U( s; d# R) Q% T                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  [; R6 q8 ^* i! H" f- u                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 R0 v  X3 Q; W( R1 D! b* P                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 k& A8 _  Y( ~                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
) N2 p5 I$ G1 R6 O        next;
  u) b* R4 v+ P5 f' ~1 J        machinename:=sprint("M",rows);
6 x, V# M$ {% n, R5 {        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]);
, k* @2 F! H) K3 ]% {        machine.name:=machinename;标识符未知
. h6 C1 g1 w, p  x% h2 c8 b        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
. _6 c" ]: Y% T+ h9 \        machine.exitctrl:=ref(leave);
) |0 `- p3 e4 n! h: h: Z* F       
        bufname:=sprint("BF",rows);
$ _- T8 L# r2 n) Z        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]);
$ g( N* D" l5 l) h7 N, x2 N* d6 q4 i7 L        buf.name:=bufname;
3 P, o; L& r. q) g6 P% M        buf.capacity:=5000;
        buf.proctime:=0;
' J' M3 S% e7 P7 G, b1 d* _- W        .materialflow.connector.connect(buf,machine);
4 c( {, p: A( [# h8 `       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, i+ f8 B: L1 J5 `! r$ Idy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
8 y& D" b7 G4 C; T, L( u, Jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
+ x* `0 A3 c9 w" t