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

zooey

is
' K* M& A- m  B; K        mark:boolean;
7 t& D6 D2 E6 Y( g8 |& O        dx,dy,ct:real;
- z8 h) h; c! d" R    i,j,rows,lines:integer;
    machinename,bufname:string;
- X, s5 A8 ~2 E2 ~    machine,buf:object;
do
4 _$ j2 ~3 O& ~* e* `# S        current.eraselayer(1);
/ K: U0 m* b8 F0 g* M3 q       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ q6 c' U! _  ^7 `. T                inspect messagebox("设施数目不对！请核查...,",50,13)
( m! ?4 k8 _5 n8 S) P- g                when 16 then
3 p0 z( |- x$ X$ r- m, [                        print"yes";
                when 32 then
                        print"no";
  a2 F$ V  B8 f  h) C) s. ?" ]                else
                        print"cancel";
7 w0 k6 T- e0 z$ l0 z, C                end;
                eventcontroller.stop;
        end;
) |# ?4 h- a, b       
& z, A  N5 o/ f5 C! X# [        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ Z8 p# \9 x4 ?! [        if existsobject(machinename) then
1 q4 F3 C6 a6 m                machine:=str_to_obj(machinename);
- f# _8 n$ a* B9 Z                machine.deleteobject;
6 x) G! s9 P+ T- `        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
* ]; G' {$ K$ h' ~9 T        end;
        next;
" ?; E8 ~0 R6 z2 u! b       
4 J8 E0 m4 @2 v% i4 ~1 N        dx:=0;
( t5 A' C, U% ?' S; m3 ]        dy:=0;
1 A! d8 ~+ ^3 b+ F+ X: [        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
$ a: l6 h2 Q3 R# g                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
$ O* z& H" |$ R( o                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 W/ q& A) ]% y& x                        and activityspace[1,rows]<(1.05*y_max) then
/ p0 w5 D' N4 _; ?                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
7 K) [; U1 x" u' r+ z                        activityspace[2,rows]:=activityspace[1,rows];
# @3 K6 P7 K, j) {/ O                        activityspace[1,rows]:=ct;
                        mark:=true;
# q2 r4 {" V5 n# x7 C6 O                        else*/
                        y_max:=y_max+dy;
: A: w6 Y% s+ F" y# n8 L                        dx:=0;
                dy:=0;
, K, s# M# o: f* |4 Z2 H) b                        --end;
6 o1 {7 C( E, T                end;
4 I( J5 c/ S3 X                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! }! {4 `8 X" Z  f1 M                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
  h. z' X! j* o3 X; a6 \7 w            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
; i: m- N) j& l                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
& U- [  A; k$ @1 R/ a. Q                        activityspace[2,rows]:=activityspace[1,rows];
: J- X; a9 B  b, E                        activityspace[1,rows]:=ct;
5 W: l: V- _1 A/ e4 R                        end;*/
        next;
* Q/ @& s; P) P9 ^) i        y_max:=y_max+dy;
# d$ E6 H/ d/ a) }& d        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);
) Y/ V1 T: ^) Q# A) m; c        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);
( l4 c  H% K7 ~2 P* R; V& p% n       
1 n, j6 q: s: c* S9 X- P        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
3 d" X7 O# b' `% t. e  P3 {                for j:=1 to number_of_machine loop
% A5 G( z8 t* Z# l8 l( _3 C                        if j=i then
                                d_from_to_chart[j,i]:=0;
# n* o& h+ J# y) R& Q, ]                        else
                                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];
0 e9 ~1 e; O. I  ~2 X6 z+ E                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
& x4 F  _+ d) J                next;
        next;
: Q' y4 F2 B7 K; G       
8 g" g  @/ \: C' R, f  R3 V" m4 T! `        lines:=0;
9 n" r% j. Z. x  v+ s        partstable.delete;
       
) [% l, z3 N; g2 \4 o, [4 b& b        for i:=1 to number_of_machine loop
% f; @; D" q( M8 h; }7 R" F" h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
" a: P7 E  o1 ?                        if w_from_to_chart[j,rows]>0 then
( g' d% Y( N* ]# e& A9 z" o/ D4 F# V                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  o# o" r8 i3 Y6 w                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
/ h6 I) R9 J8 b                end;
) B0 g; A! B2 E. [+ n0 Y0 }- e. M( _0 i        next;
% k; V, i5 h& M0 [        machinename:=sprint("M",rows);
5 Q/ {4 _1 w" l8 R        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;标识符未知
: u* [; _1 Z+ d( t; \  O        machine.proctime:=5;
0 Y- U; ]9 ?9 b$ v        machine.label:=activityspace[0,rows];
. D6 w) u# _; D5 a0 b- h9 B( ^5 [        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
5 X- L$ H) |0 T4 }/ B: B# I6 j        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]);
6 T8 [/ E0 R/ Z+ x5 D/ G        buf.name:=bufname;
        buf.capacity:=5000;
; H& X$ u0 b3 j% p( q        buf.proctime:=0;
2 z& b# u7 X! e# |- ?8 ]        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! }' v  @2 z6 a/ j4 v. O! udy:=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;