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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
( d) Y. }- S* W# p    machinename,bufname:string;
! s, r0 y% L. d& U! g    machine,buf:object;
do
        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)
- b$ y# i9 u% s$ c) y( R; @                when 16 then
                        print"yes";
3 i: y! V# C5 Z+ ?) f                when 32 then
                        print"no";
/ g, M& {; i$ W9 U" H                else
                        print"cancel";
                end;
' k7 N  W  ^- R7 e3 Y  k                eventcontroller.stop;
        end;
! K( \1 g* O! y. C- L$ X       
* @0 L% n7 \8 P) J% p/ p        for i:=1 to number_of_machine loop
: v; @" C) Y$ U; d' b; O( v/ W        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
6 |+ y) `- h( X                machine.deleteobject;
9 W& c5 @8 C  E0 ~        end;
6 _" V: ^7 l% a  |: J        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
9 [. D) L; K" t3 ?; q       
8 H' i+ ]0 ~- ]! d        dx:=0;
        dy:=0;
4 L1 _% C! g, n: y0 a9 h7 B  ]0 l        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
6 G8 @7 s5 Q" o# c0 |$ \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% y' D# L2 Q/ T. r. X                        and activityspace[1,rows]<(1.05*y_max) then
- p- U- }2 z3 T& S5 I4 H                        print activityspace[1,rows],",",activityspace[2,rows];
# R, s# n% f6 }% I, r4 q/ C; e                        ct:=activityspace[2,rows];
1 N0 N3 S/ _* ~* P9 D3 x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
+ z& _9 E1 P$ y* v: ?7 z/ ]4 u                        dx:=0;
" V8 }. J5 g7 w# R& _' _                dy:=0;
( b. W; J4 M) @+ Y) _$ X                        --end;
$ ?7 D) f( \* Y                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;
            if activityspace[2,rows]>dy then
! f5 E3 b2 e5 l+ O# T                        dy:=activityspace[2,rows];
& [4 j: ]& a" z+ f7 ^8 b1 f                end;
                dx:=dx+activityspace[1,rows];
) ^( R0 h% J  F+ [7 G  n- [                /*if mark=true then
! u& r: p0 q( ?' S                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 ]& a& i, F8 P                        end;*/
, ~) y& q/ N1 Z4 Y2 p5 \9 O/ q( U% c        next;
$ ~8 x- q, P  e. y; i        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);
7 J5 T9 u& F/ v) p        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;
7 y' |6 h1 u7 @& ^        lines:=0;
# R4 i" j6 @: c        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
$ w; n" a! T  u8 _$ {4 M! ^                        if j=i then
9 Z: ]  f1 I  Q0 r                                d_from_to_chart[j,i]:=0;
) n# k( t* T2 @6 n, i0 X                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  f: l2 D- \* @" z7 M9 D                                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);
                        end;
                next;
        next;
       
2 G6 n" U! D7 o8 w6 b6 i2 e        lines:=0;
        partstable.delete;
) \& C9 ?* |$ t       
- [' g8 l. _$ K- I+ y5 j9 \  h        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# \# x1 ]3 Y) F6 Q/ h" r4 {                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
; |( r" U0 K# X1 o                        if w_from_to_chart[j,rows]>0 then
2 H& h7 W  {! F; D% h3 |- t: s                        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;
                        partstable[6,lines]:=j;
                end;
        next;
; M! i- |7 V- T: |$ C  m/ R, q+ x        machinename:=sprint("M",rows);
; r' W" Z; v" d/ e& g6 g! Y8 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]);
' n4 ?) {: r4 j- M        machine.name:=machinename;标识符未知
  v" P6 a2 S0 r7 ^% E/ ]( p& Z        machine.proctime:=5;
/ ?; y) c! E* \  ^        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
2 ]7 f2 Y; i7 O# c       
% ?$ l8 c$ {5 i        bufname:=sprint("BF",rows);
6 _4 z# ?2 M: c1 S  Q* Q* |        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;
! {2 V* x' b3 B, x! v: r        buf.capacity:=5000;
+ ]/ _4 p0 u7 m4 G        buf.proctime:=0;
+ {4 E# @* D6 J        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 B$ ]2 |3 X3 [; Y2 w1 W* w. [dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
% I# p; H  B4 }( r: V& tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
' v0 C0 s0 u  F: ]% inext;
, U& O, c4 |4 w5 B$ H$ |end;