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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
6 E5 D3 f& T: @4 j( `    i,j,rows,lines:integer;
1 v4 W* n2 d) M& Q. c9 m: u    machinename,bufname:string;
    machine,buf:object;
do
- X) C& s- z( _/ F8 Q% j3 m        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 j. c; D; m9 x# f& |$ t                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
7 L" J" k  _" ?3 y# b* A                else
1 u, e$ P4 Y! B8 {& Q/ e1 I0 `1 |) `                        print"cancel";
) |6 B- u& u& P8 o+ I& Q* d                end;
                eventcontroller.stop;
        end;
. H) h; t0 w0 v# A: f       
$ G) ^! z0 f4 g9 q        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
' p2 [/ s0 t9 v. z- A/ R" z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
: I( D( \3 J, m        if existsobject(bufname) then
( D/ d2 I* h, f) _6 C6 H) A" z                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
$ ]! N+ @' {' E4 q        next;
# l9 |4 @5 r; {' l3 v! W       
/ e7 i" ^4 `+ I" P) H, x1 }        dx:=0;
        dy:=0;
# g6 d9 D: v+ ~* L; T! D        for i:=1 to number_of_machine loop
( D9 P4 h2 H# ]. T' {, a6 B  A  X* C- k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' d: i  ]! q' K; t                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, k/ B. l$ \- \# ~7 P                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
7 R( [3 K5 x4 j# A4 m' h                        activityspace[2,rows]:=activityspace[1,rows];
" m& c% E: l2 O1 a/ R3 k% p1 Z% z1 H# C% i                        activityspace[1,rows]:=ct;
                        mark:=true;
% \+ L. y8 E( \                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
: E2 k: S4 S+ H( x+ A1 l2 L2 ^                dy:=0;
                        --end;
+ j$ y7 |& d9 q/ X' X                end;
                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;
9 j9 q- {1 k8 @! X            if activityspace[2,rows]>dy then
" k# N  U1 S5 k+ _& Y) q                        dy:=activityspace[2,rows];
7 m/ p& k/ `  U( b' q                end;
! L0 q* a% r$ f- h  c                dx:=dx+activityspace[1,rows];
                /*if mark=true then
8 P& n# G  Y( ?2 g4 c. |( ^! E! z0 Y                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 l9 n  }4 _2 R2 x% F- a6 i! S                        activityspace[1,rows]:=ct;
9 r# z: b+ u( _' E, y                        end;*/
, z! D4 m4 \5 U) \8 A' ^. _        next;
/ F$ w. k5 h$ ?        y_max:=y_max+dy;
% j$ a* E2 t0 H0 D: \        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
  t& z2 }0 e) s7 G0 A" |1 R. L/ [                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
) t9 L: ]9 R  l% ?3 F. M                        else
; K" L/ H" @+ v# X: D                                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];
+ Z: A+ z2 w: X! @+ S                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
) c1 m' e+ ^, a( k! i, u        next;
; v) l/ v! g# Z2 {6 G/ I$ O/ H       
        lines:=0;
) s! p/ e9 K% O+ y        partstable.delete;
3 h$ x3 h$ K1 B5 K9 a. k* T+ y       
+ D$ E" u0 l1 }9 a. h7 ?9 Q        for i:=1 to number_of_machine loop
1 X7 o& ]* B& A$ x6 _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% L9 D( o+ p* o2 G9 J# W                machinesequence[2,i]:=rows;
8 R" j8 s/ s) l" O' e                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
% a: `) `, T' b, E; V) `* g; U, s7 u5 M                        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");
/ ^  j9 ]; s7 r                        partstable[5,lines]:=rows;
7 R" d" b4 M9 q' @: u+ n; Z                        partstable[6,lines]:=j;
                end;
3 K0 Z! i4 v& m* n5 o# w( z3 d        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]);
) o& }9 p: x: ~8 x  U6 H' g        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
' o, c6 n1 R+ O; @& S* o, n7 v  _       
        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]);
' B' a1 x: F( j# x" t        buf.name:=bufname;
9 I! ^, d& R. r. @- C        buf.capacity:=5000;
1 D8 ~9 A5 N' p, ~8 V        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
& ]$ F1 d" w/ r  a; ]; y        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' C# c  a/ z- p2 _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);
next;
% V# y( B8 s, V; ^/ a! l6 n: kend;