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

zooey

is
$ h3 `9 k* j6 f+ B% R3 o# e2 T        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
, u6 ~) N+ y% L) r. O    machine,buf:object;
/ M7 _" g& w3 ydo
        current.eraselayer(1);
: `3 m; V! j% e: o% V       
        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";
( Q. m/ r+ m% w7 Q; {5 s                when 32 then
                        print"no";
( s2 l! K9 }1 e; F7 G& m                else
/ P) G& t2 l3 z8 X% r                        print"cancel";
+ k" I' P# o8 }) t/ }8 H' s9 d                end;
                eventcontroller.stop;
) A5 D- J  m5 u! W. f: G* I- |        end;
       
# ?6 r5 ~  w% a3 Z, j4 V" i0 O        for i:=1 to number_of_machine loop
* M: M2 z' y, ^# {: o        machinename:=sprint("M",i);
9 \4 R+ Z% S7 v5 i. q3 G        if existsobject(machinename) then
; A& _: d, n1 k) ^% _                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
. e6 K9 A! G1 E                buf:=str_to_obj(bufname);
; T" `) p( z! C8 e7 c( Z                buf.deleteobject;
        end;
        next;
% h! V( r7 D- h2 i! S) V       
  L8 m1 P! Q1 [        dx:=0;
# T4 A" r. |( Y+ E1 w        dy:=0;
: Q7 K7 |$ A& C8 i; P# {: h        for i:=1 to number_of_machine loop
) v  X3 V. O, @, ]( E2 d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
& g. b7 |: b' L" `6 _: T                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
! f$ ?# x, F6 |$ ]$ c5 F( H                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
, L" m. Y3 E5 `3 W                        activityspace[2,rows]:=activityspace[1,rows];
& S& j; U, i. B) {                        activityspace[1,rows]:=ct;
3 A+ z7 x' M. @& I                        mark:=true;
# s$ M* p* j+ K( w2 e                        else*/
                        y_max:=y_max+dy;
8 A; r( m5 t6 a; }                        dx:=0;
7 L& c( @: o2 l: v+ I                dy:=0;
                        --end;
) ]- K8 l" Z; Y+ c                end;
+ e$ o* g9 e/ J. D2 e                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
7 Q2 w8 B" \3 A. f                dx:=dx+activityspace[1,rows];
3 \7 I" p3 f1 X                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        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);
6 m. X- n0 Q. g: k       
        rows:=0;
4 n# J  m* m+ K. [        lines:=0;
. [0 c- r( ]5 r( V5 z6 p  W        for i:=1 to number_of_machine loop
4 q: I% ?7 W% H% k. A* u                for j:=1 to number_of_machine loop
$ M# i+ m7 d, s                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
5 ~4 W. ~' s# B8 C% p                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 K5 A3 m; f+ Y! b' H) `                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
9 w& J# W0 t6 C! n; _                                d_from_to_chart[j,i]:=abs(dx-dy);
! O4 O& }2 p' |- Y                        end;
                next;
        next;
1 d6 j0 S0 d4 s4 G* G7 M0 E       
/ A, ?: @; E' R3 |/ \5 ?. U        lines:=0;
( \% K1 S  o1 ^& s9 L) F        partstable.delete;
       
        for i:=1 to number_of_machine loop
9 g* I5 g0 a" I$ Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 h1 }  V- H) `) S. g9 I: C6 a                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' |' a  e! Y" F2 w" m                        lines:=lines+1;
1 G* d# A$ t% M+ F: i                        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;
1 B: r. ]3 o7 E* y+ o                        partstable[6,lines]:=j;
- G# N4 ~6 X: Y1 ?' V6 u! N( `! B                end;
        next;
        machinename:=sprint("M",rows);
9 M3 B7 a% n9 c4 e        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 L) Z4 t6 Z3 q9 Z        machine.name:=machinename;标识符未知
9 v) Z. P, j2 J        machine.proctime:=5;
/ H; F8 G" v3 V6 U        machine.label:=activityspace[0,rows];
- o! R5 l5 K2 U: W        machine.exitctrl:=ref(leave);
+ W, Q( F  d9 S3 ?       
        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]);
- n9 l4 }* T: G. O+ H* K, ]6 I        buf.name:=bufname;
+ `7 ?* {% y4 s( U: e        buf.capacity:=5000;
- s) U2 I& l2 }8 Q        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
) a7 Z3 x+ d4 @current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;