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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
& B/ a( W+ ]! [& K) ]" v* m% p    i,j,rows,lines:integer;
0 r: T# q* B9 u4 _    machinename,bufname:string;
    machine,buf:object;
1 f# v: t9 p9 M% t* ydo
        current.eraselayer(1);
3 ?3 T4 u/ j8 y$ N# ~       
  |) V6 M6 \$ H' ?1 r& M' n        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 n5 k* p5 {7 j                inspect messagebox("设施数目不对！请核查...,",50,13)
1 F( ?/ F. M/ a                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
9 n1 W+ _. D$ r) h1 a                        print"cancel";
                end;
9 p: S) ]$ }: F! Q2 z+ T: d4 Z  M  @  y                eventcontroller.stop;
( L) `. G8 c# e9 B0 m        end;
' a" c+ H7 O7 p1 U  [/ p- |       
  j. G6 d6 O/ D8 }, {7 K0 D. r        for i:=1 to number_of_machine loop
* v- z6 j5 r+ N5 _4 o- r1 A( t1 A6 a7 Q        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
4 i4 }6 g1 x; \' ]5 [3 T        bufname:=sprint("BF",i);
        if existsobject(bufname) then
' Q2 b, q2 j1 P$ y! B9 J6 Q                buf:=str_to_obj(bufname);
                buf.deleteobject;
, G0 w" i3 Q4 B2 Z2 `) W6 H        end;
        next;
0 F, |+ L9 s. L       
        dx:=0;
( o+ x; T9 X, j1 D1 Y        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' Y) D1 f6 B4 u$ q" x1 z7 v1 X                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 I/ d5 k! v  ]0 L) F4 p                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" V" u8 H& j, [1 }" a. Z" D" u                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
6 x1 I2 Z1 m; u7 R' I' b1 @4 t                        activityspace[2,rows]:=activityspace[1,rows];
6 P3 i" W4 @. D1 p/ ?/ g                        activityspace[1,rows]:=ct;
                        mark:=true;
, z: b" i0 w* z; k9 X                        else*/
% T! M* D8 r8 D) V/ T8 n, b                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
$ J6 ?% n) y8 H. F: V) `8 F& x, D                end;
& S- O( B  J1 }                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;
! C6 i4 ]& R+ ~: R; F                dx:=dx+activityspace[1,rows];
  K& F. E7 e6 X' ]) O, S, a! b                /*if mark=true then
5 `$ p2 R! \3 G( t2 Z; i8 r: Q                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) W# W# a/ j  o5 Y% ]1 h+ J* r" w                        end;*/
' v3 m- x8 o9 H- s" X, I        next;
. A% D- |, F, @% L3 C        y_max:=y_max+dy;
% [5 Z* c( ~7 O1 ?# k8 e9 {        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);
5 i% J8 a8 b( I$ v0 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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
' x+ E2 _# T# q. V) d5 y                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
: \9 ^/ N- s( v# w& @  a7 B: }                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
. A' y% S; v. {& b* E* y                        end;
% B7 c1 p) U( s; B                next;
6 m+ |( U" D: a) H& P8 C7 T        next;
       
$ o% W7 Z4 q9 n        lines:=0;
        partstable.delete;
# c3 F/ G5 t. p: a       
; {& d5 w: R% l" L0 v- {        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, L8 k1 C( S; ]% g2 L                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 C% K8 w, k# h: }                        partstable[3,lines]:=sprint("parts");
" m$ V2 g; E6 e: H: W* Y                        partstable[5,lines]:=rows;
% R$ _$ O+ Q- w/ _/ T                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
% J" A4 P) ~4 x3 M- V) n        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;标识符未知
1 P; V- T" E& N1 B! @! z+ D- e3 W        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
( h2 G$ R9 W2 o9 D! U" K        machine.exitctrl:=ref(leave);
# G' Q# b  h. a       
        bufname:=sprint("BF",rows);
3 N! S) @, N; d5 v' r& S+ m        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]);
* r0 i7 J( e5 w        buf.name:=bufname;
        buf.capacity:=5000;
: q- O8 R: I: V        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
7 a* v) [: m1 g4 i( u" W        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& ~8 `+ A' n7 G2 bdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
* y3 \. u9 L: W6 Ncurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;