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

zooey

is
1 y) @( j. d2 j# {" n) b9 L6 q5 t! F# f        mark:boolean;
# g8 w! r' @8 X7 X; j& ]3 p: n1 p        dx,dy,ct:real;
5 B" ~( R1 C& T) N& @    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
* a8 q7 k* P1 O+ x- c8 L+ vdo
8 z7 D/ u; {' h: {. t        current.eraselayer(1);
8 l! e- D# x' a' b+ t       
: R+ F6 ?& o( W        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: i: r9 d3 l% p% Z" I' ^/ W4 \8 S                inspect messagebox("设施数目不对！请核查...,",50,13)
! S- r( v3 k# H                when 16 then
6 o7 s2 ?: |6 G) q                        print"yes";
                when 32 then
, S0 T4 \' ?8 d8 ^                        print"no";
7 h$ k$ N2 m( V) u7 y                else
                        print"cancel";
( i5 U4 ^( i* ^9 a2 J                end;
                eventcontroller.stop;
        end;
       
6 W: j+ s! ^1 ^* i5 [        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
# I! ~% l* z4 b6 ^4 Y5 R        if existsobject(machinename) then
+ s4 I9 j3 Z: U$ i0 s                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
2 A+ g" t1 u: R6 j        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. y! @* B) v8 a5 A0 X                buf.deleteobject;
        end;
        next;
       
, y- H# x& p' j1 ~: s        dx:=0;
        dy:=0;
: l0 b$ p* z& R; C; _7 O9 I        for i:=1 to number_of_machine loop
/ c7 H# s+ \. A: C3 y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) g1 @0 S. y- n" s& C3 b                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( O) I# V% D) Q" G) o% z' J( X# G                then
                        /*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;
: m8 }# {8 S, D  c9 j  J                        mark:=true;
                        else*/
& x+ }7 t! y! b  i# S  W                        y_max:=y_max+dy;
5 U7 m' T5 B9 G1 _                        dx:=0;
2 O. ]7 P& Y* |+ x                dy:=0;
9 n. n4 S  E/ z5 V6 n/ b- K                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
) s) ~) |1 |( O1 j5 y            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
9 L2 L8 v2 a' f; |) N) n4 b                dx:=dx+activityspace[1,rows];
: v% R, e  W+ X                /*if mark=true then
9 J  p" g6 e2 x+ d4 K3 k' l                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 A# A$ }! J0 ~1 D                        end;*/
) e! o/ {3 J& _5 y        next;
  Y* U, I) B9 @, q! L" V* X" v  H        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);
       
        rows:=0;
! e2 A8 O/ S9 n8 R, K4 k' O% E        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
: ?( `4 |0 ~( f; d4 G, J) Y. `% P                                d_from_to_chart[j,i]:=0;
                        else
7 Q+ |9 U( z" n                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ b% j* f& p+ X& P0 [- A                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
7 `7 l! w' n1 F$ H2 @                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
) V4 e3 x- q9 H5 @9 E1 {( U, |        next;
# f1 H# a' o: K7 _! K5 k       
        lines:=0;
3 M# @, b. i6 K; r$ |; w        partstable.delete;
       
8 O( _; l# A9 F" s; o3 O        for i:=1 to number_of_machine loop
& Y) R) Q$ L  O$ J' o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 i( t( b5 M6 C, p4 @  t- D% P                machinesequence[2,i]:=rows;
                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
: [4 U) Y! X/ _; X; p" w                end;
" Y2 S; q" Q4 Z5 x5 \        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;标识符未知
, V, h9 Q7 w& L$ M: z4 r        machine.proctime:=5;
        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]);
2 D5 p- j$ K  n" i1 L" r% x        buf.name:=bufname;
8 I9 p5 T3 k7 O0 ~( M- Z6 A        buf.capacity:=5000;
        buf.proctime:=0;
3 [0 D. F. b. |        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* N) L( g7 T3 A' d4 `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);
6 W5 |8 Q1 ^  k- j' g& ~0 wnext;
end;
& ^( n  z5 @* l; X