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

zooey

is
% l/ {3 T2 h6 t0 i2 T+ I8 b0 \! ^        mark:boolean;
        dx,dy,ct:real;
; w  c" S! l% H9 v$ ~( A    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
7 P( ^: E0 I5 |, v5 Udo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
- m6 U* `/ {8 }/ I                inspect messagebox("设施数目不对！请核查...,",50,13)
, k  t/ V' Y2 x6 I# i. s                when 16 then
. W4 u% `% T, F                        print"yes";
% E3 P8 e( }" K+ f' Z                when 32 then
/ R8 Z5 `( ?  i9 P& f                        print"no";
                else
                        print"cancel";
                end;
$ ?1 W6 l+ G% ?" S" A                eventcontroller.stop;
        end;
( F+ b8 D" ?. a       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
  ]9 W+ O* w& y3 x% N8 `: ?        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
& h; {3 }9 {' v        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
3 M) T* }7 m0 e( N8 u/ p' {        next;
& ?7 c6 a' V0 ?3 m; S- \! i# a       
8 \% ]4 F; U; f# J' b        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
. A4 Y) _) x' f; |5 Z+ [$ N3 _                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' k1 A3 L- A- q/ h9 ?8 c" o                        and activityspace[1,rows]<(1.05*y_max) then
/ N$ D+ l, P4 J6 \# w8 y                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
" `$ {/ s- p, |; W+ U0 Q                        y_max:=y_max+dy;
                        dx:=0;
' j, F9 a! Y0 }: l                dy:=0;
* H# L' N, c# U; Z6 L                        --end;
                end;
9 j0 w! r( U* s) f/ v5 D) O                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;
' v* L' D1 C: }6 @) |6 }+ U1 L! N            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
$ r* x% m) Y6 H4 p( O                end;
: A. }) t* t$ ~                dx:=dx+activityspace[1,rows];
                /*if mark=true then
. M/ w) J- [/ y: t( L0 S                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 L! w% ^; j5 T1 t" H; l                        activityspace[1,rows]:=ct;
                        end;*/
/ _  G' C* i. J( |3 I! e        next;
        y_max:=y_max+dy;
8 g. n7 o  H, ^1 m! {        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);
% S" z0 B3 G  w2 X        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);
       
# h9 H" d/ Y# L        rows:=0;
; t$ W1 p7 d4 a        lines:=0;
& y+ {5 G- b$ r3 S, Z2 Z        for i:=1 to number_of_machine loop
' k& B8 E! x6 I: a" Z+ M                for j:=1 to number_of_machine loop
5 g! _6 I- c9 Z* H: i& _2 Q# ^' @                        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];
7 N4 i# r1 v/ T: u6 Y! }* J0 u7 f- u7 |                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
/ i9 C4 T/ z* x. b3 o                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
& L' r  }  |, t9 S0 W; |                next;
: O9 T$ U% k' l7 U' f        next;
: d" t4 e4 L8 g( V       
        lines:=0;
1 Y$ @" h2 A1 f! Z$ W& a" E. r( a        partstable.delete;
7 ^1 e. P- G6 K7 G5 }6 O       
, n) Y* g% L) J/ W7 q. x        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% o1 U6 U; I; Y( r                for j:=1 to number_of_machine loop
% `8 \  _( g% V% r- m' y                        if w_from_to_chart[j,rows]>0 then
1 G1 S+ r) @4 n+ R* A1 S                        lines:=lines+1;
8 `5 N, T( d5 G" o4 K! H( [) A                        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;
                end;
        next;
        machinename:=sprint("M",rows);
* l5 j; z5 N' 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;标识符未知
* z: y  m& U) q        machine.proctime:=5;
1 \% k' C6 }1 d& N7 p        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 D, Q2 a- K5 ~( m1 f% K       
( H8 H3 O$ t: B( s0 z        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]);
% }' I9 m* B! b/ I9 e& O        buf.name:=bufname;
5 e6 }% x5 X7 a/ G, f2 d& o        buf.capacity:=5000;
" v! {) I3 H; l0 [1 p* f        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
- g: n2 |7 T  [# S! x4 X' z       
, w' n4 o' y% r' H+ R" C        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: l& \: n* h& xdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
( Z! d* l# }1 J% g6 lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
# |8 V9 @' U; o! e- Z) R3 d6 p7 \end;
: ]; a( f# O0 g0 y% A