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

zooey

is
0 l6 B5 i; l" N) H$ F0 P        mark:boolean;
9 X' L( k. r: w3 \6 N# }, q' p! ]        dx,dy,ct:real;
9 |% Z* N) K  _! c  R( S    i,j,rows,lines:integer;
4 G/ ]6 I* g5 d4 z    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
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
# T- v5 G8 p' k7 j$ v1 q! i# _                eventcontroller.stop;
        end;
1 E9 ?* L; |) o, z       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
& x- l7 I5 h; J2 Z        end;
7 u! [, c6 D0 y4 E: M: b& _, f        bufname:=sprint("BF",i);
1 P/ _7 I+ G9 {7 M        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
# \1 l3 l# S& S; D% M8 g$ ^# n( g        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 U1 a$ Q' ^' s1 Q$ l                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
! j( L4 i1 a/ P, G6 P( u: G                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
8 M2 _& z" U9 B7 i: f                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
2 i$ Z* S! {8 c0 {+ q! ?5 G2 m/ k                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% T. H$ y+ [3 Q6 X                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
' Y  X2 f* j( A1 t* \                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
, j2 K+ R$ O9 |, ]* u3 {" M# ]# ]                ct:=activityspace[2,rows];
  C. z7 R* |& N: v# A+ T$ o8 X                        activityspace[2,rows]:=activityspace[1,rows];
; Z& B0 C* Q) y3 h                        activityspace[1,rows]:=ct;
: X3 n$ h6 `  B. b                        end;*/
. P  f: t9 _8 ?        next;
' }0 F& }* o# ?3 _        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);
       
, e3 L+ o& B  m  x! I! r        rows:=0;
/ C: q( [  h5 D, Y0 f9 ?: d        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  Z- D, F+ R8 G$ w, z1 [4 }8 v                        if j=i then
9 |# y! ~/ p/ V8 ^                                d_from_to_chart[j,i]:=0;
) _& N8 R1 r4 ~* J5 }                        else
; A4 T/ x. o1 O+ B9 c8 j: X                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
, R- H0 _- u1 u" o                                d_from_to_chart[j,i]:=abs(dx-dy);
5 J" d6 \" k  t* S7 U1 i$ H6 m                        end;
                next;
        next;
       
        lines:=0;
# |& ]2 l0 w8 S& ]8 M' x        partstable.delete;
       
! D+ f$ _+ T6 D        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' G$ S, Q6 [' C& H                machinesequence[2,i]:=rows;
* `$ u; j9 j+ n1 n( m7 W                for j:=1 to number_of_machine loop
1 k; Z& I* l% j5 [$ ~( e                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
5 U$ A3 ^/ {8 t3 F4 h  K# f                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 P) z8 Z' Y& E. X2 j" j5 r                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
9 d  R& m% S; q2 Q# P+ v% S                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) L. ?2 v$ r7 p: p6 J- s; M                end;
7 c1 w6 l! h( C" Z% i4 ?        next;
* S, k  x. A1 P4 ^+ H        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;标识符未知
$ R, F; H( t- ~9 O1 g! E( W/ p# h$ g        machine.proctime:=5;
7 D- F" J8 i9 K        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  R$ q$ t7 ?  k! _; ?! ~       
! E8 ^/ y+ l# X& Z' N5 A+ f        bufname:=sprint("BF",rows);
1 F6 b5 C# G' j# t+ D        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]);
8 p0 b* i  i; z& B, _, W1 m        buf.name:=bufname;
$ P# _9 J2 Y! \( N" J        buf.capacity:=5000;
% X: f" L- F9 U        buf.proctime:=0;
+ t1 \8 K; A# k        .materialflow.connector.connect(buf,machine);
8 t( B4 D& p( \" K0 Z) _* P       
3 d' V, k. r6 Q6 Q* [! 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);
# D4 V; G& K4 O5 O! Inext;
end;