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

zooey

is
0 z3 Z9 P4 q, k: {- N' W7 k) I/ x        mark:boolean;
/ p/ b$ N" H. k0 }        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
% f! R" v& W' u# L/ f    machine,buf:object;
% A. O0 d" V7 W- hdo
/ V$ Q/ z; x. `4 Z        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' L/ f+ J! D3 w$ b* j0 O7 K# i- R2 I                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
8 i$ P* _: J4 H                        print"yes";
                when 32 then
                        print"no";
                else
2 G% J# t9 ]# T: H# t/ V1 x                        print"cancel";
5 t/ O% W' g5 h7 l- G# z# j                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
& h+ P' a7 H0 Y        machinename:=sprint("M",i);
6 P; h3 G% X" N  O5 j+ y        if existsobject(machinename) then
: _- Z% j3 c! V                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
1 N5 a- R. t8 E6 d2 @        bufname:=sprint("BF",i);
; N3 a+ P  w, ^& i( S        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
2 A0 H$ K+ Z* W! J, @8 r) K9 B* ]                buf.deleteobject;
        end;
# T. I( X( @- j- R! @        next;
$ f: G8 o8 g" d' b9 {4 Z       
( \: ?! u1 s) ]+ P* A        dx:=0;
7 V  a  p1 C1 o. `5 n        dy:=0;
5 A( d+ B3 Q/ b- Z% N        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
. I8 a- D  C7 F0 `                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
) ~  N0 R( c1 u, _                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
* o7 ~* e# q) ^" Q                        activityspace[2,rows]:=activityspace[1,rows];
5 m- o& ?1 k+ H1 e# Q                        activityspace[1,rows]:=ct;
                        mark:=true;
3 Y8 h/ l* u. O: Q) X                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
: I& q, R2 E( I* q  f5 K                dy:=0;
# ~/ H1 B& d: ^( J                        --end;
4 I; g# {- l/ i! K9 ~$ Z6 i9 d9 c/ h                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- A& ]' |1 o4 r6 n+ r- ?" W, o                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
" I. A& e9 b7 D7 Z; T            if activityspace[2,rows]>dy then
6 [- G& g& V% ?6 h$ @, B* o                        dy:=activityspace[2,rows];
                end;
" E" I" E* v) L. }  n                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- P6 Q6 ~+ ~& ]1 t2 F9 U) S$ C. t- {5 ]                        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);
( m- j$ S9 L/ }+ B        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);
$ X* a9 J$ S3 a. n5 D( s$ r  P       
! t+ X- P% ^; z1 U        rows:=0;
, m! E' P, Q  C9 T5 u; ?! Z        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
! l! {. ]* r4 a) D* u                        if j=i then
, U3 R, O, l0 n" v( ~                                d_from_to_chart[j,i]:=0;
0 f+ o3 c8 Y& d                        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];
: x  p% J9 a8 z) e9 d$ x, b  A                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
5 M' [# h4 p3 ~  F1 t$ ^$ x        next;
       
        lines:=0;
        partstable.delete;
       
. P+ X8 o: T6 ]/ O% c        for i:=1 to number_of_machine loop
6 X! }8 X; w1 S) Y9 \0 w/ {+ x) ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 N  u5 O6 j0 w0 c1 S" A                machinesequence[2,i]:=rows;
' b* A" ^' i( ~. |& ?9 {1 K+ C                for j:=1 to number_of_machine loop
! R; o: d: _( A2 [$ f9 e                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
2 g% _; ]8 {/ i1 ?! ^1 F                        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;
. R$ ]! `+ n2 B7 s: u/ [4 m                end;
        next;
        machinename:=sprint("M",rows);
8 N( [' H# T- [; Z  R) w  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]);
& I2 m' z4 I* p1 B# z# l# E        machine.name:=machinename;标识符未知
5 r8 e1 Q2 s* e' Y        machine.proctime:=5;
$ u6 u' v& U# v  M# D. n        machine.label:=activityspace[0,rows];
3 U0 t( |+ A" G: w        machine.exitctrl:=ref(leave);
7 i3 X9 r. I( e       
        bufname:=sprint("BF",rows);
) T4 R) R2 A7 H8 N8 j1 {8 n        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]);
9 h9 ~, ^- P, O/ J9 K. I4 `        buf.name:=bufname;
: c5 }5 ~7 Q- q+ a        buf.capacity:=5000;
1 V2 f# A% H% g        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
& o( }: m" |4 u' Z& }' N2 Z       
3 t) i" _$ K9 I5 G7 n6 N        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 {  n, A0 n7 j; [' g# ddy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' X+ i2 l% H5 |' M: w1 ccurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
+ D( a1 G2 s$ G+ {) n3 kend;