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

zooey

is
* m- m- A/ b: a; n1 [        mark:boolean;
) @/ L  @7 e4 W0 K4 ?1 U        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
! C) f* D  X( Z, O& s( u9 Vdo
' w9 p0 g2 l' p5 S        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; H* k9 P4 b4 o+ Z9 C$ `                inspect messagebox("设施数目不对！请核查...,",50,13)
# A% ]% R# s& q$ N* X) E3 [. d, ?                when 16 then
! H  h3 r9 [' |% J                        print"yes";
! H5 l4 o* V7 Z% ?; A6 C                when 32 then
                        print"no";
3 k, N. b4 [' Y* ]9 s0 }                else
                        print"cancel";
                end;
                eventcontroller.stop;
, m  @: A  }  g; ~* c, {: e        end;
1 g4 s: z0 N& L- A1 Y0 A       
        for i:=1 to number_of_machine loop
6 ]  J; s  o* s+ T& u        machinename:=sprint("M",i);
3 p4 Q4 T+ v) S) e7 {' F        if existsobject(machinename) then
- {) j8 Z. D* Q  e2 R7 |; h- D                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
' s9 c+ d& P& v: L  _        if existsobject(bufname) then
* u; U! C# P2 y" v: s8 P! p                buf:=str_to_obj(bufname);
                buf.deleteobject;
# S* a/ u9 D$ c7 m: Y        end;
        next;
       
        dx:=0;
# l! J# b" p% t- b% Q- I        dy:=0;
        for i:=1 to number_of_machine loop
5 D3 S' e2 T# \( O4 F* t* i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 \$ W& v) I: }1 q% \: B                --mark:=false;
5 d8 F% c5 p8 {  W                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: L  o. Z1 N( U# |2 m                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
: c( C* t0 J+ P# e, b                        print activityspace[1,rows],",",activityspace[2,rows];
; }& I, h! `+ x' {) ~9 L                        ct:=activityspace[2,rows];
8 N, }) ]* K" x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
: y0 U' Z" m  F8 u                        else*/
3 z% \' X  z8 f2 W& ]                        y_max:=y_max+dy;
# M) q; L$ B  h; L3 {" U  V) h                        dx:=0;
% c2 s# M4 l9 v6 |8 m                dy:=0;
                        --end;
3 m" K4 e* M2 V& r                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" h( U7 s4 V7 `1 g  @- W  j; l                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
' G/ f0 v" |' W. R                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
1 ?, a" n, ^/ u: @8 V                        activityspace[2,rows]:=activityspace[1,rows];
3 K0 [# K6 u& T2 F; `0 x1 l& Y9 l                        activityspace[1,rows]:=ct;
* c) B2 ?( E  u, U6 Z! R7 E                        end;*/
! Y$ d- j9 c( W" J9 y        next;
        y_max:=y_max+dy;
; o; M2 d1 T- k5 Z  r* G        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;
        for i:=1 to number_of_machine loop
1 [4 s. d+ ~( |% g# a8 B                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
) s. O. v4 u7 x. v& V7 n                                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);
; u" }- W$ c8 w' g                        end;
! T. x" p- ~1 g$ y                next;
! U; C* I  W2 n9 l' z        next;
2 T8 z, z- a4 K. \+ x6 n9 ^       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
5 S3 M: ]( d1 V! ]# f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# m; ^5 m4 u! Y% _/ e. w# g                machinesequence[2,i]:=rows;
: b  }# N, ?3 M. F4 M' z  s                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
; @3 M. w0 S9 D8 H' u$ E# ]                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 A: E2 s1 }  {# k" Y) b                        partstable[2,lines]:=w_from_to_chart[j,rows];
, c8 J: f! h6 U& t                        partstable[3,lines]:=sprint("parts");
# T+ O- s% H- I0 n) q1 h                        partstable[5,lines]:=rows;
* ^; j4 x5 ?# Q% ]) G# _6 @' R) e                        partstable[6,lines]:=j;
2 W/ n% g6 ^4 t" I& [1 ^                end;
% c2 F0 R4 \' H5 `- I        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 g1 B$ \3 v- i7 w$ y5 x# v# A2 N, k/ S  R        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
, h; b  y& v" f        machine.exitctrl:=ref(leave);
! @- p" f7 t9 E" Z+ M3 I       
( I6 t+ h! j- V        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;
& r/ R1 _: Z$ O# x! ^        buf.capacity:=5000;
' g3 l9 I: s# K- |        buf.proctime:=0;
" b, ?  E+ [7 Z' S0 V, A        .materialflow.connector.connect(buf,machine);
       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
7 _- L" R. \; p3 p  Z6 u7 F: ]