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

zooey

is
2 e) I" C6 `' p0 m! [, y        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
( ]0 d2 J; c7 U( N    machine,buf:object;
7 K5 }  I* W. D4 Mdo
/ U5 o0 a7 u) j0 W% T: c$ D6 t        current.eraselayer(1);
5 t0 K1 O% {9 D( E" N$ ^1 E% s       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 v7 U* C# ~! j  ^0 T: O& e" u                inspect messagebox("设施数目不对！请核查...,",50,13)
5 M1 {( t; g* Q1 k) S9 s7 V$ R                when 16 then
+ [5 N& b- r! g) u                        print"yes";
/ T" N+ B5 t0 V6 ?* l" _. ^+ Y0 m                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
5 J, u& ?8 K$ u6 Z8 _; M2 _, S                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
- @' w( ^9 P( V6 m+ {) K& X                machine.deleteobject;
4 m0 v- Q1 T; C4 v' ]' D        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
. a; f( F+ u, U* ~  W0 N                buf:=str_to_obj(bufname);
% x* i5 L+ u% m* H; j* m                buf.deleteobject;
) o# k: w! f( Y8 o3 {# J7 y        end;
        next;
       
' \0 t9 ^$ Y. b3 L% f/ H        dx:=0;
        dy:=0;
: G/ c& R6 z3 u/ j6 i( a: J! r  m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
, }3 z4 p& X. L7 I! n) z% w                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% `' ]1 i8 o: d7 v# a                then
. F( d* D- Y$ F" A                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
) M3 P2 |' b- U9 K2 d6 F                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ ?$ l4 D; {6 m5 E4 ]                        activityspace[1,rows]:=ct;
5 G+ f% }  @: l% M5 Z                        mark:=true;
  @% L* g4 ?0 ]8 ~) ]8 g% O                        else*/
                        y_max:=y_max+dy;
# p6 Z0 H0 d9 O/ X8 ?                        dx:=0;
                dy:=0;
2 C# f4 @" D- q7 T                        --end;
4 X, P# P3 d0 q+ M                end;
* G: I& l: w6 L# ~0 |  v' ^) k                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( P4 I2 t& K) m4 \                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: D; E! w7 T$ y" |            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
- ?7 M1 ^1 b8 K6 R. S5 ]' L                end;
$ ~) Y9 b+ r* f& v- d8 s                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
( i' t4 R$ K# q5 C- c                        activityspace[2,rows]:=activityspace[1,rows];
; r) B& O2 P* K; I: [9 Q( O                        activityspace[1,rows]:=ct;
. Q0 i( Q  Y3 O9 j; |) C' a  b8 H; [                        end;*/
7 D7 o5 \9 e; l3 X1 Q        next;
0 j. k9 }  z& d$ ]3 f3 j9 m        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);
: p' @% Q; W: h        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 ~' {, E3 O3 ?       
+ t# p' H+ o' N9 R' o% W+ ]        rows:=0;
' j0 e8 v2 b5 M5 {: ]# h        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
; A$ n8 Y4 D* I5 P2 Q; j" |9 o5 Y" K                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 z+ L: p: A9 y3 v                                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;
       
! ]: i7 X1 U& J' E1 T; B% x5 c6 \        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
6 `" @( d# w/ [+ a/ n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ S2 A- N7 G& w' `  ?0 U                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
* j7 j. V" A- c( c                        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");
. H; ]8 J  G9 W9 w                        partstable[5,lines]:=rows;
) g( V  W: f. S9 M  Z- D% q( \                        partstable[6,lines]:=j;
                end;
        next;
        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;标识符未知
        machine.proctime:=5;
' }6 w& @: y4 y+ p& y, \        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 _8 X3 w+ f/ n( C6 N% X       
        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]);
- r* W1 J, C+ N+ N$ d        buf.name:=bufname;
        buf.capacity:=5000;
. E7 {2 o* C( R2 @. |+ `        buf.proctime:=0;
2 w( Z6 h% A+ P! {& M( j) X        .materialflow.connector.connect(buf,machine);
0 I- n# b2 u& j$ T7 c$ m0 J       
) a/ S2 W7 Y- Q        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;
& K& R% G. N8 o# u" a3 G8 [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
2 v$ k+ \# \; A+ ]. H