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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
# h! |4 F0 U/ w! K, f9 Q. Q  z. rdo
0 i3 R- A+ M* u( d        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 i, D0 W5 H2 \4 Q5 q                inspect messagebox("设施数目不对！请核查...,",50,13)
7 T7 H' y+ C$ n( ^                when 16 then
                        print"yes";
$ c5 R# c7 O) H5 v9 z                when 32 then
  I+ J3 p# i+ V( V                        print"no";
( r* K/ ?4 d4 x6 u! k0 a6 `                else
3 q5 O+ l- A3 f' `                        print"cancel";
+ x8 Y+ }4 Z8 d/ X8 E# t: L5 J+ ?                end;
  ?1 O+ A- @: r: H3 f; S  a                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
$ J, a1 c* E+ t        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
& ]) P" V/ }0 d        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
- q  w! {6 I* a+ k0 V6 {0 j8 e                buf:=str_to_obj(bufname);
                buf.deleteobject;
4 D$ I% u6 J: J2 W4 d% W1 i. M  @        end;
        next;
       
: I0 S# P0 b0 @: o        dx:=0;
+ R$ r: v/ C$ f+ |" b$ r9 z        dy:=0;
        for i:=1 to number_of_machine loop
6 W! T2 O* T5 `/ M' P6 y1 ?9 L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
' ?& N, P3 \$ Q7 ~1 k                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 @. V+ d& V+ L4 v& [& t! ^                        and activityspace[1,rows]<(1.05*y_max) then
9 W, q+ w6 @; t4 ?4 I                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 m/ B6 R5 k1 e                        activityspace[1,rows]:=ct;
                        mark:=true;
7 K( G; N6 y! w7 w                        else*/
9 T9 t- H8 O  l0 w; a5 r: p0 V                        y_max:=y_max+dy;
) g0 Z% w; O9 b5 M4 k: F                        dx:=0;
                dy:=0;
6 L7 C. J; p6 N- X: v" y                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 p5 t( q: I" M  X$ ~                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 J5 y' X5 A* J+ @4 |# ]  b            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
( w9 A" M4 r! V1 P                dx:=dx+activityspace[1,rows];
                /*if mark=true then
+ f* W" k7 l& N$ N# A9 y                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( G3 R0 d2 s( E+ Y6 w4 k! i  j# l                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
3 ]- P/ h& Q3 u" m9 D$ a        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);
& g+ m% j' e6 H( T, d$ w        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);
       
$ }1 D8 ^4 Z/ N/ }. D        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
, n9 I8 [7 [7 \# [                                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];
/ c. J& d7 r6 u! Q                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
! [; ~& q/ V" q- y$ E  r                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
0 k( F* _6 R7 m6 O& t                next;
2 Q4 D. U! S3 }) P        next;
5 Y- ^- u; b8 O/ m0 e/ L6 l  N       
        lines:=0;
; r4 E$ U- J1 c* T        partstable.delete;
       
        for i:=1 to number_of_machine loop
7 @: `0 U& M+ o# Q/ b7 Q5 \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
9 `1 f4 k4 I2 K1 Z# _                for j:=1 to number_of_machine loop
$ `* ~6 q! N( s5 w                        if w_from_to_chart[j,rows]>0 then
1 I  B9 R. R: Y; \                        lines:=lines+1;
4 b( y+ {( G# h3 @2 q4 B5 e                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) X% [* Q1 P( E                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; e$ E9 P: q  O2 Q  W5 [                        partstable[6,lines]:=j;
                end;
        next;
3 T7 K$ B4 E/ x# h/ h7 k9 G' W8 G' l        machinename:=sprint("M",rows);
* N6 ~' ^3 S! n2 W7 v" w        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];
' P% W3 c$ }  }3 ~+ O" [& I        machine.exitctrl:=ref(leave);
       
# Z+ S3 [8 z; P: P' l. K        bufname:=sprint("BF",rows);
1 ]) E9 e: P. o* S( J$ 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]);
$ O" l4 o- r# i3 f9 i        buf.name:=bufname;
        buf.capacity:=5000;
' t; D* C' f, m, ?        buf.proctime:=0;
9 i$ C7 K1 Y2 P% t        .materialflow.connector.connect(buf,machine);
       
  p" b% i6 @( K: E1 j/ m4 O( d        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;
8 b3 ?8 D2 b" k/ O& m. h! Ycurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;