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

zooey

is
# M' L9 A6 T2 o. W' J2 Z        mark:boolean;
, Y& `3 P) u$ t$ Q9 d0 l! q        dx,dy,ct:real;
3 ?# C; _! C  Q- z6 Z0 Z; G" j    i,j,rows,lines:integer;
  i8 X. W, v# L1 u- I) _    machinename,bufname:string;
: E! F+ m" c; W1 F3 `. T    machine,buf:object;
do
& M6 ^: @% K" C0 F, m        current.eraselayer(1);
       
        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
; q6 y1 m! g2 @9 h                        print"yes";
                when 32 then
# {9 y9 ]+ C7 g7 c                        print"no";
                else
* `- B( X# V3 L3 M                        print"cancel";
                end;
. r4 y  u( |; F, w# o' l+ ]& w/ u                eventcontroller.stop;
        end;
       
6 T2 B4 z# K+ B        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
2 M% ^( B2 R" B( T4 V        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
' T7 N3 u% v* l' o! B! I; }                buf.deleteobject;
% b' \6 Y. K( L" Y8 q        end;
        next;
       
& Q8 U* l% P. D8 G( O        dx:=0;
        dy:=0;
        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
) m9 \: T4 O  O# Z; p5 J                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' L/ R5 N+ H; a4 L3 L: h4 Z% I                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
, p5 ]* o: p& v) \! b: R/ w                        activityspace[2,rows]:=activityspace[1,rows];
% v3 x; [) R! m. o: d$ k                        activityspace[1,rows]:=ct;
6 c5 Z( S* |6 G9 s% _6 k                        mark:=true;
" V, v0 o5 U3 M8 T+ r                        else*/
: v; E1 [# _5 ^& b! q7 Z                        y_max:=y_max+dy;
8 T3 F0 ]0 y. r! T+ T8 P                        dx:=0;
                dy:=0;
                        --end;
& k" V- y3 y9 E1 I                end;
& X% s2 C( m! y1 U                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" N8 n+ {! |' B) H; w                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
) e! G" o  m5 D+ j2 ^                        dy:=activityspace[2,rows];
                end;
$ b) A% R; }: x+ ]                dx:=dx+activityspace[1,rows];
                /*if mark=true then
* R4 x" i+ d, }- Z                ct:=activityspace[2,rows];
: Z; K5 D; G, d4 |8 G! x" ^                        activityspace[2,rows]:=activityspace[1,rows];
- E/ `1 d9 G5 ]5 h                        activityspace[1,rows]:=ct;
                        end;*/
% h' l( x1 h1 D. G& |5 }" w        next;
9 X2 A5 s) D7 l/ ^+ G# E3 E/ X) i        y_max:=y_max+dy;
& t) y' {; ]8 t9 Z+ E+ H) J4 m9 E1 G  t        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;
0 t4 I7 b2 F! |        lines:=0;
        for i:=1 to number_of_machine loop
9 _9 U3 p$ k% ~; e; H3 w                for j:=1 to number_of_machine loop
; V) A+ y6 U2 M, A- B6 j                        if j=i then
                                d_from_to_chart[j,i]:=0;
' I3 `' f+ u* H3 [                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 u5 j8 e. _$ `" o& o6 v                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
! x& ?; W) v1 u$ p  C" E' }                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
3 G0 q  @( S) a5 x. O                next;
        next;
       
. I, X" U0 C9 d5 `  k* \- O        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                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
                        lines:=lines+1;
' k+ l- q+ X. H) e& i5 u4 e% E                        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;
                        partstable[6,lines]:=j;
                end;
9 E1 A" t% D0 W0 q8 M+ ^        next;
( z9 w0 m  V2 u' u8 b        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]);
6 w- n6 z) U; p& F! C8 _5 y# R8 W% i        machine.name:=machinename;标识符未知
- L* P& `$ B+ K; `        machine.proctime:=5;
' {* S- \: I5 P: |; n6 L        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
- F4 z) S/ c" h% b" H% ~+ r        bufname:=sprint("BF",rows);
2 H& z( F/ A& d4 @, K# H& h        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]);
1 _. [& R' g6 @+ {        buf.name:=bufname;
' L" @: y2 u/ M4 a        buf.capacity:=5000;
4 Q. M2 C; s) y        buf.proctime:=0;
5 v- c' I; D' h& v$ n9 `        .materialflow.connector.connect(buf,machine);
0 Z+ Y; P# l) w4 w: @. t, T3 l" ?       
        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);
7 L# a" C; s5 U. bnext;
end;
" m* B+ G5 n/ L3 i