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

zooey

is
. x8 `8 P7 M8 Z6 m+ S$ s' X        mark:boolean;
9 t* N6 o& k8 a2 H6 z- ~        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
  q7 ]3 R7 f( @. Ado
+ o7 D" p9 m; L0 c5 B( j        current.eraselayer(1);
       
1 s. r; @* b  q  \2 U        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* ^/ E0 c6 M1 @3 Y" H; W# ~# {$ J                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
) s7 K7 g8 Y' x- B, ^1 l                when 32 then
                        print"no";
3 p/ X" m+ ~3 m  Z                else
' ?3 m7 H8 C: a# k; A: Q! v$ J+ m5 b                        print"cancel";
; x4 u9 K* `! T9 \                end;
                eventcontroller.stop;
9 ^# p# D) u+ K2 H# n; `        end;
1 `) [+ e/ A2 h! M# l       
        for i:=1 to number_of_machine loop
+ H. [/ m, f9 v& E        machinename:=sprint("M",i);
        if existsobject(machinename) then
. t* l+ W- D+ i                machine:=str_to_obj(machinename);
5 O" c7 a1 F% X# P9 u+ F                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
% r: c- C9 P8 h8 W" @6 r                buf:=str_to_obj(bufname);
' q" k( J, ]; r: h0 w5 D9 N                buf.deleteobject;
: Z% C% W) P! \" g0 a        end;
        next;
       
        dx:=0;
        dy:=0;
! _4 H* U$ `. g7 d+ T        for i:=1 to number_of_machine loop
- ~% K; I6 [( D0 A# b5 B                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, T. N; a. r6 W8 n' r; o                --mark:=false;
9 ]3 p8 }7 n) z! h                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ z9 u3 l3 W8 S4 i: y                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
9 B( Z: _$ i- @8 W/ \# s                        print activityspace[1,rows],",",activityspace[2,rows];
! x5 ]$ w7 J8 y3 K, t: C+ \                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# n* k8 e) u# a. G                        activityspace[1,rows]:=ct;
' k9 @' P! Z8 q4 H+ X                        mark:=true;
/ E1 g3 C$ O6 B4 q% k7 I                        else*/
& |7 |( B* L) M- c" _9 U                        y_max:=y_max+dy;
) \3 r4 c8 V- T/ j                        dx:=0;
/ m# H7 B9 p& x* ^& F8 l& A                dy:=0;
                        --end;
                end;
7 _  k5 z7 j0 X: i                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) W8 f, H2 Q; I( R3 I# E0 t                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
% L$ N. ~  b% i! x* Z0 C  V% B1 o# p            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
4 A) ?9 a8 w2 s* g+ S2 J. k& K5 C                dx:=dx+activityspace[1,rows];
- \3 ~0 e% z: V* @2 Z6 {8 q, ?                /*if mark=true then
! _; o* R6 m% Y4 e  y+ g* r& Z                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, ~8 b' ^, ^: |. J                        activityspace[1,rows]:=ct;
                        end;*/
        next;
. H9 R* R$ r7 s/ ]2 v0 `% G        y_max:=y_max+dy;
+ M. _% b, [9 _0 f6 F" H        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);
       
- M4 x% t0 X) ~5 t" K! W5 U7 J        rows:=0;
( a# j9 S" f$ T2 o6 g( w) S2 |1 D        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
2 L# J; `2 ~2 L& T  [                                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];
0 H. H' K. z( J. M! w/ i6 D! d! I" W                                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;
1 k! {' g( C+ ?, J/ P3 U6 `        next;
$ h1 t% }6 }# e2 b1 m. n       
3 Y) h! j! h4 L0 }- O. {2 o+ C        lines:=0;
        partstable.delete;
7 P: |  d! n8 d  B       
        for i:=1 to number_of_machine loop
6 B& E$ D. J3 m# U$ i& z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. _4 d  l+ S( |, @! Y2 {1 g0 D                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
# t* o0 I, h* i                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        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;
9 N0 _% h$ x$ T2 u  w1 i$ K4 Z9 X                end;
( c4 M, f" @% h        next;
        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;标识符未知
. K4 j$ d* N0 r& U/ \' D5 O        machine.proctime:=5;
) G7 y: x! |! Y9 |& n- x        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
8 i1 Y3 g! h1 v" t* f& ~" ~       
        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;
7 _8 }% o" t% h3 b0 Q        buf.capacity:=5000;
* T- g* N7 x3 U, x5 d        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
; Q) n/ ~* D( F' x( d4 G       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 M& G" g9 N! s/ Vdy:=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;
1 m9 Z- ]: p/ n& }