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

zooey

is
: \" ~3 d9 Y0 O% N' N+ C        mark:boolean;
        dx,dy,ct:real;
' [9 j- m  k/ x6 [    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
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
9 s" r. k! T$ t- Y2 r8 C! U                when 32 then
                        print"no";
                else
                        print"cancel";
- Z: K% G9 l; T7 F                end;
                eventcontroller.stop;
        end;
       
- h. [6 O# b1 {  |5 F, }        for i:=1 to number_of_machine loop
5 l( X) _6 [' H* y3 Z1 h5 [0 s0 K        machinename:=sprint("M",i);
0 @) Y! q& d/ J! J        if existsobject(machinename) then
- k' T+ c3 u+ _. {  Q1 R) Z                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
3 `' ^" o1 u5 R! K6 |        if existsobject(bufname) then
5 O2 t. Z0 ^, y! I1 B: s3 V& y                buf:=str_to_obj(bufname);
# b3 R0 n7 Z* H2 l4 Y6 Q& w/ L                buf.deleteobject;
3 B+ M. X% x, T4 b9 x1 D        end;
1 ~! Q7 ]+ |: H4 \+ o/ k: r$ O        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 F/ ]. S. p' T" ^2 ]' f                --mark:=false;
4 ]. s* H' q0 A                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 v4 e  [" ^: b0 f                then
% N+ t6 A! |" F                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( ?: E4 [2 H+ ^0 I6 g3 h+ d& ^                        and activityspace[1,rows]<(1.05*y_max) then
! Y, {. n: M1 J1 D6 S                        print activityspace[1,rows],",",activityspace[2,rows];
3 V  ^3 u' X, I- I' {/ P) ~                        ct:=activityspace[2,rows];
+ ^! a  R( D: f2 K                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ J9 l/ T$ E4 ~+ m; x                        mark:=true;
7 H' I8 y5 W. }, P- F  x                        else*/
                        y_max:=y_max+dy;
* e9 a( }# x3 b. p& t. H                        dx:=0;
* ?7 @6 l" w7 W$ I" F+ K) P- p  w                dy:=0;
4 `* o$ F' `$ E4 d* ?                        --end;
+ d5 ^: Y) j+ h& k/ g- Q  T3 I                end;
- V3 k5 V# K! s& k; {, R' ~                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
: t, n. p0 }0 q/ V                dx:=dx+activityspace[1,rows];
                /*if mark=true then
3 S8 K. c" `* M) v9 }  S                ct:=activityspace[2,rows];
+ U7 h3 ~1 K0 I9 F; S) m                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! X7 n$ n2 S$ {" J                        end;*/
8 R3 |+ s1 w' \5 Y+ N        next;
% ?7 A8 `. g2 |6 V2 y% A: S        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);
$ J- s* n9 C0 H5 m        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);
       
; s+ \# e7 ^8 V9 r( I        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
2 d" w; m6 M) U1 b                for j:=1 to number_of_machine loop
3 d% u- R6 U% O                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 ?) y$ O* U* n7 f! a                        else
7 h, ?3 V3 d/ p3 c                                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];
' U- N3 w  W; V) L8 |                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
: x/ p' V! M: J6 w$ B& j                next;
        next;
       
9 |) H- K4 m* }$ }! l4 }. [        lines:=0;
5 l- G5 p7 |; C: J9 j$ M        partstable.delete;
       
        for i:=1 to number_of_machine loop
3 v* Y5 I9 A6 c3 K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
$ j3 S' V. {1 j8 m7 ~  B7 h1 n7 m) T                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, j6 V4 {  i% N& J7 ?. o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
/ ?; N2 g; V& Y! I" H                        partstable[5,lines]:=rows;
% ~/ o0 d& M+ C3 V# v. S                        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]);
6 p# G9 @0 |, I+ R7 j- r' A" v9 j        machine.name:=machinename;标识符未知
: L, ]2 b: f. N2 l% Q( [1 f        machine.proctime:=5;
, ~2 O7 t2 ]4 d        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
/ n; X0 f. N& [" 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]);
, p  z: h3 e7 \2 [* k$ P& m: e        buf.name:=bufname;
) ]/ d- J0 \4 W5 j5 @        buf.capacity:=5000;
        buf.proctime:=0;
& }) X- V) {! ?) V2 |        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 Z* S; w5 k, |& m! {9 I6 Y/ bdy:=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);
" x- L! M4 J( inext;
end;
( q) ?1 Q' @) N+ ]