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

zooey

is
! f- T6 N( x4 [0 g9 T' ^1 _        mark:boolean;
        dx,dy,ct:real;
$ H. n" ?# M4 \; \8 {    i,j,rows,lines:integer;
+ r! c2 L- i! h) w4 L2 z    machinename,bufname:string;
1 F" ]' I6 b1 e% k6 b7 |) ~* v    machine,buf:object;
1 X8 J( m- [* g, l/ ]do
8 J5 ~* _- ?2 S        current.eraselayer(1);
+ B; T) N7 Y+ M       
$ y& f4 g( }" N4 q/ X$ ~& F' d* C- R. x        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ n0 s% k! ~1 D  v                when 16 then
" e" w* w' h9 V                        print"yes";
                when 32 then
% L5 ]: i5 O# Y; h% ?3 O+ B: P                        print"no";
. e# ^' W& w+ x. _' C/ k                else
; d! D: |8 i4 H  Q4 F8 [# i" t. l                        print"cancel";
  i. p  E4 K, Z                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 V* \" j% X* c# q        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
: v) T2 T0 m' V; n% C$ ^, }; h& M% S# z                machine.deleteobject;
9 Y: u5 Y8 ^, x% B+ y  h" z" {        end;
& Z5 A8 p  Y+ N+ U/ x        bufname:=sprint("BF",i);
8 H, A1 Y: A% E! x% C5 U. d/ o        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
* {; D4 f; R$ ]% O# q3 F                buf.deleteobject;
5 T. N4 s1 s5 b  m        end;
        next;
       
        dx:=0;
! L7 ], f  {3 u5 s3 I& F) j        dy:=0;
        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]类型不匹配
* N8 U8 }5 q8 i8 P                then
% M, B% C5 n3 {4 `% S* j# E% G2 m6 G                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& F- p1 y* R- ~+ ^) u                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
6 ?3 [, ?- p. \! r( k                        dx:=0;
4 ^6 |1 z! m! c, e8 `) w                dy:=0;
                        --end;
7 f* |9 [8 f' ]" o- L  R                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 G& V) ]2 B% i. I/ n8 Q( P                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
* y7 T' E  I* o+ t                dx:=dx+activityspace[1,rows];
5 Y1 N) D6 W& ?0 _( w' C                /*if mark=true then
                ct:=activityspace[2,rows];
1 t2 Q  f8 [7 p9 b: H& N                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 P& C8 k2 D, D3 A7 J1 \& }, t                        end;*/
        next;
. a* J3 `# T: w, j$ K" ^2 m1 T        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);
* P" N$ ?7 h# d5 t$ S        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;
) q( ^  P( K8 v* k        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
; _+ w  Q/ t: ~: @! F1 t: J                                d_from_to_chart[j,i]:=0;
                        else
% X* T$ I- a& k  U, s! G                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; C' T8 j7 o! @7 S                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
1 ]( K! X. T0 m& A                                d_from_to_chart[j,i]:=abs(dx-dy);
! b$ O( W6 B( U6 t; u. a. q                        end;
4 i5 X0 U4 O- ^1 U1 G: }                next;
' J! D+ N% x" w1 o& I        next;
       
        lines:=0;
# r' y3 r8 G1 [) s( i; V* i        partstable.delete;
       
        for i:=1 to number_of_machine loop
$ _6 j! v/ c& {: H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: S* T6 {% Q: @9 _                machinesequence[2,i]:=rows;
) ^/ B& b; ^' q5 }; R' f6 e& V                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
5 m7 F8 C3 `" Y                        lines:=lines+1;
4 q# P. `  T$ ?3 j( U1 y/ }                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; k  y& `8 K( V9 K0 X                        partstable[2,lines]:=w_from_to_chart[j,rows];
, `# Q4 I- p* v/ i( `6 D5 a                        partstable[3,lines]:=sprint("parts");
' \3 b. @! o8 n                        partstable[5,lines]:=rows;
+ A0 l( a. X. H# U; n8 y0 _                        partstable[6,lines]:=j;
  n3 k9 U; ?  f                end;
( g) g! ^# z$ l4 ^        next;
        machinename:=sprint("M",rows);
4 R0 |+ A% Z5 [- }) f& \' f. 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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
1 N1 `( b: N- o) Y+ u        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
9 @0 U: [% [: b" C1 s. P        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;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
5 C6 R# u7 V4 n  W. N2 v. p1 M        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: L4 ?- C2 V# ~; ~% Ody:=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);
5 p( M- k9 ]1 R" _6 R' q- l8 a1 Y: lnext;
& l5 _- v/ m+ `$ P+ t4 I8 d7 C+ wend;