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

zooey

is
% b5 |4 B. Y2 U0 D* x        mark:boolean;
4 v  X8 i" y% c  a+ C        dx,dy,ct:real;
  _% _3 m- v4 N: a; ?    i,j,rows,lines:integer;
    machinename,bufname:string;
+ ^6 H5 f0 y* M3 i4 c9 T    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)
                when 16 then
( l! Z) m! z3 }                        print"yes";
# i2 J! N' N$ T! s  A! v+ g6 i                when 32 then
                        print"no";
0 l* r. i  D3 M6 \                else
  ^# x8 V; U7 g: C# |                        print"cancel";
                end;
                eventcontroller.stop;
1 B% V) w$ w) M6 I, z( b        end;
% e9 |7 h, J3 ]  J7 n3 Y& D       
- }: d; l1 w# x8 b" y$ t        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
% E( k' g3 N+ o9 E+ E  |+ I7 s' d- `% w                machine:=str_to_obj(machinename);
" C" d; S$ g* h4 P$ e                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
7 q6 }9 N  @* X8 `4 A( h8 _        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( u8 E0 J5 Z1 Q                buf.deleteobject;
1 V0 o2 D$ \% ^, q! P" a) k        end;
        next;
" o9 j# Q+ M. y; y  ~) N/ _       
1 W5 v2 @( E4 w9 K5 g% O( [) Y        dx:=0;
9 L5 l4 [$ K/ N: Z3 R8 D& T        dy:=0;
        for i:=1 to number_of_machine loop
2 v$ K" L# h* r. D4 R  c( v$ A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
6 F& h2 D2 E* i, U                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. h: s/ `/ |2 u                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 Y+ [) M+ [$ {- Q5 B7 A, q5 i                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
- h& ~6 m9 p9 x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
2 g- L& D7 e5 l  s                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
& G: k' N; C6 P2 q* S$ e0 M' w                dy:=0;
                        --end;
                end;
! s' E8 S% E8 _% W+ ^& Y, M                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; w# T& A; n0 Q3 O, [6 A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 N8 G1 g, {5 ^+ y3 ^# P            if activityspace[2,rows]>dy then
( x. s8 j+ @  O                        dy:=activityspace[2,rows];
1 k! b7 l: F, m; T) H                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
+ [8 U- i/ _+ R+ s) F                ct:=activityspace[2,rows];
& u- p) M3 |, ^- g4 R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
1 n6 R. |2 a. b: _/ q" n8 p1 t9 b  G        next;
        y_max:=y_max+dy;
) e) N8 x4 _) Q6 d0 ?2 h) i& Y        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);
* z# p5 O8 N+ B* M" G! `5 R        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);
5 z1 y9 \0 X- L: ^" ~! ~" }       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
1 k# g* G5 V' I% W                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
" i0 R* I' E$ ]$ M; F+ I) t                        else
                                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);
) O. J8 W0 t( S* @4 ]) W8 V                        end;
                next;
        next;
% ?& n* e) g# T       
0 M5 }5 T: K3 E$ p+ I4 K4 J        lines:=0;
0 K# u1 f, n4 f& \$ G; G5 r+ M2 u3 m        partstable.delete;
# ~5 M  g) v* Q+ I8 d       
- S$ @1 s3 v4 @7 n. r+ g# O$ p: Q        for i:=1 to number_of_machine loop
$ ~( \4 ?: ?! b' `% _6 `& C& y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
: @8 Z) H2 k( p) J! A! o                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
: Y1 \& h$ o9 q' |" c( _; D% k                        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;
3 H' W# c; j: v$ I7 C( p                        partstable[6,lines]:=j;
8 K& q: S4 J$ D) m* G                end;
        next;
3 }3 m# w* ?4 Q( r; m8 _* z0 t        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]);
8 C5 o) A% ~0 A. L; Y1 E8 Q# U        machine.name:=machinename;标识符未知
& _# W  d  \  u5 @        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
7 K5 \& ^5 [9 R" u* h! h) c        machine.exitctrl:=ref(leave);
% ^: t1 E( t5 g- p, C       
        bufname:=sprint("BF",rows);
" c; k6 b2 {3 r! @0 e% Z        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]);
; S) f' j5 F' P; V        buf.name:=bufname;
9 S5 O. m1 b7 \        buf.capacity:=5000;
5 D/ k: }* a  v5 ~. }% ]& @        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
* ]/ P) s) d9 |0 x- B       
: b& {! D5 E; h3 s3 e        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; g! M% E1 ?# i2 zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' k6 h% e1 e* C3 o- l1 j4 Tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
% L- S$ X4 p5 ^& a& R( V( X6 Dnext;
end;
+ F* b* B' n3 ?4 g3 C: m