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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
: y' z6 o& w9 O7 s: ]; K    machine,buf:object;
' {  j+ L" ?1 }; zdo
3 m8 B7 V  t* ]        current.eraselayer(1);
4 v+ e( l5 ^# H& |- X! l. N6 }       
% m! R& Q! u5 ]$ K" k! R9 A        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 ]1 z$ w/ ^5 b2 D4 L7 g                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
$ _" o' v. k8 }% W, {1 f                        print"yes";
                when 32 then
7 s" F3 _  s0 s. d                        print"no";
                else
7 n3 N0 q% D7 T. M                        print"cancel";
1 k# ~& r! a) W- Z' u' y3 k* c' x                end;
                eventcontroller.stop;
% W9 i  o- W$ x0 b. n" e        end;
       
, j; r7 N/ p$ T$ ~9 U        for i:=1 to number_of_machine loop
5 s, O( B3 |- z% c  W        machinename:=sprint("M",i);
0 r0 R: {0 {' T/ O# s  V- W0 h        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
/ P9 E3 W& i' {5 V: `+ n        if existsobject(bufname) then
& N# h- `) S( R, b0 e, s                buf:=str_to_obj(bufname);
7 c" @* k( t7 U5 k, `4 N  _                buf.deleteobject;
        end;
" L/ k9 Y0 w# Z9 _        next;
       
; m/ {( ~8 T& y! }        dx:=0;
0 {4 c* N8 `( }1 I1 u        dy:=0;
. O7 T* s& Q& H/ G7 L        for i:=1 to number_of_machine loop
, N3 H9 p) N3 L: e0 o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 H8 N! N) U) Y1 }9 h% s. _                --mark:=false;
$ D3 Z6 {* d" p                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 Z" v; E0 i# }+ B% r$ s                        and activityspace[1,rows]<(1.05*y_max) then
; n2 t6 M0 F; ^. {6 c* w                        print activityspace[1,rows],",",activityspace[2,rows];
/ n: M7 K# N9 K2 W0 k                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
2 h; l! R! A& K                        dx:=0;
" l. ^! y8 Z8 H4 A# t                dy:=0;
                        --end;
                end;
                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;
0 h, I- _, K* @+ g& |) M            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
* I6 k2 J* V1 o0 Q0 W                dx:=dx+activityspace[1,rows];
                /*if mark=true then
5 ~/ D( V* b5 C/ y8 w, C                ct:=activityspace[2,rows];
0 s5 w/ T, Q$ J- d$ T/ R0 F                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
, q( x: S$ M# r+ D  [  P        next;
8 a# J6 R& S- R6 ]0 l6 a        y_max:=y_max+dy;
  T# f0 [; F4 x& Y) d0 b        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);
9 e9 b. V" i2 M+ ]       
+ q' x9 X! Z8 _2 X        rows:=0;
8 {( x) y7 _2 r: a$ ~/ j4 s        lines:=0;
4 N; i6 s4 t# Q1 p* }) j) E$ {: z, j        for i:=1 to number_of_machine loop
/ O9 i5 V1 c9 m4 Q" m; w                for j:=1 to number_of_machine loop
! J6 |% W! g& l/ Z  X- L! W: q                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 z% a. z0 L6 y9 m! t$ \                        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];
4 t  y0 f0 h6 i0 k                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
* B. K* `" t1 ~1 q) T: U                next;
        next;
       
        lines:=0;
& u0 B* B0 u# N' A7 E5 d        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
0 [/ G, Y' p) c& j4 P                        if w_from_to_chart[j,rows]>0 then
, A& R% \* p( l# g, T                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  K7 ?# H$ `3 ^' T                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; L0 B  @! ~* }" f& S0 o; ?                        partstable[5,lines]:=rows;
5 j+ }$ y- ]# Q$ v. ]; D0 i5 `/ l2 L                        partstable[6,lines]:=j;
                end;
3 G  y. A) [$ S0 v        next;
2 K* W3 i% ~$ x% W        machinename:=sprint("M",rows);
1 H( \; I9 s, P: ]# U        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]);
; O9 e6 E5 {' A7 [: B& b1 ?        machine.name:=machinename;标识符未知
        machine.proctime:=5;
6 F# r  o+ t$ K1 L& s) M        machine.label:=activityspace[0,rows];
" ~1 z- e) ]0 L7 O% {        machine.exitctrl:=ref(leave);
8 m% z5 ^1 z. J; Y) c) g4 l       
        bufname:=sprint("BF",rows);
7 t& y% h& j+ L4 K" X. v        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;
8 Q  K# w0 V8 A: Q. U3 v        buf.capacity:=5000;
. J0 T+ ~5 f9 F8 c/ v  N        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
9 H. z! ]# @% _, S, O$ j  N" v+ c) Y       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ ~; b" ?3 A+ Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
6 F& [' C( @  y" |2 b' wend;