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

zooey

is
        mark:boolean;
" b( i  w5 Y1 \+ t4 ]        dx,dy,ct:real;
( v8 D9 @+ L* X, Q+ `0 `: s    i,j,rows,lines:integer;
+ g+ r2 `! U! m, C5 }    machinename,bufname:string;
    machine,buf:object;
9 n1 Y1 A% {. U+ O4 r# }do
; B! c" C% K: q1 f9 p7 }        current.eraselayer(1);
       
$ ?5 W: c- K& [+ e, n% v        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
9 u. j8 s. p& j1 F4 h( d! E! K                when 16 then
                        print"yes";
                when 32 then
* r/ H4 }; H- E                        print"no";
4 x/ a6 B* F' F; P% l( T                else
, E3 ]) n! H; V9 N                        print"cancel";
                end;
/ ~2 i3 Y+ p4 M                eventcontroller.stop;
( A3 s1 i. B1 m6 ?; d  q        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ l" Z6 H, w( V2 @7 T$ x( p, A        if existsobject(machinename) then
; V. u" w( u& Y. @0 \2 f                machine:=str_to_obj(machinename);
                machine.deleteobject;
1 o  d! [0 s- x6 n! d# f        end;
: Y2 D( D0 j$ ?/ h9 U4 S+ ?( n9 W, c        bufname:=sprint("BF",i);
# s' w  T0 C$ g/ Q6 O        if existsobject(bufname) then
% F) `. ]$ x6 g1 S                buf:=str_to_obj(bufname);
                buf.deleteobject;
& k1 Z$ Z6 Q3 b8 G3 Z+ y2 v        end;
        next;
- u$ r* H2 p) R) @, k! T' _       
        dx:=0;
  y3 h$ J  v' X* t) b; C        dy:=0;
        for i:=1 to number_of_machine loop
8 Q6 q" m0 n, U& q7 R- `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
$ l7 ^& H; x. b6 ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ t  x1 O7 g0 {) C9 x8 b                then
. n( y9 g. ~5 ?$ Z# r7 I8 R                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: T: {5 R2 r5 e9 N+ ]0 q4 r1 |                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
: D5 Q& _# k' [: x- M                        activityspace[2,rows]:=activityspace[1,rows];
  y: D! C) c% a& t1 p" E                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
# ?: b$ u. n; f3 S% ~( ?                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
% @4 U) p8 l& ~. _                        --end;
                end;
0 U9 D+ u9 y" R+ I3 W                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;
: C, w5 g' d5 W; j) ]            if activityspace[2,rows]>dy then
) l* D* a  {/ x! ?5 i" F1 i2 L( y                        dy:=activityspace[2,rows];
& R5 e2 y9 E  r                end;
0 G3 ?7 y/ s+ h& B4 A6 h                dx:=dx+activityspace[1,rows];
                /*if mark=true then
* |7 K& h3 ]7 j4 p$ f6 V: R: A! w                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 f* F: p* T5 w5 {                        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);
        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;
' ]( k1 H& _+ B2 O. Q        lines:=0;
8 l( U2 L: ~3 d5 C+ p        for i:=1 to number_of_machine loop
1 O% f) b$ V) U6 q# P                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
2 c  @4 E% Q- \+ O2 m, N$ U" a                                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;
& q" j% {7 t) ?9 e) I1 E9 _                next;
4 R9 k4 v8 L- X9 N7 q7 x' c        next;
. t; P$ m9 y& B; _1 ]       
7 G! h+ K; w) o- ~) ?        lines:=0;
! u5 y( N5 I& v, i        partstable.delete;
       
5 g# |7 z6 l& q7 P* q$ }/ b        for i:=1 to number_of_machine loop
; h" t) S: g/ U! k: ~                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
9 ?7 l- ^  ]0 [9 d2 K) O                        lines:=lines+1;
) a" P. m' `! O                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; |4 e* F# G- J) y- }                        partstable[6,lines]:=j;
                end;
3 A( Z, N1 h9 ?7 j: B5 P* }# e8 }  O4 \        next;
! B3 Q& N8 K; ~        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]);
  Z, p/ D" y: H0 }  Y8 ~        machine.name:=machinename;标识符未知
6 w! r# i. T) t( G        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
  ^* B& v' S* L3 d" z        .materialflow.connector.connect(buf,machine);
       
& j% Z" h( C7 C        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);
8 W7 Z3 r% B/ b' x8 onext;
end;
* [, i, L3 t4 u- m5 J