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

zooey

is
2 S3 A/ Q5 x+ s* y        mark:boolean;
        dx,dy,ct:real;
/ C: w- B; j% |' {9 H9 G" H- [    i,j,rows,lines:integer;
% @0 I9 g: A3 Y! r5 U0 E    machinename,bufname:string;
    machine,buf:object;
. y& w5 V/ l$ n1 fdo
        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)
+ I- _0 a7 r4 M6 q( F% i                when 16 then
                        print"yes";
+ o) K7 H8 d3 j9 T                when 32 then
* e  z& S! Q# w* V) x! C- v! r" R                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
( A+ {1 q  A7 _7 c+ r4 y' H        machinename:=sprint("M",i);
        if existsobject(machinename) then
$ y6 p" x! A* a3 ]( _4 [# p+ e1 K! F; ^5 Y                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
; w+ `% b: E( X* q0 l0 Y# P) _        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
% T) h' Z; C; p7 r: Y' x: \. a        end;
: f& P! ]) e: l4 ?        next;
       
; z; P3 k1 _. F        dx:=0;
( F) k! M  z9 v5 i$ l$ Y3 x        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 K8 F- M, w+ Q" p" S$ }                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" x( \/ o: o9 }: Q' Q' }$ k                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
, R* F; c/ G. P2 c6 s0 Z                        ct:=activityspace[2,rows];
8 N" |8 H+ ]* ~5 m" }% y0 A                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! H- [5 C. ]7 w9 c  U+ O  G                        mark:=true;
                        else*/
5 F4 Y. x7 `% Z( R                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
  ^0 c& ]8 {& R& {8 s8 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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
+ Z" ]' z. o+ }2 H* f2 M* B0 b7 k                ct:=activityspace[2,rows];
" l' N: E. F2 y( I4 j" u                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; h/ ?1 p7 l5 W5 _                        end;*/
1 m! ^4 A1 F# P. X7 u1 E        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);
- a( i- R3 V3 n* ]/ l        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);
       
) M4 G0 B' S% ?5 I7 S) ]5 s8 u        rows:=0;
        lines:=0;
( G; h5 Z8 U2 g8 }  d        for i:=1 to number_of_machine loop
" p+ _. ?5 \+ U' E2 ^2 P. u                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" c* P% Z4 c) u                                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;
# @& b: |, h6 B4 V* v       
        lines:=0;
        partstable.delete;
$ E1 a5 V2 }' a6 a       
( z% @$ m2 y5 f9 v$ S( N        for i:=1 to number_of_machine loop
  t/ p+ f/ i& e- F/ h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- r9 p* G+ [' t( ~* J' a0 L: W                machinesequence[2,i]:=rows;
3 B7 o; x! k5 K9 n                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        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");
! W; C; ^, M" g- E. _* I                        partstable[5,lines]:=rows;
9 @5 I- ~, P! O- G2 t                        partstable[6,lines]:=j;
4 l" Z- Q- c# t& ~: h                end;
        next;
& J2 g: u* C3 E, [# v        machinename:=sprint("M",rows);
  Z% i& m+ g# K        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;标识符未知
3 Y2 ?; d0 P' ~" ^0 r6 A        machine.proctime:=5;
: H* I! w: e8 A/ q        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
        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;
! m$ u% @3 Z; ~3 E  L3 a1 O& ]        buf.capacity:=5000;
5 i- K& R( a1 w) z6 f5 j* z, |* W        buf.proctime:=0;
3 s0 ~, Q8 `! Z! ^) ?  V, O* l        .materialflow.connector.connect(buf,machine);
9 K8 }7 j. i' `. e4 g2 G       
. r/ D! j* p( d0 a1 U        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
6 [- V' o5 m& J5 U4 Q' t3 V( Gdy:=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;
end;