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

zooey

is
( q7 Z7 F  ]3 s( u( I. F        mark:boolean;
        dx,dy,ct:real;
9 w# [/ R. p# c' `0 Z    i,j,rows,lines:integer;
) H9 L6 S* Z0 \: f1 N    machinename,bufname:string;
3 d+ V& U6 M. o  ~    machine,buf:object;
do
$ s; I- j- k. S( p3 Z1 a        current.eraselayer(1);
       
6 f1 P7 x; F3 T/ h        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 F) l3 P3 `8 x8 Z5 ~  o                inspect messagebox("设施数目不对！请核查...,",50,13)
# I, H! M$ U2 ~- W& d6 n. Z                when 16 then
                        print"yes";
4 j8 k' q; m- {3 w& {* u/ {4 l; j( s                when 32 then
                        print"no";
( L9 a# O4 R9 C+ o$ W+ d                else
                        print"cancel";
                end;
                eventcontroller.stop;
9 ~( J; U9 |4 J        end;
       
. W2 H" W' p! S- v7 U! h$ k        for i:=1 to number_of_machine loop
( |6 J5 U+ r: o0 }0 Y* i( F        machinename:=sprint("M",i);
        if existsobject(machinename) then
) c5 k2 ?- ], S                machine:=str_to_obj(machinename);
" k/ q* e! t6 N                machine.deleteobject;
        end;
( a6 t# ^* ?; Z- E# |9 z; @# r0 U  O( j        bufname:=sprint("BF",i);
# \$ L1 E9 k: j) A" Y        if existsobject(bufname) then
9 Z  m( t# n4 I" f                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
4 k) f  A) g1 g7 D/ a- w+ E        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ T! x% P- Z  ]- B0 |                --mark:=false;
! m* u3 [" R" u                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 M5 p9 f- P9 x- t                then
' }- T" E; E! Q                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 L+ E8 e' n' }                        and activityspace[1,rows]<(1.05*y_max) then
) o3 s' p* Z5 ?3 {( b$ k+ R                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
3 ?* ?" v2 K) W                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  `% R) y! `% F, Z' g6 z2 Q1 j' n5 e                        mark:=true;
                        else*/
5 y2 q0 z' B; h* d7 Q                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
3 B$ H& q+ k* N8 `                        --end;
% B; r8 l9 |- M/ m2 ?                end;
* @9 H9 @8 o+ v, M$ \7 d" m                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
$ R3 ~% q2 L; X, C  l  v2 ?                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
; z. D3 j+ a6 d+ V                /*if mark=true then
                ct:=activityspace[2,rows];
& }7 V2 a' D; t8 N! H& \) @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ Y5 i7 o. J  T5 s& L                        end;*/
! K. M+ @+ T0 h/ R9 ?3 R$ u; \* B        next;
9 ?7 E' d9 z: W% @        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);
/ G& }- @. z$ i9 C, W  U        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);
4 p/ S) P6 M7 t1 l1 o& R, R       
        rows:=0;
# P( Q- U& o8 ?' F$ b  l' Z        lines:=0;
+ W0 t( r' ~5 @        for i:=1 to number_of_machine loop
! q/ S/ L6 P( O. E                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
% ?0 k9 A; v# F4 ?( k! G, l% B                        else
0 P* B' p( w2 r/ r* v+ \                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' K5 _& n; Y1 ^( V; u# I# h                                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;
3 v5 s  N9 k. z5 i- H                next;
- \# X# `% `3 c( U% Q: Q# N) x! Z        next;
       
( O' R1 R5 Q9 m1 ~1 _4 a        lines:=0;
        partstable.delete;
       
1 D+ g8 L2 K* u2 [/ e! ^- y) q0 x& F        for i:=1 to number_of_machine loop
8 Y' c8 a  f- N5 v7 v! @4 V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
+ g5 g4 s$ c8 O& u# c. @; d                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' `  i9 W; {, N& p                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 D+ m. J& B5 f( |9 V                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
3 K4 L5 {7 K$ t% t2 s        next;
% s. S3 T  Q' V: Z3 u        machinename:=sprint("M",rows);
) s; G* R* i  I3 E! D( M! L% ?+ P        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;
        machine.label:=activityspace[0,rows];
# z% P+ b8 O; R) p/ _2 ?0 d. Q        machine.exitctrl:=ref(leave);
) c9 i3 v6 t# L/ Z, p' ?       
        bufname:=sprint("BF",rows);
/ `: ]" u: u2 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]);
        buf.name:=bufname;
' @+ m# u3 O7 Q( R) z        buf.capacity:=5000;
        buf.proctime:=0;
# R! b6 v3 j" S% d- N' a' E5 J. x        .materialflow.connector.connect(buf,machine);
       
/ T1 b; B, L$ l) _! B2 Z! c) w        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 x8 p- K: [. Edy:=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);
9 ]) @3 [$ H+ e  Mnext;
  [" \$ g: b' @$ ?end;