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

zooey

is
0 B* Y+ G" u  H# \/ ~; W4 c        mark:boolean;
        dx,dy,ct:real;
, p; `* g/ w3 {4 f    i,j,rows,lines:integer;
6 k( `6 z1 l: Q    machinename,bufname:string;
: E9 J& l& z/ G    machine,buf:object;
: r+ l) X* Y- l; [) N! w. Y$ ndo
- n4 R) a% p( m: d" b0 O4 T        current.eraselayer(1);
4 X5 l5 m( F( O       
7 r3 {7 @2 P- g5 ?        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ d1 z/ \0 v! V0 e% \( _                when 16 then
1 ]* u3 `5 ~3 O2 g                        print"yes";
                when 32 then
) u; z3 v" K3 K* @  _                        print"no";
                else
                        print"cancel";
1 M5 A* X9 `1 o4 `4 ~                end;
0 {4 w  D1 a4 b/ l9 m                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 d" `2 h+ _) ?7 v& O( Z        if existsobject(machinename) then
. a) B  C; e8 o6 e, c% ~+ V                machine:=str_to_obj(machinename);
                machine.deleteobject;
9 D  m: H% ]8 A) t: V- l        end;
        bufname:=sprint("BF",i);
; e# X( C9 X+ D0 Z- S, m+ `  T/ f        if existsobject(bufname) then
5 E/ x$ [) }* H' o                buf:=str_to_obj(bufname);
                buf.deleteobject;
% y& c6 m9 v& c& {6 l        end;
; L+ K4 b0 s; B8 C4 H; j! ~        next;
       
1 [4 q( w, i5 a6 a        dx:=0;
3 n+ V6 ]0 n0 \/ Y5 q* L+ ]        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( ^6 |) s# j; a! P                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  u- H* ]6 k4 [& T                then
" \+ t" `& Q+ y9 D# J, n                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 t' y9 e# m: f2 @                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
" }- P3 D* E) G( }                        ct:=activityspace[2,rows];
' L  ?! ]1 }0 _( U9 p! ~                        activityspace[2,rows]:=activityspace[1,rows];
( ^8 o3 k0 j+ i. }% ?                        activityspace[1,rows]:=ct;
& ~! s  D, u* r* ^& _                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
" K- O7 p8 z3 F+ ]- }                        dx:=0;
' }9 ], J7 l; P- X& i8 W                dy:=0;
/ n, T+ ]% X( M$ s2 i                        --end;
+ w* u1 ?% g1 Z8 o& I4 O                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  _  i) b& h/ h9 h" ~+ f                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];
: ?" H3 }$ a. Q+ m+ o+ T2 S                end;
9 [, M) l% E7 T+ i                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ }( a4 o' M- ?" q, F. O7 ?- Y                        activityspace[1,rows]:=ct;
                        end;*/
" u* ~/ L) I! k1 S        next;
        y_max:=y_max+dy;
5 r+ s1 N, |; w5 m1 u        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);
" y6 P6 H! M6 `( W        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);
1 L, ^. u# F$ T' `; h5 f+ [       
2 J( L& F: a+ f7 N5 O5 H, \        rows:=0;
        lines:=0;
2 {& n, H& {' k$ S8 S        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
& u# s) k* F. R8 Z7 K! l                        if j=i then
                                d_from_to_chart[j,i]:=0;
  X6 P/ c1 j; E- K0 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];
, q. f/ y) S7 P' X                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
        lines:=0;
" ]- U+ z7 }9 G" d, D        partstable.delete;
       
        for i:=1 to number_of_machine loop
- B' {9 l0 \+ N* ?9 |3 N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
1 @$ X+ N/ Y: k3 t1 ~  Y                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");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
1 C2 B! k) [, G9 p# e) E& n/ y        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;标识符未知
+ @' i8 r# j) U        machine.proctime:=5;
        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]);
0 b' v0 p3 \$ x4 k* C- W+ S        buf.name:=bufname;
        buf.capacity:=5000;
* v" D0 T4 _1 W. j4 \" [* a        buf.proctime:=0;
+ D7 I0 f5 ~% |! T5 M2 }        .materialflow.connector.connect(buf,machine);
" O+ g- @% ^/ m! q- W       
, s7 Q. n/ Y2 C' D. @' l: `        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);
5 t, }$ o  [: b. S& w& Gnext;
end;
! A! i5 I4 @! ?# f6 K5 e2 e