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

zooey

is
! {1 Q$ U% d' U: j  O1 G# {        mark:boolean;
        dx,dy,ct:real;
& {6 e& d5 Q4 l    i,j,rows,lines:integer;
2 g) i' ^3 {' d- B3 G# Y8 V    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
- g# t8 |- q8 r1 @. h) H2 o. M        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
. N! l) M: S0 q- H8 N7 L& O                when 16 then
                        print"yes";
                when 32 then
                        print"no";
0 ?0 |$ t7 E* t* n) P7 x                else
6 e( z) b- |7 C$ W* G; c                        print"cancel";
                end;
2 S3 G2 u1 V' ?1 I                eventcontroller.stop;
        end;
9 M& x' v7 @5 W& _: A, K       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 W( K0 Z/ \  b% s+ P        if existsobject(machinename) then
0 t9 t4 c& B. D& B% z3 S                machine:=str_to_obj(machinename);
                machine.deleteobject;
; \6 l2 Y: j6 [0 J4 l9 p7 y5 a        end;
& f0 A" P" q" e$ z) u; _        bufname:=sprint("BF",i);
5 Y* e& ^7 x6 P, ~5 G        if existsobject(bufname) then
  {$ K7 G% |$ P: c8 P                buf:=str_to_obj(bufname);
                buf.deleteobject;
  a6 }. Q& P& r+ N8 I8 G        end;
        next;
, O7 L! R4 H  s- L  G5 y       
        dx:=0;
& n8 q+ Q" G. |5 B        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 h( y0 M  J: \' n                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
; R! ]5 I1 p! t& h( e  z" K                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
: q/ e- M- [3 j. @7 V3 c                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
6 E8 [' A$ @6 R, ?* H( x* R                        y_max:=y_max+dy;
! ?4 W1 u  I& Y6 b# m, X% S                        dx:=0;
6 ^7 h& m3 O( \- U                dy:=0;
                        --end;
                end;
7 v1 s" `5 Q0 T! B4 V- K. t9 J                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 W1 g% h9 B( e: [6 Z$ S* }                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
  @; R0 H0 E. T                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
( A6 W; m" m& d8 u/ u' m5 |# ^                /*if mark=true then
5 Z: x) c% n& A                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 |! o5 ~- W* @# g: M                        activityspace[1,rows]:=ct;
                        end;*/
) @6 k! n& g8 I9 W4 A  b$ |        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);
        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);
$ @) O$ `- {4 F2 t  J$ K, w       
- H. H9 U( r% D  s) Y        rows:=0;
+ X9 f) @8 Z) Z" v        lines:=0;
        for i:=1 to number_of_machine loop
( O% Q% Z4 E# H1 [                for j:=1 to number_of_machine loop
+ @/ \" L/ n. X  ]5 X                        if j=i then
) v& H) M* M  I5 R                                d_from_to_chart[j,i]:=0;
2 n) e" }$ V0 b$ |) ]+ B+ m" T7 F( `. e                        else
9 }0 u( o# l: A                                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);
                        end;
                next;
# M9 A, u. M) [; R9 ]4 b) m        next;
( r- h. x3 K: Q$ k( F3 T4 t* X       
        lines:=0;
) }$ I& F; q' L2 k        partstable.delete;
       
4 Y  G. S8 V& M7 W        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; [2 _$ [% f$ m$ o, _                machinesequence[2,i]:=rows;
. K8 l; ~# o# U9 a- ^6 _                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
2 K8 G4 a, o. t) a8 f( [                        lines:=lines+1;
) j% [1 [+ k4 j! n: ]                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ t7 r$ A7 J3 N+ M# R$ e% t                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ v) G& [! H2 X# y+ W# R                        partstable[3,lines]:=sprint("parts");
; Y/ n5 e) }6 _                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
* |' J0 @# e' C3 a1 ]& [                end;
        next;
        machinename:=sprint("M",rows);
        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]);
4 {- {  T0 W, i9 ~0 x7 T        machine.name:=machinename;标识符未知
        machine.proctime:=5;
% y. s) E* R( s+ ]5 f; P7 A; V        machine.label:=activityspace[0,rows];
3 k5 W2 p# \8 Y7 P- J- A        machine.exitctrl:=ref(leave);
1 }9 h5 c& S! `* J       
5 s" n+ p! O: s# o7 f3 B9 {) W        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]);
% }  `$ Q6 h2 r: q# b( x: b        buf.name:=bufname;
/ o/ p# H( A6 q! m/ c: q# S& Y4 O        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
1 `2 ~) @/ 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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
" J# N" u; m+ L- _next;
) g; r- y6 ~5 v9 t- Uend;