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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 W' S: ]' [* a- Z; M( U    machinename,bufname:string;
% l5 V4 g3 B+ l! ]- D    machine,buf:object;
1 d6 C% E5 L/ Z& Ado
        current.eraselayer(1);
       
( A1 C4 ^: E7 F0 Z+ b" A        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
- M! E4 p6 b  g( I5 o) m9 k                inspect messagebox("设施数目不对！请核查...,",50,13)
6 C% Q; ^4 Z$ W8 ~# W                when 16 then
7 M( |4 p; p; o                        print"yes";
                when 32 then
                        print"no";
7 X, ?1 X( i# E5 k                else
# y. F) [: ?9 m6 U' u  z( D                        print"cancel";
" V$ ^) Q% |: d1 s" C: }1 _                end;
2 l$ R1 y: X! n9 K3 n" v                eventcontroller.stop;
        end;
       
. W7 k; L" _6 ^, V0 z        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
! J3 Q3 Q' j  U        if existsobject(machinename) then
( u3 [/ }5 ?# ]7 ^+ i/ S4 ^                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
9 d3 B! u7 R8 n2 X4 w& I                buf:=str_to_obj(bufname);
1 U" h& A  {" l! J6 P9 F: Y" E1 v2 U  `3 b                buf.deleteobject;
        end;
/ K$ [! @; m) K! a1 ~, V+ {; J        next;
' z' o' L. m+ C( {8 n( I/ z4 ?       
        dx:=0;
) H3 Q2 a0 X2 |- ~        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]类型不匹配
( y# }5 d3 J4 f. n' q                then
8 a1 m& P6 T* ?! g) y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 X' ]9 O, }! F6 }, e                        and activityspace[1,rows]<(1.05*y_max) then
( m7 a: ^/ K$ ?2 e& C7 y2 W7 U- k1 G                        print activityspace[1,rows],",",activityspace[2,rows];
" E; `4 A. m3 Y                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% a2 k3 Q/ j: i. B; c                        activityspace[1,rows]:=ct;
                        mark:=true;
5 [9 e1 r8 n3 Y# j; A5 h, c5 a- U2 t                        else*/
1 U# H. e" j: O. t* l, y9 q& U& f                        y_max:=y_max+dy;
5 z3 i5 m/ b: c0 y. Z0 e                        dx:=0;
                dy:=0;
                        --end;
% j2 n  s! n3 z5 D% C                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;
) \- P7 u2 Y+ T: n- S; q& C) K                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
& C/ \$ J/ g- P  W. M3 v: q. `/ E        next;
        y_max:=y_max+dy;
3 z  k( r4 a# A( e6 Z) D& s& G        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);
, d: a+ o3 M8 v$ O: s3 h        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;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
( P' D6 |' Q6 {; X3 ]                        if j=i then
                                d_from_to_chart[j,i]:=0;
" I" c! v' L" g6 ?; i% I+ t                        else
! [  s9 S" K8 k0 V! M                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
& w$ b& X6 b% g        next;
       
        lines:=0;
- a' K/ ?% |3 Z/ ]" B        partstable.delete;
       
: A1 Q6 x6 B& m2 e4 o; [. W        for i:=1 to number_of_machine loop
) e8 M' o* O% T0 u, _( f! o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
  u/ ]2 I- B) l( I0 m                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"));
+ f6 {) H7 Z/ G; g. {                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; C0 ?  r. X8 @                end;
        next;
" I9 L4 Y; p5 m- i/ K* e% j  |        machinename:=sprint("M",rows);
3 ]1 |2 B8 l$ T- j        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;
' ]4 H- Q- y1 o: P' E3 A/ ^        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
( P8 Z+ l8 w" l* u  P  p5 v5 P6 `/ i        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;
        buf.capacity:=5000;
8 Z+ s2 X; V2 ~/ F& I& \) V3 r        buf.proctime:=0;
5 N' t! n8 q0 w3 i        .materialflow.connector.connect(buf,machine);
# ~4 M- R+ b* g6 {3 N) Y       
8 O/ E( k4 L5 p; R/ T        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);
' y8 \' i, x' Q; f8 c- Snext;
3 Y. K2 ?8 i) C. }! Rend;