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

zooey

is
9 z; L! E9 T+ O( f4 v        mark:boolean;
3 ^2 C+ D7 m& ~1 U. H1 j3 b; w        dx,dy,ct:real;
, G2 B+ w0 A, `# T% [4 g% T3 Q    i,j,rows,lines:integer;
3 n& R) ?6 `* z: @  ?: ~  t* [9 V/ @    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
( A2 e8 }& G- ?* `+ S! e6 ]       
& k& B2 Z8 w% c% T, z1 u6 [) I        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
" s4 n2 c, m% a) J2 H/ b                when 16 then
; e. B& f3 e2 ~2 d                        print"yes";
5 }& R9 W2 d0 l                when 32 then
0 P+ b; w5 ]; Q                        print"no";
                else
2 {! w( L( X' C, s; i! S6 U9 {8 ~5 X                        print"cancel";
                end;
                eventcontroller.stop;
& A  {" c8 O7 _  y        end;
       
        for i:=1 to number_of_machine loop
( r& t9 L( ?' @2 w9 H3 o' j        machinename:=sprint("M",i);
/ {# Y$ R2 I( z6 M! r) S        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
' P% s) p3 p) `& C  \- g                machine.deleteobject;
7 f3 V" U1 P7 f7 A% I0 q        end;
0 ~4 {5 W% U6 @8 r& s        bufname:=sprint("BF",i);
4 v2 s. T5 J3 R. a1 n" b' J( d: j        if existsobject(bufname) then
) z/ o" L8 _) o                buf:=str_to_obj(bufname);
/ ~2 n* |7 k3 g" N0 i                buf.deleteobject;
        end;
# J1 }) }# O# N* e- G1 ~* Q( t        next;
       
        dx:=0;
5 ~. m" q# N3 o        dy:=0;
  K4 s- v- b/ t        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 r, Q" Q) y( S. R3 W- Y                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 }# Q* y8 R. F: M( s$ s" K                then
9 p" I2 a5 ?: i- n4 A' n9 d                        /*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];
8 g# ^% _! ~% t- V- P                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 `( I- p9 M( K6 j                        mark:=true;
. Y  O& Y2 `4 S" K6 }                        else*/
" f6 l5 o3 E, s6 u9 ?8 ?                        y_max:=y_max+dy;
' J0 a1 U+ o. i/ i# [. g                        dx:=0;
) x( Q$ C. p" Y3 G9 [8 T                dy:=0;
                        --end;
                end;
7 z8 c1 G7 D& o7 d: Q* ~4 c1 X$ E                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;
3 T0 B6 h& Q; t: m# _2 p! W            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
/ n* ^  B8 N- ~- x1 H: Q" v" U                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
  [" u8 T/ u' ^! l8 f4 P                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
+ ~. k6 l! z# N7 K' m5 K        next;
* x, [0 ~! {% s4 `        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);
1 s0 e4 B0 T% @; H! f2 n       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
  ?7 e, `$ B. @  v( t4 I. H                                d_from_to_chart[j,i]:=0;
                        else
! t  K* k. n" ~8 B8 {% K                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
        lines:=0;
) b3 c& v* i; i        partstable.delete;
0 }9 C8 d* a. {# e# F       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
( L6 Y" ^/ X5 L5 k                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' c+ L6 U: q& W) `" ~4 V                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& U% @& K5 b% X- i0 C3 Z0 D# W                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 ~) @6 C3 ~4 n. n8 Y+ {$ S                end;
        next;
        machinename:=sprint("M",rows);
; }  }' @1 X: Z5 ^% \% d1 F+ s        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 Z: G: P; _5 f3 x2 r        machine.label:=activityspace[0,rows];
* Q- M5 ]' i8 o( g. ]# h        machine.exitctrl:=ref(leave);
" x9 ~/ A0 p1 U% n. e6 ^0 I8 b       
        bufname:=sprint("BF",rows);
8 ]$ u. y4 j; ?' n9 r        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]);
* C/ {, x$ g- R6 p- B* H        buf.name:=bufname;
        buf.capacity:=5000;
( d# B1 K& ?3 W- K        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
3 o9 F+ w+ _& \: r% J       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;