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

zooey

is
2 u) |+ K9 ?( x9 n% M8 w& j8 ~        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
1 H; i6 Y7 a2 x5 W    machine,buf:object;
1 F' i8 ^" E* A; j1 U& i' f9 Odo
$ r* e  _1 P2 O  D3 m        current.eraselayer(1);
8 m6 l  Z1 @: b       
8 ]5 H9 R, X* c: P0 O        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
* w+ q4 z3 i' W% F! b) ]                when 16 then
: K; u% ]+ H3 O& d                        print"yes";
                when 32 then
* L: k% J0 ^) Q' F  ]% |; e                        print"no";
                else
! F5 {8 r# g& a9 D. Z/ H                        print"cancel";
. l/ g0 Q3 u( {2 {                end;
, S+ i# a8 b' }! T* D                eventcontroller.stop;
2 S, @2 u/ T) S        end;
       
        for i:=1 to number_of_machine loop
8 Q$ S# K0 [0 M- B+ H* z! g        machinename:=sprint("M",i);
        if existsobject(machinename) then
3 Z$ E2 P, s3 Q/ r/ L                machine:=str_to_obj(machinename);
) k8 N( l4 ~0 t4 V& n0 J                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
* p, N3 U- A; v+ q        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
* s3 @8 w' h: P" g2 w                buf.deleteobject;
4 O# L8 S, z6 k. [0 S" n        end;
        next;
% T/ O: r' f$ Y3 m! u( W7 s       
  j' U9 o4 X. A0 r  @7 i6 o/ u        dx:=0;
) c7 e& B  N8 U& S        dy:=0;
        for i:=1 to number_of_machine loop
+ L- Y/ R; e  D6 s! b' o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. k9 f7 o0 R: y" |# ?                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 k( e8 n0 t- P) n, v4 E                then
# w$ d4 y% T8 `, ], S                        /*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];
8 L4 e  k: {' P; R                        ct:=activityspace[2,rows];
2 A7 h# C" [$ ~0 r# W                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# U# p6 o  {! t1 g2 e3 O% [                        mark:=true;
  K6 W$ e. o" B, l+ ]" {                        else*/
- U2 E3 J& _' V# F. K4 R& j( u                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
+ C+ e* P- I' L                        --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
$ {" {& }4 X! U0 h( L; D# t8 `+ X                        dy:=activityspace[2,rows];
5 n$ Z3 ~" O: J: O- D1 V$ l                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
6 j  h: \, N2 t1 u/ U+ N( D3 S) F                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) U2 Z5 P2 I2 d2 F; |* E. N! A* A2 h                        end;*/
! g* s; `2 L0 Z/ O        next;
8 F) ^  H1 z3 U+ c' Z' U        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);
        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);
       
" Z6 N4 [+ b; e        rows:=0;
5 }0 n1 K- G* `2 e% f9 F; ^        lines:=0;
/ e% d6 K8 @! v7 V        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
4 }8 Q  t# D7 l5 Y+ ?5 {                        else
/ E$ W% g0 C2 ?6 v1 w- l2 Z                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% D6 b. u7 F- b" f$ A" T; h6 N                                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;
       
% V; w7 K8 c! d5 N& w$ u# O& u        lines:=0;
) y' N$ m! r. {  T2 J        partstable.delete;
6 _1 U6 j* T+ V       
" x% z( c' a) U        for i:=1 to number_of_machine loop
9 v" p3 z& k) h7 J0 G3 e                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
9 \" n( o% L  L. I* V                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
% y0 Y* ^' B' W9 N& R                        lines:=lines+1;
3 H4 D8 s9 }9 n( h5 b) L& R4 g                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 I! _' {" n8 ?0 S, b! ?/ |7 p1 D$ }                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
- w: p, l+ ]& q& m        next;
        machinename:=sprint("M",rows);
% `: }- P5 Q: q+ X! Z! u' 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]);
1 B+ P4 z4 @$ J. t        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
- C: r3 M+ e9 P$ ^3 s       
        bufname:=sprint("BF",rows);
9 q4 K- b! _7 [" y        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]);
# j% R1 L- L. f  a, ]+ i        buf.name:=bufname;
3 }, c2 e  H1 J# P        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
1 m. l' V" F! a       
        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);
2 g, V& l) e- D) w7 F8 S/ cnext;
, q5 j8 r1 e. c3 h$ B0 H4 S& f7 Aend;
% q# H% R% Z4 ?# Z* h% `- r