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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
, @$ T; k3 k4 W' v% g/ J$ N    i,j,rows,lines:integer;
- Z# l: S' J* T2 n  v    machinename,bufname:string;
    machine,buf:object;
do
- s. e% i# P0 O/ O4 ~8 o4 U: \        current.eraselayer(1);
) z/ f; F6 j* `       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
. x. g5 p. k+ j' v) n                when 16 then
                        print"yes";
' ^4 d3 ~; ~" D- R) O- m                when 32 then
                        print"no";
: J1 G; C2 D. q. P                else
                        print"cancel";
                end;
                eventcontroller.stop;
, r! a; {) }: h: {( k* L        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
; \3 f1 J9 ]. Q$ f$ V        if existsobject(machinename) then
# t2 q9 z+ m; z* A& R- Y5 w                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
4 o4 R2 L4 W5 P                buf.deleteobject;
0 ]6 \& N( [5 n- M# W+ D        end;
0 p7 L! e) L3 F, {' l        next;
       
! C2 h9 l$ q8 M6 k, m( A9 n: \        dx:=0;
6 D! _7 ]1 m# c        dy:=0;
, Z! b; k3 J5 @        for i:=1 to number_of_machine loop
. F& o+ D" i: M2 |' b' {; r/ W9 j7 z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 o+ l; S% H: I                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
; b, E8 x( g8 I' Z                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* C8 S. _% U0 C- ]. J$ n                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
1 B) B1 R6 a5 H, I0 n+ A                        activityspace[2,rows]:=activityspace[1,rows];
: }/ f( P; u% y  _3 V* ^                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
9 u! n" M- T4 s1 d: y5 H) F8 x; U                        dx:=0;
9 o" N* C- }9 x4 @8 |0 d+ k                dy:=0;
                        --end;
                end;
- t$ `& r" ^" d2 F% g1 N; x                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' d& b/ M8 b4 r                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 o8 R+ {& G2 \9 L8 K5 l7 h8 B            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
+ i, M3 `1 }/ _. H* Z( ?) b                end;
: w" R9 C  |- t! Q' A' f. t2 B' m( A                dx:=dx+activityspace[1,rows];
2 ]4 a4 e; v) V& f' @$ X* `1 t                /*if mark=true then
5 q$ z, a3 j: U$ P# r                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 n1 v+ R/ b. e0 h) U' G; X                        end;*/
        next;
        y_max:=y_max+dy;
$ E4 g3 L7 l4 p9 W        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);
0 W* S( ~5 u% V2 A4 `0 H2 ?7 {        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);
       
9 n1 @5 M3 E2 k        rows:=0;
: U5 s7 ~  S5 g( C* S; d        lines:=0;
        for i:=1 to number_of_machine loop
( p1 e* e3 u- J9 i  z! D                for j:=1 to number_of_machine loop
) D9 E0 x+ ~' ?& `$ J                        if j=i then
9 g! Q  n. P0 p" W8 F                                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];
( e$ \: M: p; E0 J2 D                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
0 Q% D6 ?* _) `: P                                d_from_to_chart[j,i]:=abs(dx-dy);
  E9 K9 }8 ]! _  g$ |                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
       
& ~5 a! Z2 ]8 S/ z        for i:=1 to number_of_machine loop
7 z) r" v7 T2 `9 _4 ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
  w8 a8 T8 f4 S9 M( z% |                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
( q# ~; l( l0 J$ d& O" D                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 C& p# R: S$ P                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! _; {7 d; u" a; K                        partstable[5,lines]:=rows;
1 R6 J/ p1 H' D- c* F6 v) L6 i                        partstable[6,lines]:=j;
                end;
8 ^. I+ Z5 b; R5 T; _: W        next;
7 ]1 G2 c3 S8 A/ p. w5 P& L        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;
        machine.label:=activityspace[0,rows];
* d3 R8 w7 K/ u        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]);
        buf.name:=bufname;
" }$ a. Y3 Q* j& }5 I        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
3 o1 H6 t0 n+ [9 _2 Q       
        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;
) `$ P6 I  w5 M5 k& wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* V* l$ A' y5 n5 g/ T) Rnext;
end;
8 Z4 |& K5 a3 E0 a! n0 ^3 k