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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
1 I) x* D/ u7 z4 G/ B* L; ]1 n# z! Cdo
3 S7 `" _! I: K. d        current.eraselayer(1);
5 Q3 r+ }" D: L7 i" m4 A/ K0 {       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
$ R  t- E: J' b3 l1 m% i9 V: Y% d, x) f                end;
                eventcontroller.stop;
* ]) j; G9 I* X- \+ T, ^' I& |        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) p. I- h  F8 N& r4 {) l        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
( b% y4 A8 C, X0 V' B  W                machine.deleteobject;
/ j) m% e9 k6 O' w" A/ J        end;
  v" ^% ~2 b" c+ J5 R        bufname:=sprint("BF",i);
. F. K) ?5 p" W( d3 g$ Q        if existsobject(bufname) then
0 b- Z" o/ s& U! t4 [" ~                buf:=str_to_obj(bufname);
9 H( L- I4 j2 l% ~                buf.deleteobject;
        end;
0 D: Q% t, \3 j        next;
       
        dx:=0;
! X! `9 l; `$ Y8 B% Z% w* M        dy:=0;
+ c/ M% e* h- `8 L' q- D' f+ A        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( N5 b; d7 ?: E/ w, N; S                --mark:=false;
1 @+ e, C7 T7 n0 z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
- ~% ^" p' J! E' E                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: @- K4 [: V4 a, ~  c& z                        and activityspace[1,rows]<(1.05*y_max) then
5 {! r. I: Q( h                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
- w6 k8 F: j4 O1 A/ V* Y; d& E                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 ]- {) G( m% E/ d8 }% U0 g. e* e                        mark:=true;
                        else*/
- v- e0 G/ K. s# q+ X2 _                        y_max:=y_max+dy;
! A7 x5 ~1 S1 D, {' {- M$ H3 [                        dx:=0;
                dy:=0;
                        --end;
/ m& L* ~* k$ p                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;
- w4 R. x9 S3 u! W            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
0 D% P" O: |( M6 Y1 O. V                end;
6 |4 b' w' `0 }/ ]. s* H8 u                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 y. C" R, ~- n: b                ct:=activityspace[2,rows];
0 c% ]4 }4 b/ H! f9 h                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 n! z8 H. [  _# ~                        end;*/
        next;
& W2 v3 ^) Y( t+ E3 ?& q        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);
3 P' c% H2 l' f8 F' \/ F       
        rows:=0;
: o8 ]) l4 R/ [# z+ K        lines:=0;
' n# H; N3 n, ~. b, l' A        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;
+ a* s: ?/ I, D! p2 C) r* n& E                        else
                                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];
9 K1 {) H' X7 M9 r- n. S  i. e$ J                                d_from_to_chart[j,i]:=abs(dx-dy);
; o) G9 T9 T) C3 P% Z                        end;
* Y- \. `0 Y! l/ U7 Y$ V3 @                next;
        next;
5 ~$ O6 \% M5 i+ o       
8 Y; @3 X& `) I" O: M+ l$ K! t, w        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
, g& f. }' S- d                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
: D3 R. ?# h! U. ~# f  G( ]& s; Y! w) M                        lines:=lines+1;
1 n7 U% X2 J- c9 ^                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: g% G# t' r* Y4 H8 w                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 D0 z3 P6 J6 s3 e( q) ^: `( H                        partstable[5,lines]:=rows;
4 w2 z, |9 L4 i2 f+ q/ |4 |" @                        partstable[6,lines]:=j;
7 i+ @% ^; Z8 E/ Y- |. o                end;
* v) K9 V8 C( O0 Q2 u  }7 i$ p        next;
* D  |( w' ~1 I3 m        machinename:=sprint("M",rows);
6 a& b" d2 p' W* u1 t5 V        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]);
' Y. G' x; d5 ~- O        machine.name:=machinename;标识符未知
6 Q+ u8 k! H# a- g: v4 f. H        machine.proctime:=5;
$ k/ i' C& v& c        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]);
% Z& t5 d0 _( q; z' k4 S$ u        buf.name:=bufname;
        buf.capacity:=5000;
/ Q3 W3 l8 I8 @& W9 s        buf.proctime:=0;
% w5 R* Q! H4 Q# m) z+ d; B        .materialflow.connector.connect(buf,machine);
       
1 ?/ f, A- _, C! V# S6 |) Y        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;
, n5 P" z  J) c6 ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
; j3 S) u* P2 l* Q: I: J9 ?end;