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

zooey

is
        mark:boolean;
4 B  K# R8 s! b        dx,dy,ct:real;
! b7 f! ^, m+ B" c8 }    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' D/ h, [5 N$ |9 S                inspect messagebox("设施数目不对！请核查...,",50,13)
7 N% q8 r+ F+ h( P. r) \$ f                when 16 then
                        print"yes";
+ J' E' \, S. p! t                when 32 then
                        print"no";
$ _1 m! U0 d; ~/ Z! Q, F6 V: A/ d                else
                        print"cancel";
                end;
& o6 ^& C) i/ @, |" K                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 D% N4 D3 a! a* P  I" s, _8 n( O                machine:=str_to_obj(machinename);
                machine.deleteobject;
) J! I/ y( R% q0 ?! I, t% i        end;
9 E  l2 `! J, c. Y  @$ F7 U3 R$ O        bufname:=sprint("BF",i);
        if existsobject(bufname) then
+ ]+ l; ]8 [# [9 n0 ?& y                buf:=str_to_obj(bufname);
  {/ i/ b% ^) w- z0 k) ~& M  |                buf.deleteobject;
        end;
        next;
       
8 r/ p2 U( v0 _2 d. N  Q        dx:=0;
- N" F" ^: z$ q) ^2 @" a9 L! A7 a        dy:=0;
4 s% ^7 \. i2 e) B1 m        for i:=1 to number_of_machine loop
- i/ V8 r9 k0 S( N) L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
8 ^; {; J. H5 \+ v                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* @: ?& Y* x: N- q. }/ m' `                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
* e5 {3 Y. ~) Q- f; y' `+ ~3 w; M% R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 C& r6 x- n9 y5 s                        mark:=true;
                        else*/
' z% b" c9 F% X) a* `! g                        y_max:=y_max+dy;
& O2 g& s$ E9 f) g3 o                        dx:=0;
/ r, K. K% |3 K! D' c                dy:=0;
* p- x3 D4 v. }5 c                        --end;
% G6 L7 r0 m9 _5 L. b                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 y$ T8 w1 H& @; I4 f                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
. @8 D3 h7 l$ T% y' x            if activityspace[2,rows]>dy then
+ ]5 _. q# r- [3 n9 j* _* g: ?0 q                        dy:=activityspace[2,rows];
                end;
9 @$ [) U6 P- Z+ G                dx:=dx+activityspace[1,rows];
2 ~( [/ }1 J/ g! E                /*if mark=true then
. t3 s, Q. t/ [$ W% Z. _$ Z                ct:=activityspace[2,rows];
. b; a$ G# G/ M; _; W: m                        activityspace[2,rows]:=activityspace[1,rows];
. X9 E6 A. ]+ E; }: Z                        activityspace[1,rows]:=ct;
                        end;*/
4 w8 p6 k, s; e& s. S: j        next;
  U. n6 I) F( G$ M* ^; v        y_max:=y_max+dy;
5 {, h3 n8 j2 @3 H; L6 a8 o        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);
: X$ |) x, F4 c3 E; _: \1 B        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;
) p8 J6 ]2 K, j" \- Z        lines:=0;
0 e% w$ c# p2 v4 ^1 H& d6 B        for i:=1 to number_of_machine loop
! f5 ~8 k. g0 i  _                for j:=1 to number_of_machine loop
1 O8 M2 F5 n' b- U6 Q6 {                        if j=i then
5 b* v6 g2 v6 K: I! V$ 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 X7 s2 ?9 ~# F% t3 A1 j! j                                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);
8 _: c0 O; J% h6 J0 ?                        end;
                next;
        next;
       
5 m1 r0 F" G7 N. J        lines:=0;
        partstable.delete;
2 D* [! G; M# J! ^1 o( B; }& e       
1 x, g, w* |( ^        for i:=1 to number_of_machine loop
7 J9 @& N; ~. s: C$ u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: q5 E. C/ F5 @3 \$ x                machinesequence[2,i]:=rows;
6 ~% k2 ?+ T% i; N  {, F+ n$ ]- m, _                for j:=1 to number_of_machine loop
# I$ u1 A" E: M, G                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, Y! Y8 M/ D- ~6 j" c2 i9 V                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
. M3 Y! F" G- M# o                        partstable[3,lines]:=sprint("parts");
. g; e: H6 m( p                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        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;标识符未知
5 {( _, q2 T+ |' g$ ]        machine.proctime:=5;
% O7 o3 @7 G  t        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
$ k/ J% \% r. j' q       
! D/ Z! G0 _# i0 i, v' W8 |& m# o        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;
9 \% {- Q1 D" S        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) j3 l* W0 A4 Q* V9 V$ s$ ?. }dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
" B/ w. ^& X1 }: Q* Y* v, |# {current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
# i6 Y) \+ T+ J' R1 Rnext;
3 ^! ?4 Q$ j7 k0 U, N+ @/ kend;