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

zooey

is
        mark:boolean;
. j" [0 t4 P4 b% t( T        dx,dy,ct:real;
" [( g+ m# o) h8 T$ T    i,j,rows,lines:integer;
4 y0 O7 X1 f/ s6 L3 k' B+ S0 q    machinename,bufname:string;
    machine,buf:object;
4 M& m, u; [* v5 Wdo
        current.eraselayer(1);
9 E4 a$ C1 o8 A7 G       
+ c; @( M" b' q5 s" Z+ `        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  r: C# ^% k* d" p( c                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
; C7 u+ h. R# `- H1 s0 a: S, E# R                        print"yes";
                when 32 then
                        print"no";
  f% |, I+ B3 ^8 r& _                else
9 T. X: M6 ~  p6 k0 h                        print"cancel";
                end;
' k& r2 ^! o6 D" W  f                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
" ~) @1 }1 J9 q" f' _        end;
2 \1 Q# Y8 V$ ?/ K8 i4 k9 j7 |        bufname:=sprint("BF",i);
7 s2 K+ N% C# u$ N        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
$ b* s) q  T% l3 o4 a0 Y        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 @, O/ N" Z% q                --mark:=false;
5 w4 S5 j9 T$ p- K, k. n; T6 l                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 e! o. a0 Z$ V4 Z                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& n: F$ k/ Z# Y0 Z- o$ @. }                        and activityspace[1,rows]<(1.05*y_max) then
. |$ }& a( A* [5 g# z7 c! V' a) X1 X                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" O9 l$ k& T5 @: k& z  {; [                        activityspace[1,rows]:=ct;
                        mark:=true;
: o$ N" p5 A9 J2 l0 m& B4 H# r( r: Y                        else*/
! w8 n0 `* G' C+ E                        y_max:=y_max+dy;
2 E& o0 W( a1 L( k, N                        dx:=0;
) e2 r' c: C1 L+ i2 q9 o                dy:=0;
                        --end;
                end;
9 A% {, N. O, l9 q$ i) \  g                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
8 ], x- K9 z! b0 A* E  I0 n                        dy:=activityspace[2,rows];
                end;
) s% ?+ O/ H. |% Y                dx:=dx+activityspace[1,rows];
                /*if mark=true then
! E* F; I* }6 J, k& W                ct:=activityspace[2,rows];
+ h3 b8 b# ?4 n* R) m                        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);
  a% m8 Z7 ~6 u       
" d! n3 c& K/ m) R5 H  `        rows:=0;
        lines:=0;
$ y( a& {: C+ l2 c5 t0 r        for i:=1 to number_of_machine loop
7 M/ N$ i  O+ j) m7 f) h2 N" n                for j:=1 to number_of_machine loop
                        if j=i then
) ~% Z; D( A7 S& q- a                                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];
, U6 L* t$ T8 g/ H" N8 b                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
$ `7 T* @7 p) N; N1 v2 @7 e3 U                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
. i. r3 j: |2 ~2 q        lines:=0;
  s; `1 [; x  @6 f) i3 V/ a        partstable.delete;
6 R5 g0 V( x. \& J       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
: i' L  |3 P) H                for j:=1 to number_of_machine loop
* [5 K$ X# V, V, _0 a4 ~" N  C                        if w_from_to_chart[j,rows]>0 then
$ `; K1 |; Y! G+ Z4 ~: Y                        lines:=lines+1;
                        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;
0 H9 z) I$ `9 I                        partstable[6,lines]:=j;
                end;
* i/ x' Y! x7 D) X1 K4 W# l# Q        next;
        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;标识符未知
        machine.proctime:=5;
$ D2 H! z4 k  I0 N3 {* e5 R        machine.label:=activityspace[0,rows];
, m" R! _" v/ W5 k# U        machine.exitctrl:=ref(leave);
       
, a8 O* X. n$ S( @2 P        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
6 K: H) M) E. M8 x# B        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
% ]+ }6 b0 x$ g  D# X: J& A0 S       
" I5 _$ f! Y$ E! Q7 @; z        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;
& M4 i  t2 {% n/ P% dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
7 X2 k9 c4 M/ _/ u/ Gnext;
3 Z& c  p4 w$ N/ c2 iend;
+ j0 X% X& f  e+ R: m' K6 g