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

zooey

is
, k5 p: b0 \$ z6 b/ |+ j        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
! }4 T5 v3 I2 U5 d% ~/ y$ i( u    machinename,bufname:string;
    machine,buf:object;
9 A5 c5 g; Z+ N; ~: s8 Edo
        current.eraselayer(1);
& S5 M3 |8 F+ |       
        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
/ y- M, Y, `' `6 V/ {" X$ |                        print"yes";
                when 32 then
* d5 F* a1 {6 s$ r. ~                        print"no";
  G1 r3 z; n2 h# C/ y                else
                        print"cancel";
                end;
1 ^- L% o4 `, C; ~                eventcontroller.stop;
4 V9 ]6 o! f  O/ ]        end;
       
        for i:=1 to number_of_machine loop
+ ~- n* y! ~8 i* J3 T6 B3 G        machinename:=sprint("M",i);
( |1 M8 O2 M# r: l$ o& Z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
/ o, [+ Q& ~" D7 E! d: B/ H                machine.deleteobject;
        end;
$ a4 }. ~0 G9 T8 {- E1 t# V        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
# T9 L  ^4 w4 Q4 A                buf.deleteobject;
" K+ f; @, k2 E8 w* l  b3 u+ ]9 g        end;
$ S6 u6 z7 c5 Q        next;
  n, _& y, A3 V       
2 z6 l, ?0 w+ e7 g9 p        dx:=0;
* E7 o/ s7 n3 F* k        dy:=0;
8 g, U$ R7 ?( J* \4 `) r4 k: ]9 \        for i:=1 to number_of_machine loop
# b; F6 T3 {3 L. D% I' ]' {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 g& X7 [  {) z  k                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ J# r' @" d  x' ^                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
4 ^! h# W+ d' s# q2 i, R2 Q                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
. p( l1 A: ]% S5 H9 n7 F4 s                        activityspace[2,rows]:=activityspace[1,rows];
7 R( L4 i. `" C& D                        activityspace[1,rows]:=ct;
: |3 i- @7 w5 Y6 C                        mark:=true;
                        else*/
& G3 {: r8 O6 L, A- {                        y_max:=y_max+dy;
. s' A# d  M' P2 \/ c2 e! L' c                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% V" ^7 m& F5 G3 p( s                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& k, Y8 S! b/ ?1 x8 b            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
' D% [3 q0 O4 o' G                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
- [: b5 Y4 a3 {                        activityspace[2,rows]:=activityspace[1,rows];
1 v) r8 m, X+ a" m+ g$ h7 \! ^7 i# j                        activityspace[1,rows]:=ct;
                        end;*/
+ r; K, @$ q, u+ l  z        next;
( A+ u" K# Z1 y8 }) Y        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);
9 N8 x+ j% r! C# i, N9 e* d' y        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);
' L: F% t+ o5 N: A- M       
3 A1 U1 r& i, E- J0 y' \        rows:=0;
: S' ~5 n) r5 ^$ ?; K. O$ t        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
4 t/ S' e( t1 U0 t                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# t  N# n8 M& O  z0 e! J) n                                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);
, R& ]& r8 c  l/ A  g8 k& p                        end;
7 g, _8 g% Q" j5 o9 m5 `5 S                next;
        next;
9 t- J+ N0 I1 w9 d       
6 _7 D' p  E2 O8 k0 ?# w+ k# p        lines:=0;
) H& s/ [) K2 Y7 K; {        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' u6 L/ ^+ D' h                machinesequence[2,i]:=rows;
4 _# v$ F/ t# L                for j:=1 to number_of_machine loop
- ?- A! w3 V7 \7 W3 ]) E5 O                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 S+ m9 |1 i) h6 @                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
! W9 e; k, Q; z! C+ X& X! A        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;
3 Q; L4 f# p7 i- g: e3 D! x        machine.label:=activityspace[0,rows];
$ V8 ?+ L+ P5 O" B4 j; S& ]        machine.exitctrl:=ref(leave);
       
0 _: V* o4 y3 `/ g        bufname:=sprint("BF",rows);
# F  z& M; Y  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]);
) P" r  J6 M7 R8 ?2 c% `        buf.name:=bufname;
1 D4 {1 Q$ ^4 m* y* z. D  x" o        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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);
5 y  `0 b0 }/ T$ u5 ynext;
end;