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

zooey

is
% T' c; E3 J. N/ z& T        mark:boolean;
        dx,dy,ct:real;
6 b  b1 |7 v( z2 N2 {' C# Z    i,j,rows,lines:integer;
4 Z* o  a# R* t2 k& v    machinename,bufname:string;
& q3 s; e5 ~# C4 H/ e4 E7 U    machine,buf:object;
% k+ y+ ?; o! o  k5 Z2 Ldo
        current.eraselayer(1);
* m* f& @* _# }5 f) V6 u# H" R* o       
- |' ?' L2 c4 s, F5 A        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";
: o' F6 p7 H; \, s                when 32 then
  ~+ I) B* M# Q5 O( B                        print"no";
+ F& X3 u. R+ h# t' i                else
( C. R$ f2 ^: H5 P                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
" X; A7 u7 B$ m3 [        for i:=1 to number_of_machine loop
% z, ~" T2 T- B& X& N7 @' W        machinename:=sprint("M",i);
- o% u# H+ ~' w4 ]: M# j# W        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
4 P7 k! J0 {; x4 {9 _        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 s% d. W- g: |' U: Z                buf:=str_to_obj(bufname);
6 Q6 D2 f; d% ?/ f                buf.deleteobject;
6 Y4 k2 p5 Q7 K        end;
        next;
       
        dx:=0;
# X9 |/ M$ F( C$ }& y1 `4 ?. w9 s        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
$ l, Z9 V- u* d. g8 `$ o. \                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 {% ~0 R; ^7 `0 h! Q. n2 j/ i                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
3 o2 d+ f7 o6 L8 }3 m                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
0 L$ L, B' Q4 L# b                        activityspace[2,rows]:=activityspace[1,rows];
0 I/ A9 c  R: r# _5 w                        activityspace[1,rows]:=ct;
/ M" L" {& }3 Y( k/ m2 p: s                        mark:=true;
                        else*/
+ V, }3 z0 J! U                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
! d& \4 @3 P; m* w                        --end;
* C6 e  l$ l' |3 |) k# V0 [                end;
- s7 _( X/ x5 `                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* O# I8 F8 Z! o9 E# ?                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;
2 Y  \; O& L0 ~, H! J/ w                dx:=dx+activityspace[1,rows];
1 N9 H! H3 I" k7 ~                /*if mark=true then
                ct:=activityspace[2,rows];
: P% z1 x9 u' E, d/ d$ G: F% S                        activityspace[2,rows]:=activityspace[1,rows];
( x- |" F- i5 t8 T$ q0 |& K                        activityspace[1,rows]:=ct;
. ]. z& v' T4 i/ O) z# Y1 f                        end;*/
        next;
        y_max:=y_max+dy;
+ Y/ C4 k; M; E5 x. Y4 Z        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);
, S! D! i0 m* s9 E7 l  _        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
                for j:=1 to number_of_machine loop
                        if j=i then
- S, Z5 o" K3 L: W: p! {                                d_from_to_chart[j,i]:=0;
8 `5 B! X. [+ c4 s/ N& ]/ `                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
, Y3 v9 n% i3 {& [: H* A        next;
  u( {" d# B5 n- ^       
& A  U, @# s" r9 u; Q  C3 Z        lines:=0;
% T) P% R& |9 b. b        partstable.delete;
6 R; Y4 o6 J9 p/ U: w2 S% Y       
        for i:=1 to number_of_machine loop
" \4 g# a; ~2 ]4 M3 {; W                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
# u% i5 Z! e8 t* I) y7 G                        lines:=lines+1;
! }  `0 E3 B; [- G8 }                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
) Z  U, E$ u$ b+ Y  h) u, @' S3 s                        partstable[3,lines]:=sprint("parts");
; R/ A. o+ k  @% x' f                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
! T- ^, N6 h# N7 F7 h                end;
& c1 @" \0 I$ r: X* ~" @9 y        next;
        machinename:=sprint("M",rows);
9 ^4 ]+ _8 z, F3 H6 g3 y3 e        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);
       
        bufname:=sprint("BF",rows);
& S6 X* n0 S- L, w        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]);
% o1 Z) O# K5 C1 Z% R5 x3 N! y        buf.name:=bufname;
! X0 B0 c/ u/ b4 t! W+ y7 n        buf.capacity:=5000;
        buf.proctime:=0;
9 K5 Z) i: D' n/ Q. C9 N+ z        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. I4 A7 s! ]1 l. w- h5 {& Z2 s- ?dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
  r( A  R7 c$ F! S, rcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
% u3 k. f4 ?/ @' n5 J