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

zooey

is
$ o3 T" F2 Y% l" V- j        mark:boolean;
2 p9 E$ r/ B% V, }& P. s        dx,dy,ct:real;
    i,j,rows,lines:integer;
, Z; k! R. p1 O' R% n7 W  m! A/ @    machinename,bufname:string;
+ Y; q* }' X' J, c# ~7 J    machine,buf:object;
5 M$ ?- v: C0 udo
( ~7 a' {* K2 ~2 j% J. C6 w        current.eraselayer(1);
# T6 |4 Q8 {1 C       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
) @) Q* H7 A( j8 j" J" H                when 16 then
9 p5 z& |4 T" l                        print"yes";
                when 32 then
8 }/ f: q% S. r                        print"no";
                else
                        print"cancel";
  U$ N: g& p/ M- q$ d& X( T; q                end;
                eventcontroller.stop;
        end;
8 q% W& g0 T1 W2 }0 A' [       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
( {5 l1 r# d" h4 p( z: C& y6 B        if existsobject(machinename) then
" r) I5 M+ E. N. b( ]                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) j. J8 c- T  d  R8 p8 h                buf.deleteobject;
        end;
        next;
. c7 r+ }9 }- y       
        dx:=0;
        dy:=0;
, t" G  N) ]; |$ Y8 n3 e        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
0 W3 T. B- e( n  ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. G1 b, C. I& \                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# _9 C/ X0 b" m                        mark:=true;
                        else*/
1 o6 C' I6 _2 R. \2 \/ i                        y_max:=y_max+dy;
                        dx:=0;
( F7 A! p1 ^+ l$ P4 e                dy:=0;
                        --end;
6 O( R5 v8 o+ x3 ?; u0 l5 m                end;
4 E- E3 H3 j! o& S0 w$ a2 Z" b                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$ _% ^4 O9 k1 q" I7 ~# T/ g5 W5 A8 I            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
, D( C  R0 O/ }: b" F                end;
                dx:=dx+activityspace[1,rows];
% ]+ V4 c1 ?6 Z+ \% A# B                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: n+ y8 h7 V7 Q* Y  m8 w                        activityspace[1,rows]:=ct;
7 @5 J- W' l% n6 a8 ^                        end;*/
4 H4 T( g$ J( s1 R' N& r        next;
        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);
        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);
7 `) ^2 D+ v) C9 k; a& O" O, W       
        rows:=0;
        lines:=0;
9 e4 O- B; h! v8 \        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
* l$ N# n2 [! f, o5 S0 a' E                        if j=i then
$ E5 N  R/ G5 S, {4 o8 p% h; Z                                d_from_to_chart[j,i]:=0;
                        else
. B+ {* u( V* ^- j/ U                                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];
( a/ R/ L3 J5 `- y! j( h, _                                d_from_to_chart[j,i]:=abs(dx-dy);
6 n- A  h5 j0 s1 u                        end;
                next;
        next;
( ]5 X; u' ^& c* h% R; R' q; B" H( R       
; |' E2 ?7 E; E/ H9 Q5 R        lines:=0;
        partstable.delete;
6 e9 t: G5 h+ {0 T5 M# Q       
, U4 w: a/ |4 F  B4 z3 c3 M2 J( k        for i:=1 to number_of_machine loop
8 I6 ^/ p& S( J* z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' ~# R$ l% |" W6 D                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
2 U1 w+ @) H5 N' H  R& ?4 r                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
) j1 \" u1 V' @$ i9 D0 l                        partstable[5,lines]:=rows;
6 W/ ~. Z$ e; O                        partstable[6,lines]:=j;
$ O6 v: X% f* Y3 b5 C  x& i" g                end;
  D  U; a4 w1 D7 @& y$ l$ A- M; f        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]);
  a9 h; W) f3 q0 V+ ?3 d- L! N        machine.name:=machinename;标识符未知
        machine.proctime:=5;
; X/ n- X! L9 l$ z0 K! l, z# c, g        machine.label:=activityspace[0,rows];
1 I9 l, D. G$ l( @0 _. B3 W        machine.exitctrl:=ref(leave);
- A( P. a! j1 f* e, l. M       
        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]);
, C9 d$ ?+ b3 m3 ^7 L" Q) d% r        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
& S) Y* e2 w, [6 s' S( s/ j        .materialflow.connector.connect(buf,machine);
& @( L4 h' l! b) |7 n       
4 b: W. b8 M+ C1 Q5 q0 E        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);
  \5 p8 R! V! _2 b. l, {- F8 G+ E- Y2 ~) @next;
end;