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

zooey

is
( x- d$ N, h0 D        mark:boolean;
% J" l) s5 Y) p3 h        dx,dy,ct:real;
" p* e+ J. s, G7 _4 \8 `    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
% E' r/ m9 Q% ydo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
& v2 S9 ?3 k7 L/ _: E$ V8 m                when 16 then
/ i: i8 x. Q' e, d. T. N! z1 s  S                        print"yes";
. q- ]2 ]) @% \. F$ j6 H% c8 W# E- |                when 32 then
" W4 M. ?( w. w) v7 T                        print"no";
' |$ l  N" R  g( u5 K                else
' V0 J/ i* }. I+ D2 u5 R( e                        print"cancel";
) [. @8 O* h. n1 V# A+ r% T                end;
/ @* f: W8 ^( U2 a                eventcontroller.stop;
        end;
7 b* B" m: ?, n3 W5 O% l       
        for i:=1 to number_of_machine loop
  k/ l+ {, v* S        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
; @! J+ _; i) J+ J! t* l! q4 q. }        end;
. @; c' z; e; ?) b5 F( b1 l4 M        bufname:=sprint("BF",i);
        if existsobject(bufname) then
: l4 ]& [1 ?" j7 M- V; V  V! j                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
* S# ^* u, f% @3 i) H       
, _: u* Q  s% _: k  J) E        dx:=0;
& T% ^5 s2 U" G- t        dy:=0;
! Z6 Q! O  K' J1 a$ ~, U        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% f/ N& g, [% }( |( K8 Y                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ k# i0 \* r: T0 }4 A                then
- J6 K/ d. |1 B6 D                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
7 ]4 I7 n3 j& o% i) D4 B' k                        ct:=activityspace[2,rows];
' S5 K, Q+ @' @! T, ^. w! q                        activityspace[2,rows]:=activityspace[1,rows];
! Z# ^: U% ]" B1 c1 |8 O                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
" U' R, R" x. D& O4 h" D& H9 M( k                end;
- }3 \7 @" H. w6 Y) v; h                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 t3 Y0 @9 d, U; m$ l& X; p                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
$ ]# m2 t% r  i- _( G0 ^+ ]0 H            if activityspace[2,rows]>dy then
5 m4 H' ?+ N) O" t                        dy:=activityspace[2,rows];
2 t2 j( c# P) z9 r                end;
                dx:=dx+activityspace[1,rows];
+ b" S( h5 A3 w/ p# K6 @                /*if mark=true then
                ct:=activityspace[2,rows];
& @, f3 W* K7 U6 a- r3 x$ b                        activityspace[2,rows]:=activityspace[1,rows];
5 U( k# Z) X7 @- Y                        activityspace[1,rows]:=ct;
5 X. T1 X- F% a7 v& x9 k                        end;*/
* f8 `. Q! j8 M/ W# l+ U        next;
        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);
        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);
       
        rows:=0;
        lines:=0;
. `, K0 y; V( O8 Z0 q        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  e# D+ I4 i; D                        if j=i then
  O( |) Z* G! e) ]* a                                d_from_to_chart[j,i]:=0;
# N" i6 V" A2 S2 w( ?+ h  b$ V/ F                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 o8 s( a  R. i; x7 [7 H8 q: R                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# A3 d& f4 o3 N; K* v  b                                d_from_to_chart[j,i]:=abs(dx-dy);
* s0 @+ S1 t% k                        end;
+ a' k1 k9 o" \' E( @4 g" p. v3 ]                next;
6 S8 N& C) `$ R' q$ \* g+ a. v        next;
/ b' d% U+ A" s" D+ a. |/ i, J       
- v4 {/ n6 H' \! E; i/ Y' v, t        lines:=0;
        partstable.delete;
       
5 Z1 Z4 c. }8 l        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 c/ l( T+ [, w. K5 g# W; x  ]                machinesequence[2,i]:=rows;
. J+ A! [) `+ V8 X! }                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
  L  }( I- Q4 g/ s/ Q2 W                        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;
1 z- J8 t) ^4 @) e$ h! d0 `                        partstable[6,lines]:=j;
                end;
% n1 f$ y+ Z, o2 k  \8 Z* U        next;
        machinename:=sprint("M",rows);
$ \3 H- v3 F& b* ~        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]);
3 B- [, Q& }' N* H  m        machine.name:=machinename;标识符未知
( d- x/ S( v! Z' o9 ~( i% t1 y        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
* f" X' N# }0 @/ y9 u* r4 K       
        bufname:=sprint("BF",rows);
7 d- I# |- n, E, }; ?        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]);
2 x0 n$ z0 M4 t+ z, f  P: H1 h        buf.name:=bufname;
$ f5 q! U# C& v1 ^        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
" \8 W( `8 R8 i; i0 G( ~, w' H       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 q1 N3 C; h( q$ ]$ Sdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
0 S+ M: G3 ~3 E) tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
" H4 ?7 B5 p" y# F/ i* q+ Eend;