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

zooey

is
& `" h$ Q5 T2 J        mark:boolean;
) h/ H, O* s$ F- W- a3 T" c4 l        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
! W, l$ [* i6 n( @; A* m       
' [/ W  ?5 b. X4 x        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
# U) N: c/ W- G                        print"yes";
                when 32 then
                        print"no";
" w, o: w. b: |* h7 r/ I                else
                        print"cancel";
                end;
0 B9 s, ~5 Y0 K7 N) R                eventcontroller.stop;
" v) |/ _# V3 Z+ P7 P        end;
  L3 }4 u0 o0 D1 j/ J       
' E( ]0 [3 U3 Y. F% ]% I7 `        for i:=1 to number_of_machine loop
: z4 m/ [7 g& G! ]        machinename:=sprint("M",i);
3 ]. n# j) z" e        if existsobject(machinename) then
+ |( X" @$ L, a6 w' T+ Z                machine:=str_to_obj(machinename);
, v3 c' o$ r, X5 a& s) w1 \                machine.deleteobject;
  ^* N4 X; E3 Z0 N% Q- _5 {. g        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
0 `& }; T# j  w3 {! k3 t7 l5 v! O        next;
       
        dx:=0;
        dy:=0;
' ^+ K6 ?: Y# Y2 g; |9 j" y        for i:=1 to number_of_machine loop
; @/ C3 [% T# V, t( p  p1 ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
. v/ `8 u, l+ g  }- ?4 K                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 p% X& a9 |) `9 y, D+ }2 F9 p                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  K9 b5 d  C7 k                        and activityspace[1,rows]<(1.05*y_max) then
- d# J( O  V/ k  g/ p+ A/ x" {                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
) U$ e3 n  @5 n3 k' ?6 }                        activityspace[2,rows]:=activityspace[1,rows];
# x" `9 W  h- k3 E! V2 j                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
$ \7 o9 ~" u, |- J                        dx:=0;
9 d3 t) W5 Z$ @$ ]* V1 |8 D% K                dy:=0;
% l4 M" q  A" H' H- K# p                        --end;
6 ^% @- c  }% O) J                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 }& F3 t( e) A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
5 J9 S* K3 h! [- s0 K( Y                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
  A# E+ |5 ~0 E0 U7 S. h                /*if mark=true then
2 h& q4 u, R9 T6 i( G  v* ^                ct:=activityspace[2,rows];
& b2 E! ?; y/ z: F* K                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
5 }5 E  _  r/ O        y_max:=y_max+dy;
9 ]/ t* J7 Z- O/ g1 ]        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);
4 G6 V* m* C# u& c2 O       
; \* N, i" B: n9 w/ b        rows:=0;
        lines:=0;
8 }# ~0 o. a6 T5 e! W5 o        for i:=1 to number_of_machine loop
+ {4 o1 `8 L# W$ P4 i' F1 h                for j:=1 to number_of_machine loop
                        if j=i then
2 z" U2 n- E0 u0 I4 u                                d_from_to_chart[j,i]:=0;
0 T# u% v+ }- a( K7 ~+ G8 H                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 Q, x5 s8 C$ t& T4 S                                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);
- T+ C( {, E& h: |& X                        end;
1 M& M8 X$ M8 e) }# ~                next;
4 f( k3 y$ k  f# c& `; O  W$ d4 {        next;
       
/ E( m: ?+ X8 C" Z        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
1 v4 S6 a8 o1 `+ w/ _. @# w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" P" _6 C& p/ i1 a; @! g                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
1 U3 w& I! t# |( k4 q                        if w_from_to_chart[j,rows]>0 then
$ b9 a3 Q% C/ c( s# ?                        lines:=lines+1;
9 |0 G- z3 Y# s7 Z, I. z/ x% P8 j                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 z3 d0 T0 m# B                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 }3 j) N  ]6 z                end;
0 O* t" E: j2 J5 q+ a6 E' X        next;
9 h4 Q# e8 u5 |        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;标识符未知
; o4 H" G: O' F8 @        machine.proctime:=5;
; A3 ?, u) ~3 [1 D( S6 k        machine.label:=activityspace[0,rows];
+ H" q6 C1 R6 H+ `. T1 y        machine.exitctrl:=ref(leave);
0 w; c% b  c; @% p. r" J       
        bufname:=sprint("BF",rows);
/ v" D) d  l5 H6 P, u7 F        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 p. P5 g9 f- r& N* U        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
; L& }3 K$ ?0 b% c! C/ o        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);
next;
+ [% b- l! _! h3 ?0 Cend;
+ j& }7 D- B2 b. k; G2 U4 s