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

zooey

is
" x$ P& h! l: E( C( a9 s        mark:boolean;
        dx,dy,ct:real;
/ ~* l) i7 t. I3 o1 G    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
! m: G+ s# r5 n2 k1 T5 e, C. \6 @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)
; L  Y3 [3 k0 ]                when 16 then
- X& N8 l+ P2 Z                        print"yes";
- c. j5 O8 I. F6 R" B6 D+ J                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
$ X9 j) N( m  T7 v        end;
9 {3 U; o/ j* E7 r7 {2 F       
3 A4 G4 E/ ]  B  {4 t        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
4 d# y7 Z9 k; H                machine:=str_to_obj(machinename);
; `5 ]1 @9 p6 V2 z2 K. x                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
5 o* _' r5 {8 I2 s# P8 I                buf.deleteobject;
" U2 s7 N( w4 C        end;
        next;
: @/ {: ^+ z9 ]$ ?" T1 P       
% s7 o" l* |& E/ t6 V% p. d) k+ G        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( u: J- |$ J3 Y' d4 p" ]3 z0 s5 O! {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
- V% e1 y" [2 v' w7 ~* M                        print activityspace[1,rows],",",activityspace[2,rows];
; Z+ f% K0 `6 z4 s9 n, d3 F$ q( W                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* m2 L/ d" @9 Y9 _                        mark:=true;
  z: o5 R6 n& J& P! E7 K                        else*/
                        y_max:=y_max+dy;
; E: T' K1 G2 [% t0 |                        dx:=0;
/ r1 Z% ^: S, E, g. v3 Y  }& P3 d                dy:=0;
                        --end;
                end;
  y' s6 b$ m9 e; D+ ]! w- U                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;
, @- `6 C& L& o: @. b9 ^) J) O            if activityspace[2,rows]>dy then
- G% U1 H( R0 n. S0 z7 ^                        dy:=activityspace[2,rows];
) x9 a! i9 J: [% d; C6 o7 L                end;
                dx:=dx+activityspace[1,rows];
. d4 u1 g; g" I5 G9 N                /*if mark=true then
                ct:=activityspace[2,rows];
' x! j% l& L! ^" Z8 }                        activityspace[2,rows]:=activityspace[1,rows];
# w% _* n5 `- C$ q, o: I                        activityspace[1,rows]:=ct;
  |9 E3 e' n% j& b/ v                        end;*/
        next;
/ q) A. h0 }) T0 P' p* V        y_max:=y_max+dy;
7 M/ H" O! I% b, U/ J* ^6 I7 u% T+ K        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);
! Q/ r% Y9 y' g+ W4 w8 M! ]8 N2 ?        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);
       
/ P+ E; f; J! s8 d) w        rows:=0;
6 Q/ [; V' h' w: p& p        lines:=0;
& T. E0 m9 v2 k% p# s7 t' _8 S        for i:=1 to number_of_machine loop
% }6 d/ \  H# ?5 e2 S0 Y                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
+ Y* s. s, Q; n% ^6 b9 E7 x' j                        else
' C7 g" |) i+ k+ O                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& X3 q# x  H( W                                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);
, R+ [7 s$ t  e+ Q: y' B/ O6 a                        end;
# Z! c& `! a9 B, l0 L/ o* Z& e                next;
! a% J0 B8 C- j& ~- a, F        next;
       
        lines:=0;
' [8 G0 R4 Q+ @' k- g$ E9 x6 R        partstable.delete;
       
+ }) o* m0 Q# a) W3 Z6 ?- c        for i:=1 to number_of_machine loop
8 m" d- O0 {* n9 I* \0 @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) t" R! y9 i0 P6 ^$ x; P5 j                machinesequence[2,i]:=rows;
. P3 S5 O( E3 O. \  Y  y                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
( I0 I. o* D# F, y8 r, O/ K                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
2 ?& V  r& P4 B        machinename:=sprint("M",rows);
6 a/ O; Q( S/ L5 C3 N, F4 J# A        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
6 f, A: x/ `" |) ^1 x; ]; 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]);
9 r# t) [. {1 r! d$ R0 d7 T) P        buf.name:=bufname;
        buf.capacity:=5000;
: Q3 r( N  ^; W9 d        buf.proctime:=0;
( F# |# ]$ {% i' M; _5 b        .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;
7 ]0 p' |  q" N) z- Q8 A( Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* D$ M0 f' [  Mnext;
end;