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

zooey

is
3 N: `" @0 H3 d  `, t. Y        mark:boolean;
$ S1 \6 j; W, ?        dx,dy,ct:real;
    i,j,rows,lines:integer;
% Q+ w% E9 p6 w4 k) l' r- ^    machinename,bufname:string;
% d5 x) S) P6 }$ ]" K7 W    machine,buf:object;
do
! h- x( X# }- ]1 P        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)
% J2 q; S& z1 ~3 u                when 16 then
                        print"yes";
                when 32 then
. a: ^7 E$ e3 }5 t, b                        print"no";
5 P7 o6 y' _) Z+ K                else
- U' @7 z0 O) ^+ o; b# x& Q6 }                        print"cancel";
                end;
                eventcontroller.stop;
3 x! D! I8 A# p% D; |! B( C        end;
       
1 w9 r) S9 H* ?$ \9 K3 x2 R: |/ @        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
6 V( ]0 [% u8 O2 s        if existsobject(machinename) then
5 F, a9 @' W% [& \1 v+ Z. K6 k                machine:=str_to_obj(machinename);
! y# K8 c% m- p5 s                machine.deleteobject;
        end;
" }7 D+ C# y2 f$ T        bufname:=sprint("BF",i);
        if existsobject(bufname) then
* f2 d' G( I3 O* e! s; J( E                buf:=str_to_obj(bufname);
. @' J! P* s/ ?; t9 K8 Y9 |4 y                buf.deleteobject;
+ \4 e( y0 P' P- |) l4 {- {        end;
        next;
. s0 w& q# |- S8 M; M       
        dx:=0;
( \* H8 Y. e$ J  C( I        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. J" D# C  L4 i! o7 w3 J                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
( C1 c/ @# a7 ]% t# o( r0 Z                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# T& J# ]8 J& O) m2 J                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
5 K8 m1 }; \: ?- g                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
* e- a0 m+ t! E0 b, A  w# D- ~  `                        else*/
- Y! Z! b- ~( Q- o3 {                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
& e$ ]1 c; J# A1 H( Y9 t                        --end;
                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;
. ]; e/ g# i/ f0 B" v8 z6 \! p; O            if activityspace[2,rows]>dy then
/ P3 k- L7 L. e# h, x                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
7 d( [* j2 D8 ]2 j; y8 k                /*if mark=true then
& K  d$ Y9 g0 k; O7 G, I                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
: x/ D( X8 P; f6 R! K' D. F        y_max:=y_max+dy;
1 @) k& V% k/ p        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);
2 Y' B) M& j5 \! Z5 i' J7 ]' j        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);
, I; A5 h1 S( Z       
! }4 m. S( o# k0 V        rows:=0;
        lines:=0;
+ A3 [5 `# ^, F7 ~  j$ p  Y4 ^% Q" f        for i:=1 to number_of_machine loop
! U& E$ U, R) U# @: H6 ?% P/ r                for j:=1 to number_of_machine loop
                        if j=i then
9 }2 Q! }% n8 I; ]1 H& ?                                d_from_to_chart[j,i]:=0;
$ Q/ I+ a6 ~( c9 B2 y; G$ j$ s                        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];
: E$ J% I# l% b                                d_from_to_chart[j,i]:=abs(dx-dy);
, H# p2 b1 g( _1 q1 [                        end;
$ G4 d; g5 ?8 b3 y) e+ R                next;
4 g1 j3 m" \- A% {( J& r5 R        next;
       
, p' C0 w! I2 o& X2 U, J3 X8 }        lines:=0;
        partstable.delete;
1 n6 B0 N5 T3 P" g% f: P       
6 W* _$ z9 k; U( g        for i:=1 to number_of_machine loop
) Q! s' c% U& @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 M% ^& ^9 s" v( u                machinesequence[2,i]:=rows;
1 x; H- x  j( ?) u                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' `% n5 O( g. D( c( P                        lines:=lines+1;
' I5 ]2 J  W, L9 D; D* i! o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ [( r& e* w( T' E* q% @6 d9 K* g                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 H8 [( W9 P6 t6 V                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
) i1 s3 r- g# O  M! ]0 D+ k4 o5 S        next;
        machinename:=sprint("M",rows);
, r3 V6 ]" ]/ [! K! [! R% f        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]);
( p: R1 a* d( `6 ^        machine.name:=machinename;标识符未知
) ]2 p; Q: t/ c- P3 B+ I1 X* W        machine.proctime:=5;
+ B5 g1 a! m; r/ T( K* H: s. v- @        machine.label:=activityspace[0,rows];
5 c7 J9 g; O3 C        machine.exitctrl:=ref(leave);
       
, x$ {" @# C$ C. P/ `        bufname:=sprint("BF",rows);
3 R' Z- d& ?8 _- J5 i% \, 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]);
! ?+ {4 c6 j7 S0 r9 w        buf.name:=bufname;
, o% V8 V% k' K. k6 u% J: y        buf.capacity:=5000;
        buf.proctime:=0;
1 E! d4 ~7 Y/ B$ b; `5 e0 ]        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
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;
- o9 t6 U! r4 x3 eend;