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

zooey

is
        mark:boolean;
1 H  i4 f' Y; H3 u  h/ v        dx,dy,ct:real;
4 d" f, R9 G+ d* s  p7 j# C    i,j,rows,lines:integer;
& ~: Z9 e' X2 }- N" B    machinename,bufname:string;
# u- S$ g2 A' d5 S! J  P    machine,buf:object;
9 S7 M* q6 W, m9 R9 {do
        current.eraselayer(1);
* f$ C+ k2 e( t8 `; o: l, p7 l/ L" g       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) X' \+ L+ C7 B' k9 ?. u' G4 ]' a                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
0 R# T8 B; Z1 r2 I9 L                        print"yes";
6 S! Q+ b% l; f1 v                when 32 then
  {3 J. L, |8 o( c. L                        print"no";
1 [( G# }' r: N) X4 [6 \9 j                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
4 B- V( ?2 }) f5 w* d) ^       
        for i:=1 to number_of_machine loop
/ C& p% q( ~- i: B1 v8 Q# W1 j        machinename:=sprint("M",i);
        if existsobject(machinename) then
/ L) z+ h; i8 J/ S8 G; O. G" Z2 b                machine:=str_to_obj(machinename);
8 V& B! Q' u8 b/ r  t                machine.deleteobject;
1 |: k8 |8 r1 j" E8 _6 N# B/ \        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
+ a- p# _- |2 S, o( g2 l        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# M; Q! j0 m) m: q: j/ D, h                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ a* v6 {: O2 A' b! p                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
1 h1 a$ ^$ Z/ K                        ct:=activityspace[2,rows];
* U+ h6 ~; Y# G( ~. V1 O9 i                        activityspace[2,rows]:=activityspace[1,rows];
/ j& ~( ]# Y: ?                        activityspace[1,rows]:=ct;
: J) j6 c% y. Y3 \$ Z0 k                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
+ I/ v. c/ O& Z$ N- n, d% a) W* F                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 j. o, H& h" y1 I  E                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;
                dx:=dx+activityspace[1,rows];
- h7 F4 O$ w$ K( R9 ?- O! E                /*if mark=true then
% B0 M+ D! \3 v1 U                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! `- ?  p+ t, H. k9 g/ ~5 k) }) Q; j                        activityspace[1,rows]:=ct;
* R3 F+ T1 t/ Y. l* V4 S                        end;*/
        next;
        y_max:=y_max+dy;
  q8 v3 Y$ w! x1 I* }        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);
0 O$ T4 O( v2 V! O, K& V0 D4 t1 |       
; p/ j2 k  `% m4 o7 {9 s4 k0 U4 K        rows:=0;
        lines:=0;
+ C/ \& P$ t9 }        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
+ h; s$ q, A" [/ p; t                        if j=i then
                                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];
; v' T6 Q% l( t# E7 ^3 ]2 S/ N% L                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
/ t/ l. I7 s8 f3 M" o                                d_from_to_chart[j,i]:=abs(dx-dy);
8 l: p1 O# }( I, y7 h) G9 z                        end;
                next;
        next;
+ l, v) R& p, [3 U       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
2 e9 q4 F: s" l0 n- U                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 Y5 D" T$ |, ~                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
) U1 T- q. [: I2 d& b2 }. p                        partstable[5,lines]:=rows;
$ ]+ j- L! L: \* n# |                        partstable[6,lines]:=j;
1 ?4 J: z3 Q9 y% b5 c" D, ^' M& K" H                end;
        next;
        machinename:=sprint("M",rows);
5 z( I7 r8 }7 m$ o/ j        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]);
' W6 D! a9 ^' F  X        machine.name:=machinename;标识符未知
8 [6 P  S2 E/ I; b5 Y: X6 ~        machine.proctime:=5;
# G1 J- g" {6 S! \& X( z6 t9 ]: I        machine.label:=activityspace[0,rows];
6 G9 y4 \$ G2 X" p7 g8 S$ z        machine.exitctrl:=ref(leave);
2 I6 l  n( Q' S" C+ C$ V       
7 U5 R( K4 P9 z7 R        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]);
& v! i; g9 }6 V% A        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
2 [+ P9 ]& B, \3 `       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! |, C8 X! u7 a- I( o/ |dy:=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);
) ^* A4 b9 M5 x8 fnext;
end;
/ r9 n- X% P5 u5 g* Z8 i