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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
" Z9 `. Y5 m# |, Q9 G! J    i,j,rows,lines:integer;
$ k1 u* s  d4 P2 [9 x  B- c    machinename,bufname:string;
" [6 m) u; [! A0 X+ H8 c1 o) Q    machine,buf:object;
: ^$ G% l9 y' a+ e8 f" ido
        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
% k' p' S0 t0 ?) Y& B8 L                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
% J# O5 m3 m+ x% k3 |        end;
1 ]3 w/ k) U/ a& S: S1 X       
        for i:=1 to number_of_machine loop
! B8 \/ c0 m4 o        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 l3 v" v: L5 K  v                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
& K. B: ^* W2 L( g9 d        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, Y1 E' @+ n% x2 b# R3 W, L  l3 W                buf:=str_to_obj(bufname);
                buf.deleteobject;
8 f0 ]  h, t* P( x        end;
3 a) @% W. b1 A- j        next;
       
        dx:=0;
        dy:=0;
. p9 N' a' T% v; h3 G6 N  H% U        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
. o3 B- W4 ^8 ]. E  T" ^' U                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ I5 }2 o, c0 T& B: |0 I                then
) S. t9 H  z: Q) g                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
+ W+ _8 W3 h0 l: h% D: \  G                        print activityspace[1,rows],",",activityspace[2,rows];
" \! n& j8 n& y+ t- ~$ ^  y                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 u4 D8 H+ W; U! v  f                        mark:=true;
- W# E1 D' z5 _' T/ w7 v                        else*/
7 ?3 M7 k' V1 h& V( w/ ?                        y_max:=y_max+dy;
                        dx:=0;
  S1 U7 ^/ l# j  d  C! H                dy:=0;
                        --end;
                end;
( M4 L! ?; T7 \. _! S8 q  i6 S! K) S( T                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;
4 Q" A, N; @% c7 _) t- H( y  O( F6 j            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
$ R+ @& M0 N8 i8 C5 S  Q1 T* H                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 f& P# S* C/ d( |; Y                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. J( O" C& Z2 K6 C7 e' u& @                        activityspace[1,rows]:=ct;
, c+ \! F5 Q5 q+ ?& U% c                        end;*/
3 s! R0 k+ h0 w! ^, V4 z        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);
0 k8 r' Q! C% I/ c  m        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 k2 T% X. {% v1 N/ N+ P9 O: w8 i       
        rows:=0;
        lines:=0;
3 ?4 H) v4 X8 n* X        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
7 y& g- q& B8 N) [$ e4 V+ }                        if j=i then
                                d_from_to_chart[j,i]:=0;
8 O' L6 H& r: s+ L. u% G% N' B; |/ M                        else
/ o6 `$ B& d: U# N3 |% V                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: d- s5 k" K; [                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
/ d* ]8 h% G% X                                d_from_to_chart[j,i]:=abs(dx-dy);
1 E: k8 ^2 D: T                        end;
                next;
        next;
8 k: d0 M; `- n; e  a       
! V  w" w+ }2 ?; Z0 l. R6 G        lines:=0;
7 Y6 h! j5 c: a. L        partstable.delete;
  r4 O  _4 |4 W0 i( S& }; l  z$ \       
        for i:=1 to number_of_machine loop
& z( r$ ~) v3 ?4 H/ U: C" o/ G9 Z0 I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
: M- @$ l) c( A- M# C6 ^  V                for j:=1 to number_of_machine loop
0 |" P' `: V5 U' y2 z                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 \% h: f2 v, C/ [* `, I+ H                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
/ R3 Z9 z1 P) t; ^' @                        partstable[5,lines]:=rows;
  L9 @6 l* k  p- J+ m& W) Q& m                        partstable[6,lines]:=j;
7 n. l/ h4 i5 P7 E2 K                end;
        next;
' t9 g& n, R2 q" l$ V" F        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]);
1 G6 s7 X. |* T1 q        machine.name:=machinename;标识符未知
  j( W* ]! Z" ?, o5 H- P        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
5 r2 z: ^. p2 D# ~: l5 k  s        machine.exitctrl:=ref(leave);
6 o4 R3 \9 d; S  r       
5 s1 ?+ {/ b! ~* t6 W  B        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]);
( _7 J, S2 N8 z+ q" j        buf.name:=bufname;
( Y; S3 K  U6 g, t4 z! D        buf.capacity:=5000;
        buf.proctime:=0;
! }5 s3 b4 X, u; m8 T$ b* u9 P! m( ]        .materialflow.connector.connect(buf,machine);
% Q3 J2 p, T1 x" F5 ^  n! O       
- Y2 p+ Y- B/ h" \        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: ^  L# k/ V9 ydy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
4 p; t1 U( a: r: L4 Icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
6 Y! }0 o( O+ |' p