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

zooey

is
5 t3 c9 j- w' U8 c1 i' p& R2 @        mark:boolean;
        dx,dy,ct:real;
) A2 i& X  T$ _& q- k4 p' D    i,j,rows,lines:integer;
    machinename,bufname:string;
0 z1 s9 c0 `( T9 O8 g4 R    machine,buf:object;
) }3 t( x8 D& r8 S" D  {# r0 ?# Y& Tdo
: s7 `3 ]7 U% _9 S, k7 U        current.eraselayer(1);
       
8 q; R. z" C* c. P5 H) ~        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
: s( G2 v# k& L+ J                        print"yes";
  \& y' [; O2 q) w( Y" v& F                when 32 then
                        print"no";
                else
6 \3 I7 G8 Z; F                        print"cancel";
                end;
                eventcontroller.stop;
        end;
- ~  a" Q" ]# u+ K, n! |       
4 e7 f0 ?4 j) H( w3 y1 G        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
: |5 e! C, R: q& u4 l1 a$ u                machine.deleteobject;
        end;
) Z# x7 P# o; Y" l        bufname:=sprint("BF",i);
8 l! w- ?- _+ p6 ^3 N        if existsobject(bufname) then
% f" o/ T7 T  j7 j1 K. Z8 @4 j                buf:=str_to_obj(bufname);
1 N- ^& U; `% l0 o. I. q4 n                buf.deleteobject;
        end;
4 n6 k* k8 @* O1 W% A        next;
       
        dx:=0;
% R$ ^1 j; B% z        dy:=0;
+ u# v2 W  U5 R6 j0 Y# ^$ w        for i:=1 to number_of_machine loop
7 G2 q) v& K' D& u) g# _; b( z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
4 Z2 m, i. r: I0 m4 a+ b0 q                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
8 B/ G; w* L3 _& t1 K9 e. m/ g! l                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
7 b0 I4 R' M8 K  e5 ?. x                        --end;
                end;
0 i5 P7 \, p; C4 `5 Z- v                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 v% l% H( P3 ?/ i  ^: Y3 S                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
3 ?/ v. k1 b( R            if activityspace[2,rows]>dy then
" i; \" O7 ~3 Z8 v* K- z4 H3 D2 j                        dy:=activityspace[2,rows];
! A: N+ [3 h  L: n3 z( b# G; Y& y                end;
                dx:=dx+activityspace[1,rows];
- p1 y3 T; ], C" K1 E( i3 M$ A( [                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" c& Y+ u2 ]' l8 Y% k                        activityspace[1,rows]:=ct;
                        end;*/
. d4 n' |) l: B2 P        next;
        y_max:=y_max+dy;
& C; C7 T) F/ o4 Z3 G        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);
( Z. M9 t8 I, r) ?, K. U        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);
# p( l: e) Y$ D! C2 Y% K' B       
5 X" i: S5 q- B        rows:=0;
        lines:=0;
6 p0 L7 L4 S* _5 u5 m  J$ n        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, [5 i1 o, @: c" g) I& @5 `                        if j=i then
                                d_from_to_chart[j,i]:=0;
) a9 D9 R: G4 U( ?1 l                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% ?1 j! k( O) r) G" x) j0 ~3 f% z                                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;
        next;
       
; I& m, Z1 x2 e  g% O/ p        lines:=0;
        partstable.delete;
       
. j# o5 Q5 h1 Y/ ?; S        for i:=1 to number_of_machine loop
$ H5 T$ n8 |) r3 @8 @/ _5 ^6 E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
6 a2 X( b& Z1 Y. [& i                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
% m7 z, `" q' ?1 C$ _                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
- P" D9 U2 W* [; E" }6 i, y' D                        partstable[3,lines]:=sprint("parts");
5 B% \" j1 z$ G2 Z4 u4 y                        partstable[5,lines]:=rows;
8 d, m1 B6 W+ J2 S' T% N- a4 F* F                        partstable[6,lines]:=j;
3 v, S# Y  x- @                end;
6 f# ~* w3 F$ H, G) X0 B# _        next;
        machinename:=sprint("M",rows);
) c7 ]1 ~$ Z9 G* 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;标识符未知
0 L# |% E8 i- L0 q3 \2 P        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
) i! ?2 b1 p+ s3 x: r, C3 z+ N) J        machine.exitctrl:=ref(leave);
       
+ y3 J4 P& H, l8 R4 B        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]);
  G) P. ]$ W' o  A        buf.name:=bufname;
9 {* S. E# y9 H+ i: h/ t3 b8 ^        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
9 k' V3 w8 B' k% M3 s+ H        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
1 A( ~2 u' q7 J; fdy:=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);
9 `0 W: Q3 Q4 g( }4 ?0 _next;
& ]' e& V3 n, ?end;
0 A" p9 o8 @5 e- v3 p/ g3 \7 K, \