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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
. ~1 ]5 b- F* D- t3 H$ o: Y    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
5 ^% Y& ^3 U7 B3 L6 s                inspect messagebox("设施数目不对！请核查...,",50,13)
  I; M0 l' Q: S                when 16 then
. W1 x2 l! J. ^' J                        print"yes";
! P! G* z6 l! A7 ~4 a2 T                when 32 then
. U1 h3 I3 p, a/ A                        print"no";
                else
. M3 i0 Y% ^1 a1 G! \3 Q                        print"cancel";
                end;
                eventcontroller.stop;
- R( [  i' ~! l5 e! K2 c  O2 G" n        end;
  _" W: K. o0 p% l6 M       
+ i7 L; s* n/ _+ L5 t6 w$ B        for i:=1 to number_of_machine loop
4 w$ _9 t+ y1 S$ b  t5 |7 V+ K. a        machinename:=sprint("M",i);
$ X7 D0 i$ G! ]+ ?3 j6 {5 J6 D1 l        if existsobject(machinename) then
1 }5 ~0 M( R6 {* P4 q                machine:=str_to_obj(machinename);
: ~2 n$ h9 k9 H) \& W( `, G2 F) f2 F                machine.deleteobject;
6 c2 c, ]( `4 J% N' W        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
7 }* r7 x" \8 o$ }: C% h) A3 b- {                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
+ p  A3 r  I2 J7 f        next;
       
4 y! p/ C/ A- `9 s3 H, g6 B- g        dx:=0;
        dy:=0;
% M- z+ g; R% E' ?1 v$ L! L        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
& A; c& L2 K/ k: ]                        /*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];
" q- E2 m0 C6 s. g2 D* s. @) m5 v                        activityspace[2,rows]:=activityspace[1,rows];
6 d& M0 p& Y  a9 b1 x# |" L                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
3 f7 q$ |( V' F3 m/ u* U5 Q                dy:=0;
$ W! B4 F& [' N" e2 k# i                        --end;
. o4 q2 i" L2 Y6 g4 j7 {                end;
. C& W  R4 B% w1 g) V                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ m  S7 j$ W, ^0 m& ^: X                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: B% p: e8 \# m9 M" u6 }2 Z            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ [6 N6 U5 b) W/ \                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" c3 B. w& n8 p" {$ z2 p                        activityspace[1,rows]:=ct;
                        end;*/
        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);
  M3 D5 G8 B# N) D3 }3 a7 u        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);
       
) N% _- j6 C+ d" X2 O/ ?        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
2 z# p1 H2 {* w                                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];
+ b! ^; S4 N3 D2 `5 [1 Z& d                                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;
        next;
       
8 _8 I5 [! E+ t6 m- I        lines:=0;
8 `2 B/ u0 L5 g2 ^9 O        partstable.delete;
       
        for i:=1 to number_of_machine loop
" r- G; U$ ~6 p; F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
# N; g2 V0 D4 j                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"));
  a, c, D7 h$ ^7 r; u; G. P) w                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 e% i& s. V' H: F                        partstable[3,lines]:=sprint("parts");
1 B+ ~3 X8 i  u                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
  h' ^3 B! D4 I1 }" H, ]3 R1 O        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;标识符未知
        machine.proctime:=5;
$ {( D( Q7 e3 ]- f" F        machine.label:=activityspace[0,rows];
! a1 t4 V! J4 `  z( E1 N+ o9 H        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
) B& t3 `5 @" t        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 X3 O9 d! q3 D: H6 e        buf.name:=bufname;
* l: }" w6 J* c$ _& q7 _5 h        buf.capacity:=5000;
6 m; U4 ^* D# A: K/ ^6 P        buf.proctime:=0;
' n+ f6 [- B2 }$ M2 A( s8 p/ p        .materialflow.connector.connect(buf,machine);
9 m: Z1 k/ G  k& ]% U       
, a9 V& ^# Q2 I4 t9 f' T' q: @        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);
3 t0 W" M, w. F6 }next;
end;
  j; P5 r3 O# V% U5 {2 R" \