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

zooey

is
: J8 t. I: J4 C9 I' D        mark:boolean;
+ |" @4 R7 ]. I        dx,dy,ct:real;
4 R3 W6 ^6 H& K. y- J# H- P    i,j,rows,lines:integer;
1 d* v& W4 e' o; o    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: L% T# c# R/ B, a& U" W                inspect messagebox("设施数目不对！请核查...,",50,13)
9 Y$ p" c7 N* j4 [' y1 O% P                when 16 then
; Y& P- z& z/ @# R                        print"yes";
6 k3 [( P2 z" F( K, s1 u                when 32 then
9 L$ X" J' X0 a$ i3 C                        print"no";
                else
$ X; D+ J; n( R% ]2 u5 D1 o) t                        print"cancel";
                end;
. `# f6 c* S8 S0 D/ `- a& Y8 m                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
) L% Y% n$ n6 O        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
; R0 g$ O3 ?" f/ f( _2 w        end;
) t3 e4 d0 i: k! x9 u        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
9 o& {" ^6 p6 s" b5 k4 B: |        end;
        next;
+ X* A! s- g) h       
        dx:=0;
! [1 K8 N9 [3 P7 ]% l        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --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]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
6 j! Y7 H9 K' ^" T# S9 M" g                        activityspace[2,rows]:=activityspace[1,rows];
7 z+ m; `% P6 H+ s$ `: \: y                        activityspace[1,rows]:=ct;
                        mark:=true;
4 r8 B' R; k7 i0 Q                        else*/
' l% h  o) h8 \% @2 ~5 [                        y_max:=y_max+dy;
                        dx:=0;
" O, U2 C) M* o                dy:=0;
' }% B/ y5 _/ V* [6 c* P8 w- R& U1 E                        --end;
                end;
9 R& O. s* {, {, e" r5 G                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;
7 J! r, ?9 T7 A$ ]! R4 H            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
& O9 q' c4 o7 @! E. p$ @7 u                /*if mark=true then
+ Y1 L- K6 q% x7 M8 N4 E- ~                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 ?$ @, B7 P( G1 T0 D3 e2 Z                        activityspace[1,rows]:=ct;
                        end;*/
        next;
5 l7 b$ R' s' b6 n- R9 ?- I        y_max:=y_max+dy;
# P" a5 c! [9 K3 X* L        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);
2 o! G6 E4 F+ M$ S7 q       
        rows:=0;
8 Z% P! s2 i5 \* ^% j        lines:=0;
1 X4 `1 c' w9 @8 X0 \0 u        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
" w& T/ U! H: D0 A/ g2 D                        if j=i then
. V6 r1 K; q5 p& f( Y1 C. j* ?# l                                d_from_to_chart[j,i]:=0;
# R6 z8 g9 s) L. H0 @                        else
                                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];
. }# z& I  P/ |! |$ a9 K2 c2 [7 W                                d_from_to_chart[j,i]:=abs(dx-dy);
3 {1 ?! F$ ~: ^4 ]" Q                        end;
                next;
        next;
       
; h( q" U  u- K& C        lines:=0;
1 x( V2 D/ R) D% A( R5 a: P6 E* d. g        partstable.delete;
1 n) s: r2 q0 c# t7 d4 \7 o3 Q       
$ M4 _. ?" s1 G. V  \4 g        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 C) `3 u/ _/ M6 x2 o% l                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
/ R9 d( Z( R: I! h1 \* A                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 o7 I4 T! R0 e6 Z3 f% Q                        partstable[3,lines]:=sprint("parts");
9 a2 b6 y9 t5 V/ {1 @                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) Y6 b# P! U4 H" K% c& G* z                end;
        next;
/ p  S9 s9 Y. K- O2 {7 V" @        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]);
$ C! s; {8 r0 a$ u        machine.name:=machinename;标识符未知
7 W8 Y, n9 a4 A$ ~& N0 j        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
3 F6 H5 ]4 x7 L$ `3 d5 J        machine.exitctrl:=ref(leave);
       
: K$ z5 L8 x5 z8 [+ M        bufname:=sprint("BF",rows);
. m9 w8 q0 T, N, p7 m  w        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]);
; r9 k) A) l6 b5 y( x" a        buf.name:=bufname;
        buf.capacity:=5000;
2 Z5 P( t1 y$ c6 L' x        buf.proctime:=0;
! N' N" W' t, i! A  S7 F        .materialflow.connector.connect(buf,machine);
- s+ e7 T8 `' y2 @+ U2 O       
        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;
9 M1 [8 U) G5 ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;