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

zooey

is
. U# Q' h( N& E2 k# J+ I1 H        mark:boolean;
! V$ V% B3 ~: @6 l$ i+ O        dx,dy,ct:real;
    i,j,rows,lines:integer;
8 F* m# g; V- R. H. z/ l    machinename,bufname:string;
* p/ ]+ E% T0 e( _4 q( F    machine,buf:object;
2 H# P, I% @# b6 M; G2 d: N! t; i% pdo
# ~1 e9 ^3 L8 A        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
4 b9 M$ p* t* e  @                when 16 then
/ Y( R+ E6 I' i% Y) t                        print"yes";
                when 32 then
3 A* e& t+ q) {                        print"no";
( ?6 X- I2 l) I. H* z# V                else
                        print"cancel";
$ u8 B7 [! i0 J1 x, I4 s* k2 V                end;
( _& o& M. _2 Y& l- a                eventcontroller.stop;
        end;
1 l- O8 C, D" p3 ?5 R5 A9 T       
0 w4 A3 b0 ~( ?: x4 P" ?0 A' w3 W        for i:=1 to number_of_machine loop
8 Z. h: T1 f' \+ k+ [- T        machinename:=sprint("M",i);
) P9 ^+ A6 o. U& f! {        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
) Q0 u9 ?+ L) X                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
8 W: v; g# u  J       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
/ x: d6 r1 k) k% i1 V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 k# I1 T) d3 e' f                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 ^) c2 M6 ~# a7 w# s4 M2 b                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 T( j6 m- _5 B5 Y                        and activityspace[1,rows]<(1.05*y_max) then
) h( A: @1 @; E$ _; ~' e7 ?                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 j& ~3 e- |% A( v- y! q! _                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
, m! h0 M# a8 r* J1 E; F! T1 |                        dx:=0;
2 n" ~3 u6 y/ w( p$ ?3 f& `( @                dy:=0;
                        --end;
                end;
- _. M; y' M6 R. }& M: {# O5 X                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;
6 ^# @* Z. q1 w, G9 ^            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
$ i4 k! O1 v+ Y) I                dx:=dx+activityspace[1,rows];
6 j7 Z7 B) }: D  T$ c( }/ M, [                /*if mark=true then
                ct:=activityspace[2,rows];
* e9 X. L2 r" Y+ N# @- J7 U$ j                        activityspace[2,rows]:=activityspace[1,rows];
% q! K. J2 B& I" ^1 p1 ?                        activityspace[1,rows]:=ct;
  C  }5 z3 O5 S. t* H                        end;*/
/ ~0 W- |, E1 c        next;
+ C' ^3 _" {* |* e8 A# k        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);
) K- f$ K) c' V: n) l6 u8 a       
        rows:=0;
* C& p4 |) e" l/ n1 ?% r        lines:=0;
' O% t1 p6 l3 Q0 C3 C& w        for i:=1 to number_of_machine loop
, \* Z! L* H6 G5 E, ?                for j:=1 to number_of_machine loop
                        if j=i then
8 c, Q, ]; s$ K+ t6 a                                d_from_to_chart[j,i]:=0;
% y+ ~! X: }) ]: Y                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
4 O4 g* p' v' q                        end;
  Q) \" c# ~* i1 Q8 k2 r: X                next;
5 y$ I9 D$ z: o8 f$ U        next;
       
        lines:=0;
, o) Q5 P7 i+ w! q        partstable.delete;
; |2 t3 _0 p# ~0 c" f1 A  p( W$ \       
        for i:=1 to number_of_machine loop
                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
                        lines:=lines+1;
9 K7 k4 i  N4 t2 o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
. B) Q' X& D4 i1 c1 ~                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
- R2 ?3 c( n$ n# b                        partstable[6,lines]:=j;
                end;
. F) {! X- n* c- j+ O, M        next;
        machinename:=sprint("M",rows);
1 z' H1 I% O, n3 i# y3 m        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 ~! m4 L" m+ g/ B* ]. D        machine.name:=machinename;标识符未知
, f# a, _9 H  k* {! j/ u6 A        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
$ X% d- N+ r/ k+ h        machine.exitctrl:=ref(leave);
# }4 D" w0 Z8 X! Q) T+ X       
        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;
. `0 C, f! c2 ?" D( [  |        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ h5 Q% y0 u! s3 w& F* Sdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
0 S* q9 `  f1 kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* r+ n6 q/ _9 U+ }0 B  n$ `# wnext;
end;