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

zooey

is
$ X$ m0 D, h3 p9 G        mark:boolean;
        dx,dy,ct:real;
, Q% p" j! G: T6 L    i,j,rows,lines:integer;
! m% g6 ]* t# P/ L; R0 d! B5 c    machinename,bufname:string;
    machine,buf:object;
+ }" ~/ C: q4 f# ^, vdo
( Q( T2 |( `- `) X* c% g! B0 i        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) d' _5 X8 j/ d2 J                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
$ a+ ^* |+ B/ H% T# D                when 32 then
( x, E8 J4 n% _( |0 i                        print"no";
                else
- ~8 [! z" R) q0 y" Y                        print"cancel";
! L+ F5 H6 w* L, m% H1 H  a                end;
7 G( j* D2 ?, _4 Y                eventcontroller.stop;
% _4 e% T' ?* {6 |' h& R        end;
       
( M# ]; b4 o. l0 b4 Z        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
" m5 h& h8 `1 f2 I# Q& a: ^$ E        if existsobject(machinename) then
% i7 t* O! c/ c2 q. `6 v                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
2 [8 Z6 n6 n2 [5 v6 w        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  [+ h" w5 G* a. \! X' K                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
; S* X( I# h0 |8 M        next;
1 u$ Z% m- k+ B! M" e2 E       
        dx:=0;
        dy:=0;
2 T. F! M1 `9 _; E        for i:=1 to number_of_machine loop
7 Z+ L0 p) O6 Z1 `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 U. M2 X' q/ {  V8 y                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; ?4 z9 ~& m1 I4 \" J5 r                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
4 K1 N1 I8 V& \2 g0 A                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& m8 q. o- f6 U8 a+ k* n9 ^                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
" N) h" v5 |1 ]# S6 r7 Y                        else*/
                        y_max:=y_max+dy;
0 t5 h; n8 k; h2 T4 q) b0 V                        dx:=0;
                dy:=0;
                        --end;
* c0 V4 {2 m2 B2 c6 l. L                end;
5 Q4 i! D8 D9 c1 {: U                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;
            if activityspace[2,rows]>dy then
3 A  V" U0 U( l5 E                        dy:=activityspace[2,rows];
7 ?( ?, A; w- `% X# i8 M# @                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ H  f  k- K3 e# x' C0 @                ct:=activityspace[2,rows];
7 x5 j  s/ r  t, R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 g2 u9 \  T! f; I7 Q                        end;*/
        next;
6 X5 z5 U' \, k* v- ?        y_max:=y_max+dy;
/ t3 O/ ~/ f+ T: y- [        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);
8 }) i; v3 E) ^$ n, |2 r       
' t5 o8 \  h' Q0 B7 w" d0 j* {# ^        rows:=0;
& K6 j' W, }3 y        lines:=0;
. |, u2 W9 @' r: J. \        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
* H! |1 F( U) Q, c' o; {                        if j=i then
/ U9 L2 g& ~9 ?4 q* t  k; d+ e! p. R                                d_from_to_chart[j,i]:=0;
6 A& k* O0 P* \8 x; @1 d" \                        else
* Q: O: F2 I7 f! _" D0 G9 x. {                                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];
) U! y4 I( L. W6 W0 y                                d_from_to_chart[j,i]:=abs(dx-dy);
1 j* S; u" k9 d! G% n  I                        end;
7 V2 y( p$ O  G5 Q( s                next;
* T$ j7 G; j5 d9 X% e" c        next;
       
4 ]- f4 ~0 y6 Z! z& T& v, E        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
& T, d3 p" P% A. q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% @/ H- J5 C- J; m$ A# `. ?" S                machinesequence[2,i]:=rows;
4 E3 n: E9 ^& ]# T1 i: f                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
* i" e( q) c4 s( s: g                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
- x9 I: m* u% p5 ~: Z/ f. z                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
" ^$ f0 Z' x3 |/ M4 ~                        partstable[6,lines]:=j;
: H+ e( P, Q5 X, l0 _5 w                end;
        next;
! L6 s. A) S. I4 @; e# q  I        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];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
2 @9 S2 M( u) W' V8 c        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]);
/ e* C6 A2 `. V! ]* i# q, x: h) ?        buf.name:=bufname;
3 a: I% X& z6 h2 x( l- j        buf.capacity:=5000;
& e. ]9 S  J# t( ~1 W        buf.proctime:=0;
1 n% T0 G: P) s        .materialflow.connector.connect(buf,machine);
% ^( O$ \( P% @0 T       
: G4 S& L" F0 h6 F0 y# {* L        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- @+ @1 C  e  y5 tdy:=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);
- m. b. e" [1 |- N- g7 ^next;
end;
( q8 {7 |, w9 @- M