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

zooey

is
$ y3 }) j! `! h) ]4 B  b% x        mark:boolean;
        dx,dy,ct:real;
4 E8 t: o. x3 k( y    i,j,rows,lines:integer;
  {5 j& }+ }' ?8 f    machinename,bufname:string;
    machine,buf:object;
* j8 \" V. @* C5 Z5 Mdo
' X) m8 r0 e  d4 U. c; f! `) J        current.eraselayer(1);
/ {, O# p6 H) z: @       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! ]/ J% R- ^- ~, L7 D& A4 {! d9 F                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
2 V! Y( P1 O5 k$ v4 a! n2 ?. U                        print"no";
( b3 d  `  s3 _) e  E                else
                        print"cancel";
                end;
; ^: @. P6 j  i8 B6 G; y3 e1 N% W                eventcontroller.stop;
        end;
       
0 a2 b! s! d1 a        for i:=1 to number_of_machine loop
* D4 c2 P* F6 l$ i' h        machinename:=sprint("M",i);
        if existsobject(machinename) then
, M4 Y/ T! ~4 P% h- v% \/ j) M" b                machine:=str_to_obj(machinename);
                machine.deleteobject;
, U/ d5 L+ Y/ [; S! o        end;
8 y% n: p1 J8 V! F4 ~. s        bufname:=sprint("BF",i);
        if existsobject(bufname) then
: a$ `3 ^, h0 D% m  b3 y                buf:=str_to_obj(bufname);
                buf.deleteobject;
1 k5 J1 @3 n7 `4 E6 E3 p        end;
/ H+ e4 d2 z6 V7 w        next;
       
        dx:=0;
7 g, @3 Y4 l6 g7 ~0 N        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% \  w( F& Q6 e' F3 x: K                --mark:=false;
# m; J3 ?0 {& j; X8 z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
' ^- ~0 k8 G3 A! D                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. \+ D. \8 M. W! |                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
7 K7 m; Q" A& `5 X; m8 y                        activityspace[2,rows]:=activityspace[1,rows];
) Y$ Q* i4 }* \* K7 m                        activityspace[1,rows]:=ct;
. `, l, _' Q; }5 w4 |; Z                        mark:=true;
; A- v# i- m+ G9 w9 d1 s                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
3 e& m1 i9 y' ^; ^                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ c5 i# W; ]: Z3 N                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
  o3 n- s, {7 f3 b, p            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
6 [8 d9 q. W9 `6 I+ P; y1 U                end;
' M- p8 n2 u1 @6 t; R" W, D                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
4 V+ C4 j4 ]4 u! ~1 O                        activityspace[2,rows]:=activityspace[1,rows];
( ~7 N: X" @6 I/ y9 M' W" t9 v9 b                        activityspace[1,rows]:=ct;
3 `, t: H1 Q! y# |5 T/ L6 W+ X                        end;*/
+ L, T" U* E3 V+ c7 l$ [        next;
        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);
( R: r) b2 ]) ?        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);
! a- ]* S. Q" q$ ^# U8 n       
/ [$ `/ H9 [, O/ U        rows:=0;
6 ]' m; i& N1 B" K  q2 H: v9 j        lines:=0;
        for i:=1 to number_of_machine loop
# f/ I0 }$ u% u! Q6 C                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        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. i% L9 u+ I* F5 L3 ?8 f                                d_from_to_chart[j,i]:=abs(dx-dy);
) Z4 y$ |/ |2 S8 Z/ c$ G8 ?                        end;
# E3 M, b! p( J9 L! M                next;
        next;
" I2 Z7 ~- ^) N9 r& m0 g       
        lines:=0;
% }) F' W. P" [        partstable.delete;
) C5 H3 s3 R" i4 A       
" J- o. m3 N5 H        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 c! J4 U5 {8 p+ k7 ~7 F                machinesequence[2,i]:=rows;
/ j2 k8 r6 N7 }* e                for j:=1 to number_of_machine loop
# t  [: d1 r! N) r. e3 z                        if w_from_to_chart[j,rows]>0 then
; U. M! v  t/ G9 D2 s! ]                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% V0 r- O# {, s7 N# d. T( R                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 Z; A4 _' R. S% n2 g                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
( }3 I; D9 O5 v0 |4 L$ d/ m/ D/ J                end;
, f5 j% A+ `) F- L9 P        next;
        machinename:=sprint("M",rows);
+ `- q, N7 a* Y+ W; N8 O' E  w        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]);
8 a0 N+ q1 l6 C- C" i- B3 k        machine.name:=machinename;标识符未知
        machine.proctime:=5;
- ?& {$ C+ F- T1 c: ?$ m        machine.label:=activityspace[0,rows];
% R: [; Y4 O. w7 m/ ^) E$ o5 M        machine.exitctrl:=ref(leave);
# {' \# l" f) q       
        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;
" }1 m' W7 m* j        buf.capacity:=5000;
1 j, O1 {2 n+ m% @: g        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
6 T4 s0 E5 E; t       
5 b; W  i6 t: x* d! R        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;
/ y. B+ B6 X; P: i& K9 m/ Q7 Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;